[VB.NET] Remplir une ComboBox avec une requete sql

Version imprimable

Bonjour,
J'aimerais remplir une combo box avec le resultat d'une requete sql.
Pour l'instant je peux me connecter et executer ma requete:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
       Dim con As New SqlConnection(connString)
        Dim dr As SqlDataReader
        Dim myCommand As SqlCommand
        Dim sql As New StringBuilder
 
        sql.Append("select distinct ViewTable ")
        sql.Append("from Fields where ViewTable in ")
        sql.Append("(select table_name ")
        sql.Append("from information_schema.tables ")
        sql.Append("where table_type='VIEW')")
 
        Dim test As String = sql.ToString
        myCommand = New SqlCommand(sql.ToString, con)
 
        con.Open()
        dr = myCommand.ExecuteReader()
        con.Close()

Mais je ne sais pas comment remplir ma combo box. Je ne veux pas utiliser la fenetre Propriete de visual studio. Je veux le faire a la main
Merci pour votre aide.

22/03/2005, 13h56
SoaB

il faut utiliser les propriétés suivantes :

Combo.DataTextField = Nom du champs à utiliser pour le libellé
Combo.DataValueField = Nom du champs à utiliser pour la value
Combo.DataSource = Source de données (DataSource, ArrayList etc...)
Combo.DataBind(); = permet de binder les données
22/03/2005, 14h11
graphicsxp
Merci
Moi je pensais plus a un truc du genre (a la suite de mon code existant) :
Code:

1 2 3 4 5 6 While dr.Read cmbObjects.Items.Add(valeurs de dr) dr.NextResult() End While
mais je sais pas ocmment lire les valeurs de dr ??[/code]
22/03/2005, 14h29
SoaB

La solution que je t'ai proposé se nomme "DataBinding" c'est la plus propre je pense :)

sinon pour chaque dr tu utilises dr["Nom du champs"].toString();

Merci
Ta solution est sans doute meilleur mais je suis tetu ;)
J'ai qd meme un souci, la boucle suivante quitte apres le premier resultat du datareader:
Code:

1 2 3 4 5 6 7 dr = myCommand.ExecuteReader() While dr.Read cmbObjects.Items.Add(dr("ViewTable").ToString) Dim test As String = dr("ViewTable").ToString dr.NextResult() End While
Du coup je ne peux remplir ma combo qu'avec la premiere valeur du datareader. Ma requete sql renvoie beaucoup plus d'enregistrements (j'ai teste dans le query analyser de sqlserver)
D'ou cela peut il venir ?
:?: Merci

22/03/2005, 15h21
SoaB

Pas la peine de faire un NextResult :)

Le Read() fait a mon avis le nextresult tout seul d'ou la boucle :)

Voici Comment je rempli mes ComboBox et cela fonctionne...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Try
                Dim ssceconn As New SqlCeConnection("Data Source = " & Module1.g_EmplacementBaseLieux)
                Dim Mycommand As SqlCeCommand = ssceconn.CreateCommand()
                Mycommand.CommandText = temp
                ssceconn.Open()
                Dim myReader As SqlCeDataReader = Mycommand.ExecuteReader()
                ComboBox.Items.Clear()
                Do While myReader.Read()
                     ComboBox.Items.Add(myReader.GetString(0))
                Loop
                myReader.Close()
                ssceconn.Close()
 
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try