Controle de date dans requête SQL
Bonjour,
Je fais une requête sur un fichier excel pour récupérer les informations lorsque la date_rel est antérieur ou égale à aujourd'hui. J'ai ma requête sans erreur mais le résultat n'est pas bon puisque je me retrouve avec des informations lorsque date_rel est le 1er avril 2013.
Voici le code que j'utilise:
Code:
1
2
3
4
5
| Public Function dateSQL(ByVal Madate As Date)
Dim reponse As String
reponse = Month(Madate) & "/" & Day(Madate) & "/" & Year(Madate)
dateSQL = reponse
End Function |
et voici ma requête:
Code:
1
2
3
4
| texteSQL = "SELECT *"
texteSQL = texteSQL & " FROM [" & feuille & "$] WHERE date_rel <= #" & VBA.Date & "#"
texteSQL = texteSQL & " AND insee IN (SELECT insee FROM [" & f_horaire & "$] WHERE " & cejour & " <> '')"
texteSQL = texteSQL & " ORDER BY date_rel;" |
Si l'un d'entre vous sait ou se situe mon erreur?
