remplissage combo box

Version imprimable

bonjour,
voici ce bout de code:

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 i As Integer = 0
        Dim list = New List(Of ComboBox)
        Dim selectedItem As Integer = Integer.Parse(Val(ComboBox4.SelectedItem.ToString))
        Dim combo() As ComboBox
        Dim lab() As Label
        ReDim lab(selectedItem)
        ReDim combo(selectedItem)
        For i = 0 To selectedItem - 1
            Dim c As New ComboBox
            Dim l As New Label
            l.Location = New Point(labelX, labelY + (i * 20))
            l.Name = "label" & i.ToString
            l.Width = 56
            l.Height = 13
            l.Left = 3
            l.Text = "Elément"
            c.Location = New Point(comboX, comboY + (i * 20))
            c.Name = "Combobox" & i.ToString
            c.Width = 156
            c.Height = 21
            c.Items.Add("test")
            combo(i) = c
            lab(i) = l
        Next
        Dim j As Integer = Val(combo.Count)
        For i = 0 To j - 1
            Me.Controls.Add(combo(i))
            Me.Controls.Add(lab(i))
 
        Next

il me crée dynmiquement des combobox comme vous le remarquez ce que je voudrai c'est remplir ces combobx à partir d'une base de données.
merci à vous

04/02/2013, 14h18
prologic

C'est la connexion à la base de données qui te pose problème ?
04/02/2013, 14h50
mehdi.cheddani

je ne pense pas ma connexion marche bien puisque j'effectue des requêtes déja ce que je voudrai c'est remplir ce combobox qui en fait n 'existe pas et qui est créé suite à un événement sur un bouton.
est ce que vous voyez ce que je veux dire?

essaye ca derriere un bouton, puis adapte le à ton code
une fois que ton combobox est crée, on le rempli avec un datareader

http://faqvbnet.developpez.com/?page=form_comb

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
31
 
 Dim i As Integer = 0
        Dim con As SqlClient.SqlConnection = Nothing
        Dim command As SqlClient.SqlCommand = Nothing
        Dim cs As String = "connexion à ta base"
        Dim dr As SqlClient.SqlDataReader = Nothing
 
        For i = 0 To 10
            Dim c As New ComboBox
 
            c.Location = New Point(10, 30 * i)
            c.Name = "Combobox" & i.ToString
            c.Width = 156
            c.Height = 21
            'c.Items.Add("test")
            Me.Controls.Add(c)
 
            con = New SqlClient.SqlConnection(cs)
            command = New SqlClient.SqlCommand("SELECT champ FROM table", con)
 
            con.Open()
            dr = command.ExecuteReader()
 
            If dr.HasRows Then
                While dr.Read
                    c.Items.Add(dr.GetValue(0))
                End While
            End If
            dr.Close()
            con.Close()
        Next

Vu que tu définis le ComboBox lors de sa création, c'est à ce moment là qu'il faut rajouter les items.

Tu fais une requete et avec le résultats de la requete, tu fais une boucle sur la dernière ligne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim c As New ComboBox ... c.Location = New Point(comboX, comboY + (i * 20)) c.Name = "Combobox" & i.ToString c.Width = 156 c.Height = 21 Dim _Result = From em In MyDB Select em.nom 'Boucle d'ajout For Each reponse In _Result c.Items.Add(reponse.nom) Next

04/02/2013, 17h27
mehdi.cheddani

Merci je teste le code que vous m'avez proposé et je vous tiens au courant