Pb à la con pour exécuter une requète SQL !

rb-crea Messages postés 1 Date d'inscription mercredi 1 octobre 2003 Statut Membre Dernière intervention 1 octobre 2003 - 1 oct. 2003 à 12:03
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 1 oct. 2003 à 14:31
J'ai un gros problème pour executer une requète SQL, si je veux avoir les réponses pour lesquelles OLDFAC00.EDLDLI > Date_Deb cette requète passe mais si je, mais si je l'englobe entre 2 date ca ne marche plus !

>>Cette requète marche si j'enlève : ' And OLDFAC00.EDLDLI<=" & Date_Fin & ") '

*****************

sp = "SELECT OLDFAC00.EDCOMM, OLDFAC00.EDARTI, OLDFAC00.EDLDLI, OLCLIE00.CLCODP "
sp = sp & "FROM S650458B.LAURENT.OLCLIEU0 OLCLIE00, S650458B.OLYMP_VEND.OLDFAC00 OLDFAC00 "sp sp & "WHERE (OLCLIE00.CLCLIE OLDFAC00.EDCLIE) And (OLDFAC00.EDLDLI>=" & Date_Deb & " And OLDFAC00.EDLDLI<=" & Date_Fin & ") "
sp = sp & "ORDER BY OLCLIE00.CLCODP"

TextBox1.Value = sp

returnArray = SQLRequest("DSN=Stats Serge;UID=LAURENT;PWD=LAURENT;", sp, , , True)

For i = LBound(returnArray, 1) To UBound(returnArray, 1)
'Erreur sur cette ligne :
For j = LBound(returnArray, 2) To UBound(returnArray, 2)
Worksheets("Feuil1").Cells(i, j).Formula = _
returnArray(i, j)
Next j
Next i

*******************

La requette ne marche pas elle ne récupère aucun enregistrement, alors que la meme requète récupéré dans TextBox1 marche (en direct) sur la base de données !

Romain

1 réponse

BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
1 oct. 2003 à 14:31
'lut

tu peux essayer d'englober tes dates dans des # :
date > #01/01/2003#

fait attention au format aussi, Access gere les dates au format americain : MM/JJ/AAAA

@++

:clown) BasicInstinct :clown)
0
Rejoignez-nous