Discussion :

[loreleï85]

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 :

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

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!

[SfJ5Rpw8]

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

[loreleï85]

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

Code :

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

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

[SfJ5Rpw8]

as tu observé la chaine générée.... et testé sous acces... par exemple???

[loreleï85]

et bien la chaîne générée a des # devant la date

[Delbeke]

Et si tu essayais

Code :

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

sql = "SELECT * FROM T_CONCOURS WHERE DATE_CONCOURS = #" & Format(Calendar1.Value,"mm/dd/yyyy") & "#"

[loreleï85]

Et bien malheureusement cela ne marche pas non plus...

[Vld44]

as tu observé la chaine générée.... et testé sous acces... par exemple???

[BM42]

Salut

pourquoi ?

Code :

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

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

Au lieu de :

Code :

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

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

[dontDeleteMe]

il me semble qu'il faut des ' et pas des #

[loreleï85]

J'ai déjà tester cela et ça ne fonctionne pas plus.

Au lieu de :

Code :

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

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 :

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

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!

[BM42]

Essai :

Code :

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

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

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

[ProgElecT]

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 :

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

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

Code :

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

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 :

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

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 :

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

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

[badrel]

facilement tu peut faire comme ça

Code :

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

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

et ca va marché tres bien.
Déjà tester sur 6 projet.

[Hatchepsout]

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

Code :

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

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

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

[vb]

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

Code :

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

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

[JACQUEY]

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 :

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

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

[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 :-)