Discussion :

[abouilyas]

Salut,
j'ai ma base Access liée à vb6 via ADO,

je veux rechercher tous les enregistrements dont le niveau='" & text1 & "', le sexe=F, date_inscription < 24/11/année actuelle, ainsi que les date _naissance dont les mois sont: 1 , 2 et 3. et l'année de naissance = année actuelle - 5.
j'ai essayé:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
sql="select * from eleves where niveau='" & text1 & "' and sexe='F' and month(date_naissance) between 1 and 3 and date_inscription < 24/11/year(now) and year(date_naissance)=year(now)-5"

mais ça marche pas.
Merci.

[pc75]

Bonjour,

Dans une clause WHERE, les dates doivent être au format US :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WHERE LADATE = MM/JJ/AAAA

[ProgElecT]

Salut

Bonjour,

Dans une clause WHERE, les dates doivent être au format US :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WHERE LADATE = MM/JJ/AAAA

Pas systématiquement, en tout cas chez moi JJ/MM/AAAA ne pose pas probléme.

@abouilyas
J'essayerai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "select * from eleves where niveau='" & text1 & "' and sexe='F' and (month(date_naissance) between 1 and 3) and date_inscription < 24/11/year(now) and year(date_naissance)=year(now)-5"

mise entre partentaise de la condition between

[pc75]

Salut
Pas systématiquement, en tout cas chez moi JJ/MM/AAAA ne pose pas probléme.

Avec une base Access ?

[ProgElecT]

Salut pc75

Oui il s'agit bien de BD Access (V7), les 3 requêtes suivantes (à tour de rôle) fonctionnent sans problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim DebutDate As Date, FinDate As Date
DebutDate = CDate("25/10/1955")
FinDate = DateAdd("m", 1, CDate("01" & Right(CStr(DebutDate), 8))) - 1 'dernier jour du mois de DebutDate
 
Rqt = "Select Sum(Champ3Integer) From Principal Where Champ4DateTime >=#" & Format(DebutDate, "MM/DD/YYYY") & "#"
'Rqt = "Select Sum(Champ3Integer) From Principal Where Champ4DateTime >=#" & Format(DebutDate, "DD/MM/YYYY") & "#"
'Rqt = "Select Sum(Champ3Integer) From Principal Where Champ4DateTime >=#" & DebutDate & "# and Champ4DateTime <=#" & FinDate & "#"

Je m'attendais qu'au moins 1 des formatages provoque une erreur, je suis surpris que les 2 formatages de date (inversion mois/jour) fonctionne sans erreur et donne l'un et l'autre le résultat attendu.

[Invité]

Bonjour

Les dates doivent être entre #.


Philippe