Requête SQL avec date

Version imprimable

31/01/2007, 21h53
loreleï85

Requête SQL avec date
Bonjour,

Je fais une application en vb6 qui va lire dans une base de données Access. J'ai mis un objet calendrier, et lorsque l'utilisateur clique sur une date, je voudrais qu'il s'affiche les concours prévus à cette date.
J'ai donc cela comme requête :
Code:

1 2 sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = " & Calendar1.Value & ""
Mais cela ne marche pas. Il ne trouve pas les enregistrements correspondant à la date. Ma condition ne marche donc pas.
Pourtant lorsque je fais un MsgBox de sql, la requête semble bonne.
J'ai également essayé en encadrant Calendar1.Value de '" mais ça ne fonctionne pas non plus.

Si quelqu'un a une idée!
31/01/2007, 21h55
SfJ5Rpw8

et en rajoutant des # autour de ta date...

Ca ne fais rien non plus.
J'ai mis :
Code:

1 2 sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = #" & Calendar1.Value & "#"

31/01/2007, 22h11
SfJ5Rpw8

as tu observé la chaine générée.... et testé sous acces... par exemple???
31/01/2007, 22h18
loreleï85

et bien la chaîne générée a des # devant la date
01/02/2007, 07h14
Delbeke

Et si tu essayais

Code:

sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = #" & Format(Calendar1.Value,"mm/dd/yyyy") & "#"
01/02/2007, 08h38
loreleï85

Et bien malheureusement cela ne marche pas non plus...
01/02/2007, 11h39
Vld44

Citation:

Envoyé par bbil

as tu observé la chaine générée.... et testé sous acces... par exemple???
01/02/2007, 15h32
BM42

Salut

pourquoi ?

Code:

sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = " & Calendar1.Value & ""

Au lieu de :

Code:

sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = " & Calendar1.Value
01/02/2007, 15h38
dontDeleteMe

il me semble qu'il faut des ' et pas des #
01/02/2007, 16h06
loreleï85
J'ai déjà tester cela et ça ne fonctionne pas plus.

Citation:

Envoyé par BM42

Au lieu de :

Code:

sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = " & Calendar1.Value

J'ai également tester avec des ' ' à la place des # mais ça ne marche pas non plus.

Et pour ce qui est de la chaîne générée, lorsque je met des dates, il va mettre :
Code:

1 2 DATE_CONCOURS=#01/02/2007#
Si je met des cotes, il met des cotes à la place, et si je met rien autour et bien il met rien. Mais aucune écriture ne fonctionne.

Je n'ai pas tester sous Access, je n'ai pas encore eu le temps de chercher comment faire sous Access 2007.
Je regarderais cela ce soir.

Merci pour votre aide!
05/02/2007, 18h01
BM42

Essai :

Code:

sql = "SELECT * FROM T_CONCOURS WHERE (DATE_CONCOURS = " & Calendar1.Value & ")"

J'ais retrouvé cet exemple dans mes docs, peut être que.
A+

avec des DTPickers je procede, dans un moteur de recherche, de la façon suivante
La table s'appelle Infos , le champs Date dans une bd Access (.mdb)
Microsoft DAO 3.51 Object Library
CheminDataBase As New ADODB.Connection
TablES1 As New ADODB.Recordset
Code:

1 2 'Ayant eu lieu le TablES1.Open "Infos Where Date = CDate(" & Chr$(34) & CStr(DTPickerRech1(0).Value) & Chr$(34) & ") ", CheminDataBase, adOpenStatic, adLockOptimistic
Code:

1 2 'Ayant eu lieu avant le TablES1.Open "Infos Where Date <= CDate(" & Chr$(34) & CStr(DTPickerRech1(0).Value) & Chr$(34) & ") " , CheminDataBase, adOpenStatic, adLockOptimistic
Code:

1 2 'Ayant eu lieu apres le TablES1.Open "Infos Where Date >= CDate(" & Chr$(34) & CStr(DTPickerRech1(0).Value) & Chr$(34) & ") " , CheminDataBase, adOpenStatic, adLockOptimistic
Code:

1 2 3 'Ayant eu lieu entre le et le TablES1.Open "Infos Where Date >= CDate(" & Chr$(34) & CStr(DTPickerRech1(0).Value) & Chr$(34) & ") " & _ " and Date <= CDate(" & Chr$(34) & CStr(DTPickerRech1(1).Value) & Chr$(34) & ") " , CheminDataBase, adOpenStatic, adLockOptimistic
pour toi donc l'important de ma proposition est là
CDate(" & Chr$(34) & CStr(Calendar1.Value) & Chr$(34) & ")

Je n'ai jamais compris pourquoi il fallait changer la date en String (CStr()) pour la repasser en Date (CDate()), toutes autres syntaxes me créant une erreur, version SQL ?
Bonne chance

06/02/2007, 23h00
badrel

facilement tu peut faire comme ça

Code:

Select * from table where ChampDate ='" & Ladatechoisis & "'"

et ca va marché tres bien.
Déjà tester sur 6 projet.
08/02/2007, 21h10
Hatchepsout

salut
generalement la date dans une requete faut etre entre '01/01/2007' par exemple donc la solution c'est

Code:

Select * from table where madate =' " & madate & " ' "

c'est correct comme ca et j'a bien tester ;)

Date

Bonjour
Récupére la date de ton calendrier dans une variable de type date
Code:

1 2 3 Dim sMadate as date SMadate = ton calendrier 'ensuite tu formate dans ton query Select ...ect....= #" + Format(SMadate , "MM/DD/YYYY") + "#"
Toute mes requetes sont faites ainsi.
Vb

Requête SQL avec date

Bonjours,
Je sais pas trop si ca va t'aider. Je te propose un exemple que j'ai ecrit et qui marche pour selectionner des enregistrements compris entre deux dates.
le dates son rentrees en format Americain soit "mm/dd/yyyy"
voici mon source

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    If mdlMain.MoisTraite = 1 Then
        vDeb = Format$(DateSerial(mdlMain.AnTraite - 1, 12, 31), "mm/dd/yyyy")
    Else
        vNb = SizeMois(mdlMain.AnTraite, mdlMain.MoisTraite - 1)
        vDeb = Format$(DateSerial(mdlMain.AnTraite, mdlMain.MoisTraite - 1, vNb), "mm/dd/yyyy")
    End If
    If mdlMain.MoisTraite = 12 Then
        vFin = Format$(DateSerial(mdlMain.AnTraite + 1, 1, 1), "mm/dd/yyyy")
    Else
        vFin = Format$(DateSerial(mdlMain.AnTraite, mdlMain.MoisTraite + 1, 1), "mm/dd/yyyy")
    End If
    MakeSQLRLV = "SELECT Releve.* FROM Releve WHERE (((Releve.Operation) = " & FlagOP & ") AND ((Releve.DateCompta) > #" & vDeb & "#) AND ((Releve.DateCompta) < #" & vFin & "#)) ORDER BY Releve.DateCompta;"

Ca me restitue les resultats escomptes

c'est peut-etre un peut confus mais je n'ai pas mieux

Salut

12/03/2007, 14h11
Rrominet

loreleï85 : Tu as pu résoudre ton problème ?

Je rencontre le même rpbolème que toi et je ne vois vraiment pas comment faire...

MErci d'avance pour ta réponse :-)