SQL ET LIKE EN VB NET

Version imprimable

10/06/2008, 11h56
floriaan60

SQL ET LIKE EN VB NET

bonjour,

j'ai un petit problème avec ma requete sql.
En effet, voici ma requete:

Code:

strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement WHERE Date LIKE '__/" & dat & "/__'"

dat recoit 01, 02, 03 .... selon les mois.
Je veux selectionner les ligne de ma table ou le mois est 01, 02, 03 ... etc
Je fais donc un LIKE. MAis cela ne marche pas.

Pourquoi?
10/06/2008, 12h17
Kropernic
Essaie avec
Code:

1 2 StrSql = "select teschamps from testables where date like '%/" & dat & "/%'
A priori, si tes dates sont toujours formatées avec les "/", ça ne posera pas de problème.

Griftou.

non cela ne marche pas ...

voici le code complet de mon module

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Sub McomboBoxMois(ByVal listview1, ByVal Label7, ByVal combobox1, ByVal valeur, ByVal dat)
 
        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 = valeur Then
            listview1.Items.Clear()
            If valeur = "(aucun)" Then
                strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement"
                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
            Else
                strSql = "SELECT Nom, Prenom, Formation, Date, RetardSortie, Heure, Motif FROM Enregistrement where date like '%/" & dat & "/%'"
                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
        End If
 
    End Sub

Mais je ne vois ce qui peux déranger

et le code de l'appel du module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        McomboBoxMois(ListView1, Label7, ComboBox2, "(aucun)", "")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Janvier", "01")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Janvier", "02")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Fevrier", "03")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Mars", "04")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Avril", "05")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Mai", "06")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Juin", "07")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Juillet", "08")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Aout", "09")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Septembre", "10")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Octobre", "11")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Novembre", "12")
        McomboBoxMois(ListView1, Label7, ComboBox2, "Decembre", "01")
    End Sub

10/06/2008, 13h45
Kropernic

Ton champ date est de type string au moins pour faire un like ?
Si c'est un type date, il faudrait vérifier si on peut faire un like là dessus. A voir dans l'aide de ton SGDB.

Sinon, j'avoue que j'sais pas trop, faudrait que j'teste le code.

EDIT : tu trouves pas que y a un truc qui cloche dans ta combobox ?

Griftou.
10/06/2008, 13h47
floriaan60

oups j'avais oublié de changer le nom de la comboBox
Cependant il me met l'enregistrement 01/01/2001 en decembre ...
10/06/2008, 13h48
Kropernic

Rien à voir avec le nom de ta combobox mais bien avec ton mois de décembre qui correspond à 01 et au fait que t'as 2 fois janvier dont un correspond à 02 et donc février à 03 etc....

Non mais j'te jure..... :evilred:

Griftou.
10/06/2008, 13h50
floriaan60

:d non mais je te jure moi alors !
Je devais être fatigué en fin de matine :d

Merci beaucoup