VS 2013 - Remplir une Combobox en rapport à la sélection de la précédente

**guilld** · 04/07/2017, 14h11

Bonjour,

Savez vous comment remplir une seconde Combo en rapport au choix de la première ?
La première Combobox est remplie par les valeurs "LIBELLE" de la requete SQL.

Mon code pour la première combobox :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function GetUAP() As DataSet
 
        Try
 
            Dim sql As String = "SELECT ID_UAP, LIBELLE FROM [dbo].[UAP] WHERE ID_SITE = '" & LeSite & "'"
            Dim myCommand As New SqlCommand(sql, cnn1)
            cnn1.Open()
            Dim reader As SqlDataReader = myCommand.ExecuteReader()
            Dim Ds As DataSet
            dt_glob = New DataTable(0)
            Dim ID_UAP, LIBELLE As DataColumn
            ID_UAP = New DataColumn
            ID_UAP.ColumnName = "ID_UAP"
            LIBELLE = New DataColumn
            LIBELLE.ColumnName = "LIBELLE"
 
            dt_glob.Columns.Add(Id_UAP)
            dt_glob.Columns.Add(LIBELLE)
 
            Ds = New DataSet
            Ds.Tables.Add(dt_glob)
 
            If reader.Read() Then
                Do
                    Dim ligne As DataRow
                    ligne = dt_glob.NewRow()
                    ligne.Item("ID_UAP") = Trim(reader.GetValue(0))
                    ligne.Item("LIBELLE") = Trim(reader.GetValue(1))
                    dt_glob.Rows.Add(ligne)
                    While reader.Read()
                        ligne = dt_glob.NewRow()
                        ligne.Item("ID_UAP") = Trim(reader.GetValue(0))
                        ligne.Item("LIBELLE") = Trim(reader.GetValue(1))
                        dt_glob.Rows.Add(ligne)
                    End While
                Loop While reader.NextResult()
            Else
                reader.Close()
            End If
 
            reader.Close()
            cnn1.Close()
 
            Return Ds
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Initialisation UAP")
        End Try
 
    End Function

La seconde sera remplie par le même type de code mais avec une clause WHERE dans la requete SQL qui serait la valeur de "ID_UAP".

j'imagine bien un truc du genre pour la clause WHERE mais sans succès :

Code :

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