Discussion :

[jihemel34]

Bonjour,

Je cherche à faire des INSERT dans un classeur xlsx en DAO. tout fonctionne bien sauf pour les dates.
Le code suivant me renvoie une erreur de syntaxe dans l'instruction SQL.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub TestDates()
Dim ConnexionDonnees As ADODB.Connection     'Connexion au classeur des données
Dim Enregistrements As ADODB.Recordset
Dim Commande As ADODB.Command
Dim Requete As String
Dim FichierDonnees As String
 
'On récupère le chemin du classeur
    FichierDonnees = ThisWorkbook.Path & "\Comptes Familiaux - Donnees.xlsx"
 
'On ouvre la connexion aux données
    Set ConnexionDonnees = New ADODB.Connection
    With ConnexionDonnees
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & FichierDonnees & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;ReadOnly=False;"""
        .Open
    End With
 
    Requete = "INSERT INTO [Ecritures$] (Date) VALUES (#12/31/2020#)"
 
    Set Commande = New ADODB.Command
    Set Enregistrements = New ADODB.Recordset
        Enregistrements.CursorType = adOpenDynamic
        Enregistrements.LockType = adLockOptimistic
 
    With Commande
        .ActiveConnection = ConnexionDonnees
        .CommandType = adCmdText
        .CommandText = Requete
        .Execute
    End With
 
    Set Commande = Nothing
    Set Enregistrements = Nothing
 
 
End Sub

J'ai fait différents essais. si je mets n'importe quoi entre quotes simples, comme pour une String, ça plante aussi, ce qui tend à prouver que le champ est bien reconnu comme étant de type date (en tout cas pas string)...

Qui peut m'aider ?

[joe.levrai]

Bonjour,

sans aucune conviction , mais on ne sait jamais

Code :

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

Values (" & Format("31/12/2020","#mm/dd/yyyy#") & ")"

[Thumb down]

bonjour,
tous les champs qui porte le même nom qu'un mot réservé comme Date doivent être [encadrées]

Code :

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

Requete = "INSERT INTO [Ecritures$] ([Date]) VALUES (#" & Format("31/12/2020","yyyy-mm-dd") & "#)"

[jihemel34]

Thumb Down, t'es génial (enfin, presque... je dis ça parce que je risque d'avoir encore besoin de tes lumières !)

[Pierre Fauconnier]

Salut.

Perso, je travaillerais avec des paramètres, ou avec un objet recordset en update.

Pour ce qui est des noms de champs, je me doute que tu n'as peut-être pas la main, mais je déconseille tout de même d'utiliser des noms de colonnes qui correspondent à des mots réservés du SQL.

[Thumb down]

Bonjour Pierre,

entièrement d'accord avec tes remarques tant pour le nom des champs que le paramétrage des requêtes!