listView et comboBox

bonjour,

j'ai une listView qui comporte les valeur de ma base de données ainsi qu'une comboBox. J'aimerai que seulement certaine informations s'affiche dans la listView en fonction de ma comboxBox mais je ne sais pas comment faire.

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 maConnexion As OleDbConnection
        Dim maCommande As OleDbCommand
        Dim drEnc As OleDbDataReader
        Dim strConnect As String
        Dim strSql As String
 
        strConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Label7.Text & "';User ID=Admin;Password=;"
        maConnexion = New OleDbConnection(strConnect)
 
        If ComboBox1.Text = "BAC Pro Commerce" Then
            strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement WHERE Formation='BAC Pro Commerce' ORDER BY Nom ASC"
            maCommande = New OleDbCommand(strSql, maConnexion)
            maConnexion.Open()
            drEnc = maCommande.ExecuteReader()
 
            While (drEnc.Read() = True)
                Dim ligne As New ListViewItem
                'la premiere colonne contient le nom
                ligne.Text = drEnc("Nom")
                'les autres informations doivent etre mises dans la collection SubItems
                ligne.SubItems.Add(drEnc("Prenom"))
                ligne.SubItems.Add(drEnc("Formation"))
                ligne.SubItems.Add(drEnc("Date"))
                ligne.SubItems.Add(drEnc("RetardSortie"))
                ligne.SubItems.Add(drEnc("Heure"))
                ligne.SubItems.Add(drEnc("Motif"))
                'la ligne créée est ajoutée à la liste déroulante
                ListView1.Items.Add(ligne)
            End While
        End If

Lorsque j'écris ceci, les information ne vont pas dans la listView. Pourquoi ?

Merci.