CheckBox et SQL

Version imprimable

CheckBox et SQL

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:

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 ?

10/06/2008, 15h53
obito

Salut tout d'abord, quel est ton message d'erreur car j'ai une petite idée sur la chose mais je préfère savoir quel message d'erreur s'affiche!
10/06/2008, 15h59
floriaan60

il y a aucun message d'erreur.
la listView ne ce rempli pas c'est tous ...
10/06/2008, 16h02
floriaan60

dans ma requete je lui passe les 3 contrôles c'est a dire les 2 comboBox et la textBox. Cependant il ce peu que c contrôles ne soient pas modifiable car la checkBox a pour checked: FALSE ...
10/06/2008, 17h04
floriaan60

puisque ma requete doit changer pour chaque cas de checkBox coché ou non, dois-je faire un IF pour chacun des cas en modifiant ma requete ?

Aidez moi s'il vous plait ...

Peut être es ce la structure de ton while qui ne marche aps et donc ta liste reste vide:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i as integer =0
            While (drEnc.Read() = True)
                Dim ligne As New ListViewItem
                'la premiere colonne contient le nom
                ligne.item.add(drEnc("Nom"))
                'les autres informations doivent etre mises dans la collection SubItems
                ligne.SubItems(i).Add(drEnc("Prenom"))
                ligne.SubItems(i).Add(drEnc("Formation"))
                ligne.SubItems(i).Add(drEnc("Date"))
                ligne.SubItems(i).Add(drEnc("Heure"))
                ligne.SubItems(i).Add(drEnc("Motif"))
                'la ligne créée est ajoutée à la liste déroulante
                ListView1.Items.Add(ligne)
                i+=1
            End While

De mémoire je ne me rappel plus si i doit être initialisé à 0 ou à 1...