alimenter un comboBox avec une requtte sqlRésolu

Question

salut , j'ai un petit sousi avec mon comboBox,j'explique:

j'ai une table article (id_article,nom_article,id_auteur)  l 'id_auteur c'est une cl&#233; etrangere dans cette table.
le problem c'est que je veux remplir mon comboBox avec tout les id_article en fournissant le id_auteur , et voila le code que j'ai tap&#233;


Dim dr As SqlDataReader

Dim cmd1 
As 
New SqlCommand("select [id article] from articles where [id auteur]= 12 ", Connection)
dr = cmd1.ExecuteReader

While (dr.Read)
combo_id_article.Text = dr.GetInt16(0)

End 
While

dans ma base j'ai beaucoup d'article pour le id_auteur 12 mais mon combo ne s'est remplis pas avec c'est id_article
vous pouvez m'aider svp
merci d'avance

amylee1984 · Accepted Answer

salut merci pour la reponse , au fait ce que j'ai fait ca marche bien mais il faut faire juste une petite modification : j'ai changer le getInt16 par getInt32 car moi j'ai declar&#233; mon champ de type int 
merci  nhervagault

nhervagault · Answer

Salut 

il faut passer par la datasource.
Et cette methode est rapide et propre.

Il te reste plus qu'a faire l'alimentation avec ta base.

Voila

Voila un exemple

private sub test()
        Dim c As New catalog
        ComboBox1.ValueMember = "id"
        ComboBox1.DisplayMember = "nom"
        ComboBox1.DataSource = c.catalog


    End Sub

    Public Class catalog
        Public catalog As New ArrayList
        Public Sub New()
            catalog.Add(New categorie("1", "hifi"))
            catalog.Add(New categorie("2", "photo"))
        End Sub
    End Class
    Public Class categorie
        Private _id As String
        Private _nom As String
        Public Property id() As String
            Get
                Return _id
            End Get
            Set(ByVal Value As String)
                _id = Value
            End Set
        End Property
        Public Property nom() As String
            Get
                Return _nom
            End Get
            Set(ByVal Value As String)
                _nom = Value
            End Set
        End Property
        Public Sub New(ByVal id As String, ByVal nom As String)
            Me._id = id
            Me._nom = nom
        End Sub
    End Class

Alimenter un comboBox avec une requtte sql

2 réponses

Votre réponse

Discussions similaires