Afficher enregistrement entre deux date vb6

Gente Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
Gente Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'aimerais afficher les enregistrements d'hier entre 6:00am et 2:00pm sous vb6
voila mon code:

Dim fda As Date
Dim fdb As Date
Dim req As String
fda = Date - 1 + #6:00:00 AM#
fdb = Date - 1 + #2:00:00 PM#


req = "SELECT * FROM Variable WHERE Tdate BETWEEN #" & fda & "# AND #" & fdb & "#"

Set rs = db.OpenRecordset(req)
if(rs.eof)then
msgbox "aucun enregistrement"
else
traitement......
endif
Le probleme est que sa m'affiche aucun enregistrement alors qu'il ya une centaine
Merci de m'aider a resoudre mon probleme

A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

Inversez le jour et le mois, format anglais

fda = Format(Date - 1 , "MM/DD/YYYY") + #6:00:00 AM#
fdb = Format(Date - 1 , "MM/DD/YYYY") + #2:00:00 PM#

Bonne suite
1
Gente Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Merci ca marche!
0