Discussion :

[tamtam64]

Bonjour,

pour des raisons inconnus je ne peux pas utiliser Access dans mon entreprise, j'ai donc décidé de faire la base de données dans Excel (c'est un outil déjà développé que j'adapte).
je souhaitais savoir comment gérer les Dates dans une requete SQL, c'est à dire que j'ai une requête comme la suivante, mais elle ne fonctionne pas .

'je me connecte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ConnectMe()
 
    'Test si on est connecté
    If IamConnected() Then Exit Sub
 
    'Connecter
    Set MyRealConnection = New ADODB.Connection
 
    'Connection
    With MyRealConnection
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "DBQ=" & Fichier & ";HDR=Yes;ReadOnly=False;"
        .Open
    End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
 
    Dim Rct As New Recordset
    With BOARD
        Fichier = .Link_Project.Value & "\DBCollat.xlsx"
    End With
    strSQL = "SELECT * From [Indicateurs$] WHERE [DateT] > '31/05/2020'"
    Rct.Open strSQL, myConnection, adOpenDynamic, adLockPessimistic
 
 
    With ThisWorkbook.Worksheets("TestRs")
        .Range("A1").CopyFromRecordset Rct
    End With
 
    connexion.DisconnectMe
 
End Sub

j'ai un peu tout essayé c'est à dire format Date, Format texte ISO … .
Je suis conscient qu'il faut adapter peut être aussi le format de la cellule de la table Excel. Pour ce faire j'ai mis 5 lignes destiner à fixer le type de données de chaque champs dans ma feuille Excel.
Merc d'avance

[tamtam64]

Trouvé !!
on met en texte dans la base sous le format ISO .

DSL pour le derangement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
 
    Dim Rct As New Recordset
    With BOARD
        Fichier = .Link_Project.Value & "\DBCollat.xlsx"
    End With
    strSQL = "SELECT * From [Indicateurs$] WHERE [DateT] > '2020-06-31'"
    Rct.Open strSQL, myConnection, adOpenDynamic, adLockPessimistic
 
 
    With ThisWorkbook.Worksheets("TestRs")
        .Range("A1").CopyFromRecordset Rct
    End With
 
    connexion.DisconnectMe
 
End Sub

[pijaku]

Bonjour,

Ou peut-être en utilisant des # :

Code :

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

strSQL = "SELECT * From [Indicateurs$] WHERE [DateT] > #31/05/2020#"

[laurent_ott]

En utilisant des # mais aussi en mettant la date au format anglo-saxon.

[Thumb down]

bonjour,

Code :

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

 strSQL = "SELECT * From [Indicateurs$] WHERE [DateT] >#2020-06-31#"

Code :

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

1
2
3
4
5
Dim CM As New ADODB.Command
 strSQL = "SELECT * From [Indicateurs$] WHERE [DateT] > ?"
 CM.CommandType = adCmdText: CM.ActiveConnection = MyRealConnection
 CM.CommandText = strSQL: CM.Parameters.Append CM.CreateParameter("DateT", adDate, adParamInput, Value:="30/06/2020")
 Set Rct = CM.Execute

[Pierre Fauconnier]

Salut.

L'idée de ThumbDown de passer par des paramètres est pour moi la meilleure. Recomposer la requête sql par concaténation est rarement n'est jamais une bonne idée. Ca amène plein de problèmes avec certains textes (ceux contenant des apostrophes, par exemple), les valeurs numériques et les valeurs de dates.

Mais tant qu'à faire, autant passer la date plutôt qu'une chaine, car si doute sur l'ordre des valeurs de la date (dmy ou mdy, par exemple comme dans "03/04/2020"), on risque les surprises. Puisque le paramètre est explicitement passé comme adDate, alors il faut passer une date, quitte à recomposer la date via DateSerial(...), et pas une chaine qui va devoir être interprétée en date par adodb, .

[Thumb down]

je suis d’accord Pierre.

[Pierre Fauconnier]

C'est la petite virgule en plus

J'aime bien cette proposition d'utiliser les paramètres adodb (d'où le ). Ils sont là pour ça et simplifient le code, en déléguant à la couche ADODB le soin de passer la chaîne sql et les paramètres au driver ADODB. C'est plus pro que de concaténer en se mêlant les pinceaux avec des apostrophes (pour les textes), des # (pour les dates, qu'il faut formater à la sauce ISO 8601 si on veut que ça passe sans problème) et la gestion des séparateurs pour les valeurs numériques lorsque l'on intègre des variables VBA (ce qui sera a priori toujours le cas, passer des valeurs en dur dans la chaine SQL n'ayant pas beaucoup de sens)