jeudi 21 janvier 2010

VB.NET : Remplir un Combobox à partir d'une Datatable , Dataset !

Rien de plus simple en vb.net , voici mon exemple ( J'ai utilisé une base de données MySQL , mais ça change rien tant que ca reste du ADO.NET) :
'Importer la référence mysqlclient

1) Importer la référence Mysql :
Imports MySql.Data.MySqlClient
2) Remplir Dataset sur l'évenement chargement de votre formulaire :
Private Sub myform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' la conexion a la base de données

Public myconn As New MySqlConnection("data source = localhost ; database = mabase ; user ID=root ; password = 12345")

' Déclaration Dataset et Dataadapter

Dim mondataset as Dataset
Dim dta as new MySqlDataAdapter ("select * from clients" , myconn)

dta.fill(ds,"matable")

With ComboBox1
.DataSource = ds.Tables("matable")
.DisplayMember = "nom"
.ValueMember = "Code"
End With

End Sub
Et voila jespere que ca va vous aider +

4 commentaires: