Discussion :

[graphicsxp]

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 :

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

[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

[graphicsxp]

Merci
Moi je pensais plus a un truc du genre (a la suite de mon code existant) :

Code :

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

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]

[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();

[graphicsxp]

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 :

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

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

[SoaB]

Pas la peine de faire un NextResult

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

[nys_00]

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

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