format date et sql

Version imprimable

28/10/2009, 14h15
munity

format date et sql

salut le phorum

je me bats depuis 4 heures avec une requête sql intégré dans du vba
je m'explique
j'ai un lien DAO avec une base access
dans cette base j'ai une colonne Date au format Date/heure
je souhaiterai par invite lors du lancement du vba choisir une période
seulement le problème c'est que j'ai l'erreur
type de données incompatibles dans le cas ou j'inscris cette ligne de code pour mes variables

Code:

Période = "((Date)>='" + dDateDéb + "' And (Date)<= '" + dDateFin + "')"

ou cette erreur
erreur de syntaxe dans la date de l'expression
si je modifie pour le format spécifique des date dans le sql

Code:

Période = "((Date)>=#" + dDateDéb + "# And (Date)<= #" + dDateFin + "#)"

les erreurs se manifestent à l'arrivée de la ligne ci dessous ??
et voici le sql qui va taper dans la table

Code:

recordset.Open ("SELECT * FROM T002_SAISIE_QUALIF WHERE " & Période & "ORDER BY Séquentiel;"), cnx

une personne charitable pourrait elle m'indique ou le bas blesse:cry::cry:

merci

munity
28/10/2009, 15h16
Jean-Philippe André

salut,
la fonction Date est spécifique à VBA, elle renvoie la date du jour, il faut modifier le champ en l'encadrant de crochets :

Code:

Période = "([Date]>=#" + dDateDéb + "# And [Date]<= #" + dDateFin + "#)"

qui soit dit en passant peut être remplacé par :

Code:

Période = "([Date] BETWEEN #" + dDateDéb + "# And #" + dDateFin + "#)"

salut jpcheck

merci pour ta réponse mais j'ai toujours le même problème quelquesoit l'instruction sql AND ou BETWEEN
Dans le doute au cas ou j'aurais foiré à un autre endroit (j'en doute mais on sait jamais) je mets le code

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
Public cnx As ADODB.Connection
Public recordset As ADODB.recordset
Sub ConnectDB(ByRef cnx As ADODB.Connection, ByVal strPath As String)
'Définition répertoire et chemin base
    strPath = "c:\TRAITEMENT.mdb"
'Test si fichier accessible
     If Len(Dir(strPath)) > 0 Then
        Set cnx = New ADODB.Connection
            If cnx.State <> adStateClosed Then cnx.Close
'Définition du pilote de connexion
            cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
            cnx.ConnectionString = strPath
'Ouverture de la base de données
        cnx.Open
    Else
        MsgBox "La base n'a pas pu être trouvée" & vbCrLf & _
                strPath & vbCrLf & _
                "n'est pas un chemin valide.", vbCritical + vbOKOnly
    End If
End Sub
Public Sub QUALIF()
    Connexion_BDD.ConnectDB cnx, strPath
 
    Set recordset = New ADODB.recordset
       recordset.CursorType = adOpenStatic
    Dim dDateDéb, dDateFin As String
    Dim dDatePériode As String
  Dim data_recherchee As String
    'data_recherchee = Sheets("Gestion BDD Nécrologie").rechercher_data_necro.Value
 
    Vider_Liste_Qualif
 
    dDateDéb = Sheets("QUALIFICATION").TextBox1.Value
    dDateFin = Sheets("QUALIFICATION").TextBox2.Value
 
    If IsDate(dDateDéb) Or IsDate(dDateFin) Then
        Période = "([Date] BETWEEN #" + dDateDéb + "#  And #" + dDateFin + "#)"
        Else
        Période = ""
    End If
 
    'récupération de la table Qualif
     'If (detect_num(data_recherchee)) Then
    recordset.Open ("SELECT * FROM T002_SAISIE_QUALIF WHERE " & Période & "ORDER BY Séquentiel;"), cnx ' ORDER BY Séquentiel"), cnx
    i = [C_Sequentiel].Row + 1
    While Not recordset.EOF
        For j = 1 To recordset.Fields.Count
            Sheets("QUALIFICATION").Cells(i, j) = recordset(j - 1)
        Next
        i = i + 1
        recordset.MoveNext
    Wend
    'End If
 
End Sub

28/10/2009, 15h54
Jean-Philippe André

ajoute une espace avant le ORDER BY, ca devrait débloquer...

quel est le numéro et la description de l'erreur qui reste après cela ?
28/10/2009, 16h01
munity

re

ajout de l'espace comme ci dessous

Code:

recordset.Open ("SELECT * FROM T002_SAISIE_QUALIF WHERE " & Période & " ORDER BY Séquentiel;"), cnx

avec comme variable

Code:

Période = "([Date] BETWEEN '#" + dDateDéb + "#' And '#" + dDateFin + "#')"

pour la syntaxe ci dessus le message est
"Type de données incompatible dans l'expression du critère"

Code:

Période = "[Date] BETWEEN #" + dDateDéb + "# And #" + dDateFin + "#"

pour la syntaxe ci dessus le message est
"erreur de syntaxe dans la date dans l'expression"

