probleme de date, Access et SQL

Version imprimable

Bonjour,

je develope un programme qui integre une base de donnee access.
je cherche a faire un moteur de recherche personnalisé ( pour l'instant, je peux juste trier par date, identifiant...), permettant, pour l'instant, d,afficher que les messages allant de telle date, a telle autre date.

je fais la selection de la date de debut, heure de debut et de la date de fin, heure de fin avec des DTPicker ( dtpDateDebut, dtpHeureDebut, dtpHeureFin et dtpDateFin).
quand je clique sur mon bouton rechercher, je fais ceci:
Code:

1 2 3 4 5 6 7 8 9 Private Sub boutonRecherche_Click() perso = True 'superglobal m'indiquant si je suis en recherche perso ou non DateValideBDDDebut = dtpDateDebut.Value & " " & DTPHeureDebut DateValideBDDFin = dtpDateFin.Value & " " & DTPHeureFin '***********appel de la fonction SQL fntCreateSQL 'format dans la Bdd2006-04-11 11:34:43 End Sub
DateValideBDD[...] sont des super globals de type String

ma fntCreatSQL me sert a generer ma requete SQL (vous l'auriez deviné je suis sur :p )

au final, ma requete SQl ressemble a ceci:
( je le sais grace a un debug.print
Code:

1 2 SELECT Messages.* FROM Messages WHERE Messages.DateTime > 2006-04-12 10:02:42 AND Messages.DateTime > 2006-04-12 11:02:42;
Elle me semble on ne peut plus correcte
mes dates sont construites quand je clique sur le bouton, je le rappel.

si j'ouvre ma Bdd access:
Les dates ont ce format: 2006-04-11 11:34:43 (donc exactement comme la mienne)

et pourtant, vb6 m'indique une erreur:
Run-time error 3075
Syntax error(missing operator) in query expression
'Messages.DateTime > 2006-04-12 10:02:42 AND Messages.DateTime > 2006-04-12 11:02:42'.

pourquoi ??

PS: l'erreur me renvoit apres mon print debug, donc celui ci est celui executé par SQL..

12/04/2006, 17h14
Mymi

Peux-tu montrer ta fntCreatSQL?

C'est peut-être du au fait que tu passes des strings plutôt qu'un format DateTime.
12/04/2006, 17h17
SfJ5Rpw8

sous access je crois qu'il faut encadrer les dates de # :wink:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Function fntCreateSQL(Optional ForceOrderByDate As Boolean) As String  '///  Sert à créer une requête SQL
    '***  Fonction qui produit un requête SQL pour trier les messages
    Dim SQLString As String
    Dim TableName As String
 
    Debug.Print "SQL1"
    mnuRClickDBGArcDel.Caption = IIf(chkArchives.Value = 1, "Supprimer les messages", "Archiver les messages")
    frmHistory.cmdDelMessages.Caption = IIf(chkArchives.Value = 1, "Supprimer", "Archiver") & " les messages"
    frmHistory.cmdDelMessages.ToolTipText = IIf(chkArchives.Value = 1, "Suppression des messages des archives", "Déplacement des messages vers les archives")
    If IsUpdating Then Exit Function
 
    TableName = IIf(chkArchives.Value = 1, "Archives", "Messages")
 
    If (optSortBy(0).Value And optShowOnly(0) And (chkArchives.Value = 0) And (perso = False)) Or ForceOrderByDate Then
        datMessages.RecordSource = TableName
        datMessages.Refresh
        If datMessages.Recordset.RecordCount > 0 Then datMessages.Recordset.MoveLast
        Exit Function
    End If
    Debug.Print "SQL2"
    '///  Partie SELECT (Choisir quels messages à afficher)
    SQLString = SQLString & " SELECT " & TableName & ".*"
 
    '///  Choisis quel tables utiliser
    SQLString = SQLString & " FROM " & TableName
 
    '///  Choisir quels messages à afficher
'        SQLString = SQLString & "1" '"1, Messages.MsgType = 2, Messages.MsgType = 3, Messages.MsgType = 4, Messages.MsgType = 5, Messages.MsgType = 6, Messages.MsgType = 7"
    If optShowOnly(1).Value = True Then
        SQLString = SQLString & " WHERE " & TableName & ".MsgType = " & MsgAlarm & "Or " & TableName & ".MsgType = " & MsgAlarmUnconfirmed
    ElseIf optShowOnly(2).Value = True Then
        SQLString = SQLString & " WHERE " & TableName & ".MsgType = " & MsgSystem
    ElseIf perso = True Then
         SQLString = SQLString & " WHERE " & TableName & ".DateTime > " & DateValideBDDDebut '& " AND " & TableName & ".DateTime < " & DateValideBDDFin & " "
    '///  Etc....
    End If
 
    '///  Partie ORDER BY du string SQL
    If optSortBy(0).Value = True Then
        SQLString = SQLString & " ORDER BY " & TableName & ".DateTime"
    ElseIf optSortBy(1).Value = True Then
        SQLString = SQLString & " ORDER BY " & TableName & ".UnitNum"
    ElseIf optSortBy(2).Value = True Then
        SQLString = SQLString & " ORDER BY " & TableName & ".UnitName"
    ElseIf optSortBy(3).Value = True Then
        SQLString = SQLString & " ORDER BY " & TableName & ".Description"
    ElseIf optSortBy(4).Value = True Then
        SQLString = SQLString & " ORDER BY " & TableName & ".Value"
    End If
 
    '///  Indique la fin de la requête
    SQLString = SQLString & ";"
 
    Debug.Print SQLString
    datMessages.RecordSource = SQLString
    datMessages.Refresh ' c'est ici que vb6 me mene avec l'erreur
    If datMessages.Recordset.RecordCount > 0 Then datMessages.Recordset.MoveLast
End Function

--------------------------------------

C'est peut-être du au fait que tu passes des strings plutôt qu'un format DateTime.
C'est ce que je pense aussi...
donc si je mets mes variables en DateTime, ca devrai marcher ??

PS:

Au fait, ce n,est pas moi qui ai fait la fonction...
je l'ai explique dans un autre post, je suis stagiaire en informatique, et je dois debugger une application existante (et en passant, c,est la premiere fois que je fais du vb :p )

12/04/2006, 17h18
Megaxel

D'accord avec bbil !
12/04/2006, 17h20
riesseg

Citation:

Envoyé par bbil

sous access je crois qu'il faut encadrer les dates de # :wink:

correcte !!!

En fait les format date en access ne sont pas les meme qu'en VB. je pense que le moteur jet ne transforme pas les dates dans sa recherche SQL.

J'ai eu le meme sousis que toi il y a quelque temps et j'utilisé
Code:

1 2 SELECT REPLACE(Right('/' + CONVERT(varchar,DatePart(dd,DateLimite)),2),'/','0') + '/' + REPLACE(Right('/' + CONVERT(varchar,DatePart(mm,DateLimite)),2),'/','0') + '/' + CONVERT(varchar,DatePart(yy,DateLimite)) as DateLimite
J'obtenait ainsi ma date en format Normal...

Je sais pas si c'est bien ça que tu veux

Sinon s'il s'agit d'une recherche, Essai cela # :

Code:

Messages.DateTime > #2006-04-12 11:02:42#

12/04/2006, 17h24
riesseg

Aller, pour les archives, je mets en clair la solution:

le query doit ressembler a:

Code:

SELECT Messages.* FROM Messages WHERE Messages.DateTime > #2006-04-12 10:02:42# AND Messages.DateTime > #2006-04-12 11:02:42#;

auand on fait un query sous access :D
12/04/2006, 17h30
Xan

Juste une question, qui pourra peut-être te sembler bête...

Pourquoi tu utilises deux fois le signe ">" dans tes conditions? Est-ce que ca ne rend pas caduque la date la plus ancienne?
12/04/2006, 17h42
riesseg

Code:

SELECT Messages.* FROM Messages WHERE Messages.DateTime > #2006-04-12 10:02:42# AND Messages.DateTime < #2006-04-12 11:02:42#;

:p