[AC-2003] Utilisation de Datediff dans une requête SQL [Résolu]

[ted the Ors]

Bonjour,

Est-il possible d'utiliser Datediff dans une requête SQL ?
Je rencontre un peu de mal à coder cela.
Voici ma requête:

Code :

1
2
3
4
5
 strReq = "SELECT ColA, ColB " & _
          "FROM MA_TABLE " & _
          "WHERE ColA = '" & VariableA & "' " & _
          "AND (Datevalue(DateDiff(""m"",Date_1,Date_2)) < 3) " & _
           "GROUP BY ColA, ColB"

Elle ne fonctionne pas.

D'avance merci.

[azertix]

Normalement c'est possible.
Il faut juste remplacer les double quotes par Chr(34) (qui retourne ") :

Code :

1
2
3
4
5
 strReq = "SELECT ColA, ColB " & _
          "FROM MA_TABLE " & _
          "WHERE ColA = '" & VariableA & "' " & _
          "AND Datevalue(DateDiff(" & Chr(34) & "m" & Chr(34) ",Date_1,Date_2)) < 3 " & _
           "GROUP BY ColA, ColB"

[ted the Ors]

ca ne fonctionne pas, l'erreur étant: "Attendu: fin d'instruction"...Il doit manquer une double quote ou une parenthèse mais je n'arrive pas à voir où

[azertix]

Non c'est bon au niveau des guillemets.

Par contre, je ne comprends pas pourquoi tu convertis en date la différence entre deux dates en mois avec DateValue.
Tu veux bien afficher les enregistrements dont la différence entre les deux dates est de moins de trois mois ?
Si c'est le cas, il est inutile de convertir le résultat en date.

D'autre part Date_1 et Date_2 sont bien des champs de ta table ?

Enfin, je ne comprends pas pourquoi tu fais un GROUP BY.
Ce ne serait pas plutôt ORDER BY ?

Voilà comment je vois les choses :

Code :

1
2
3
4
5
 strReq = "SELECT ColA, ColB " & _
          "FROM MA_TABLE " & _
          "WHERE ColA = '" & VariableA & "' " & _
          "AND DateDiff(" & Chr(34) & "m" & Chr(34) ",Date_1,Date_2) < 3 " & _
          "ORDER BY ColA, ColB;"

[ted the Ors]

Alors, apparemment, il faut utiliser des simples quotes:

Code :

AND (Datevalue(DateDiff('m',Date_1,Date_1)) < 3 )

N.B: La requête est utilisée dans du code VBA, pas dans le requêteur access...

[azertix]

Envoyé par ted the Ors

Alors, apparemment, il faut utiliser des simples quotes:

Code :

AND (Datevalue(DateDiff('m',Date_1,Date_1)) < 3 )

N.B: La requête est utilisée dans du code VBA, pas dans le requêteur access...

Oui oui, j'avais bien compris.
Ah ben c'est bien que ça fonctionne avec un simple quote. L'aide VBA donne un exemple avec double quote donc je pensais que c'était la seule option possible.
Tu as vu mes remarques concernant ta requête ?

[ted the Ors]

Oui, j'ai bien vu tes remarques

Tu veux bien afficher les enregistrements dont la différence entre les deux dates est de moins de trois mois ? Si c'est le cas, il est inutile de convertir le résultat en date.

Tout à fait...Je l'ai d'ailleurs enlevé depuis...J'ai toujours un peu de mal avec la gestion des dates dans les softs Office.

D'autre part Date_1 et Date_2 sont bien des champs de ta table ?

Oui

Enfin, je ne comprends pas pourquoi tu fais un GROUP BY.
Ce ne serait pas plutôt ORDER BY ?

Non, non, il s'agit bien d'un group By! Par soucis de confidentialité, j'ai épuré un peu la requête...

En tout cas, merci pour tes remarques pertinentes...

Je passe en résolu...

Bonne fin de journée...

[azertix]

Ok compris. À une prochaine sur le forum