pour les 2 erreurs j'ai le même numéro :calim2::calim2:
le numéro d'erreur est le suivant
erreur d'execution
'-2147217913 (80040e07)
:(
28/10/2009, 18h19
casavba
et si tu testais comme suit :

Code:

période = "([Date] BETWEEN '" + dDateDéb + "' And '" + dDateFin + "')"

NB: Evites dans tes projets d'utiliser des noms propres à Excel, Access... ;

Aussi, j'ai remarqué dans la fin de ton code, tu ne fermes pas la base Access et tu ne vides pas la mémoire.

essaies de rajouter ce bout de code à la fin du tien :
Code:

1 2 3 cnx.Close Set recordset = Nothing Set cnx = Nothing

Bonsoir
essai comme ceci

Code:

1
2
3
4
5
    If IsDate(dDateDéb) Or IsDate(dDateFin) Then
        Période = "Date Between #" & dDateDéb & "#And#" & dDateFin & "#"
        Else
        Période = ""
    End If

Bonne nuit

29/10/2009, 09h12
munity

salut le phorum

merci pour les conseils casavba (j'ai bien ajouté ta fermeture de base c vrai que j'avais omis cette partie) et Abed_H mais par contre pour la syntaxe toujours le même problème d'erreur
je desespère de trouver la solution
a savoir que dans la base access le format de la colonne [date] est un format date/heure c'est pour cela que je comprends pas le problème d'erreur

:(:cry::(:cry:
29/10/2009, 09h52
jfontaine

Bonjour,

Peut etre pas la solution mais a tester

Code:

Période = "Date Between '" & datevalue(dDateDéb) & "' And '" & datevalue(dDateFin) & "'"

Avec ' ou #
29/10/2009, 09h58
munity

salut jfontaine

merci pour la proposition mais non toujours pas snif snif snif

à la ligne

Code:

Recordset.Open ("SELECT * FROM T002_SAISIE_QUALIF WHERE " & période & " ORDER BY Séquentiel;"), cnx ' ORDER BY Séquentiel"), cnx

toujours le même message
"type de données incompatibles dans l'expression du critères"

c'est à desespérer

munity
29/10/2009, 10h33
Jean-Philippe André

Salut,

comme tu manipules une requête dans Access, le format à utiliser reste #MM/DD/YYYY#.

Passe par une variable strSQL qui contient la requête, et affiches nous son contenu pour qu'on voit à quel niveau il y a une erreur potentielle.

salut jp

ci joint le code utilisé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim dDateDéb As Date
    Dim dDateFin As Date
    Dim Période As String
 
dDateDéb = Sheets("QUALIFICATION").Range("Date_Début").Value
    dDateFin = Sheets("QUALIFICATION").Range("Date_Fin").Value
 
    If IsDate(dDateDéb) Or IsDate(dDateFin) Then
        période = "(Date BETWEEN '" & dDateDéb & "' And '" & dDateFin & "')"
        Else
        période = ""
    End If
 
    'récupération de la table Qualif
     'If (detect_num(data_recherchee)) Then
     'recordset.Open ("SELECT * FROM T002_SAISIE_QUALIF ORDER BY Séquentiel;"), cnx ' ORDER BY Séquentiel"), cnx
 
     strSQL = "SELECT * FROM T002_SAISIE_QUALIF WHERE " & période & " ORDER BY Séquentiel;"
    recordset.Open (strSQL), cnx ' ORDER BY Séquentiel"), cnx

et voici le contenu du strSQL

Code:

SELECT * FROM T002_SAISIE_QUALIF WHERE (Date BETWEEN '01.10.2009' And '31.10.2009') ORDER BY Séquentiel;

mais je ne vois pas ou je dois lui indiquer qu'il doit inverser la date "#mm/dd/yyyy""
et qu'il me récupére bien une date au format france depuis excel afin de comparer les 2

:calim2:

29/10/2009, 11h09
jfontaine
Ta requete devrait plutot ressembler a quelques chose comme ca
Code:

1 2 SELECT * FROM T002_SAISIE_QUALIF WHERE ([Date] BETWEEN '01/10/2009' And '31/10/2009') ORDER BY Séquentiel;
Pour etre sur que le format utiliser est le meme dans les 2 systemes j'utilise datevalue.
Cela évite surtout que le 1 octobre (01/10/2009) devienne dans le format US le 10 janvier (10/01/2009)
29/10/2009, 11h15
munity

oups j'avais oublié les crochets je les ai ajouté mais toujours le même problème
"type de données incompatibles dans l'expression du critères"
29/10/2009, 11h31
Jean-Philippe André

2 choses :
- les dates entre #
- au format US #MM/DD/YYYY#

la requête que tu dois obtenir sera la suivante :

Code:

SELECT * FROM T002_SAISIE_QUALIF WHERE ([Date] BETWEEN #10/01/2009# And #10/31/2009#) ORDER BY Séquentiel;

j'ai trouvé grace à vous tous et à un autre forum également:D

ci dessous la soluce proposée (peut être plus simple mais en tout cas cela marche en l'état)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim dDateDéb As String Dim dDateFin As String Dim Période As String dDateD = Sheets("QUALIFICATION").Range("Date_Début").Value dDateF = Sheets("QUALIFICATION").Range("Date_Fin").Value dDateDéb = MakeUSDateD(dDateD) dDateFin = MakeUSDateF(dDateF) Période = "([Date] BETWEEN " & [dDateDéb] & " And " & [dDateFin] & ")"
et création d'une fonction comme suit pour mettre au format US les dates
Code:

1 2 3 4 5 6 7 8 9 Function MakeUSDateD(dDateD As Variant) If Not IsDate(dDateD) Then Exit Function MakeUSDateD = "#" & Month(dDateD) & "/" & Day(dDateD) & "/" & Year(dDateD) & "#" End Function Function MakeUSDateF(dDateF As Variant) If Not IsDate(dDateF) Then Exit Function MakeUSDateF = "#" & Month(dDateF) & "/" & Day(dDateF) & "/" & Year(dDateF) & "#" End Function
j'ai également ajouter dans les cellules excel ou la date doit être saisie une validation obligeant la personne a saisir un date et pas autre chose
on sait jamais.....

merci encore j'ai mis 1 journée pour trouver mais c'est bon j'espère que cela aidera d'autres personnes qui ont ce type de problème

munity