gestion des dates requete sql sur base Excel

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:

---

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:

---

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

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

DSL pour le derangement

Code:

---

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

---

Bonjour,

Ou peut-être en utilisant des # :

Code:

---

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

---

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

bonjour,

Code:

---

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

---

Code:

---

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

---

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, .

je suis d’accord Pierre.

C'est la petite virgule en plus ;)

J'aime bien cette proposition d'utiliser les paramètres adodb (d'où le :plusser:). 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)


:plusser: