combobox alimenté par requête sur base access

Hello,

je passe de VB6 à VB.net et je cherche à alimenter un combobox avec le résultat d'une requête sur une base access

sous VB6 je faisais comme ça :

Code:

---

1 2 3 4 5 6

rt.Open "SELECT DISTINCT nom_utilisateur FROM T_intervention" Do While Not rt.EOF liste_recherche_user.AddItem rt("nom_utilisateur") rt.MoveNext Loop rt.Close

---

mais en VB.net je ne sais par où commencer...

Heu désolé c'est bon j'ai trouvé aprés quelques tests...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim adap As System.Data.OleDb.OleDbDataAdapter Dim ds As System.Data.DataSet Dim tbl As System.Data.DataTable Dim sql As String Dim cs As String Dim cnx As System.Data.OleDb.OleDbConnection Dim cmd As System.Data.OleDb.OleDbCommand   'creation du DataSet ds = New System.Data.DataSet() 'chaine de connexion cs = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= c:\mabase.mdb;" 'la connexion cnx = New System.Data.OleDb.OleDbConnection cnx.ConnectionString = cs cnx.Open() 'la commande cmd = New System.Data.OleDb.OleDbCommand 'la requete sql = "SELECT DISTINCT nom_utilisateur FROM T_intervention" cmd.CommandText = sql 'creation d'un adaptateur adap = New System.Data.OleDb.OleDbDataAdapter(cmd) cmd.Connection = cnx adap.Fill(ds, "t_intervention") tbl = ds.Tables("t_intervention") liste_filtrer_par_utilisateur.DataSource = ds.Tables("t_intervention") 'Indiquer quelle colonne affiche liste_filtrer_par_utilisateur.DisplayMember = "nom_utilisateur"

---