Discussion :

[urbanspike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[urbanspike]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"