Bonjour,

Je dispose d'un formulaire avec des checkBox qui valide ou non des comboBox, selon le checked.
J'aimerai afficher dans une listView le resultat d'une requete mais cela ne marche pas.

Voici mon code
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
Dim maConnexion As OleDbConnection
        Dim maCommande As OleDbCommand
        Dim drEnc As OleDbDataReader
        Dim strConnect As String
        Dim strSql As String
 
        Try
            strConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Label7.Text & "';User ID=Admin;Password=;"
            maConnexion = New OleDbConnection(strConnect)
            strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement WHERE Nom='" & TextBox1.Text & "' AND Formation='" & ComboBox1.Text & "' AND Date like '%/" & TextBox2.Text & "/%'"
            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
 
 
        Catch err As System.Data.OleDb.OleDbException
            MessageBox.Show("ERREUR requête ACCESS:" + err.Message)
        Catch err As System.InvalidOperationException
            MessageBox.Show("ERREUR:" + err.Message)
        Catch err As Exception
            MessageBox.Show("ERREUR GRAVE:" + err.Message)
        End Try
dans textbox2.text j'ai stocké un numéro qui corresponds au mois choisi

Pouvez vous m'aider ?