Problème avec requête SQL INSERT TO sous VBA Excel

Version imprimable

Bonjour,

J'ai un petit soucis avec une requête SQL "INSERT TO", lorsque je l’exécute j'ai un message d'erreur m'indiquant qu'il me manque un opérateur.
Ma table comporte 3 champs, 2 au format texte, le dernier au format date.

Lorsque j'écris les valeurs en dur dans la requête, cela fonctionne.

Code:

cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES ('test', 'test',#12/09/2016 10:00:00#)"

Par contre, avec ce code, ça bloque.
Code:

1 2 3 Public Function WriteFileInfo(ByVal strFilePath As String, ByVal strFileName As String, ByVal dtDateLastModified As Date) cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES ('" & strFilePath & "', '" & strFileName & "', #" & dtDateLastModified & "#)"
D'où peut venir le problème?

Merci.

31/03/2017, 10h16
riaolle

Bonjour,
C'est la date ! Quand on écrit

Code:

#12/09/2016 10:00:00#

les # sont là pour indiquer que c'est un format date. Je m'emmêle toujours les patts avec les dates, mais essaie déjà d'écrire la même chose sans les #.
31/03/2017, 10h16
vttman

En passant ...
Essayer ceci

Code:

cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES ('" & strFilePath & "', '" & strFileName & "', '#" & dtDateLastModified & "#')"
31/03/2017, 10h35
Ikes72000

1 pièce(s) jointe(s)

Citation:

Envoyé par vttman

En passant ...
Essayer ceci

Code:

cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES ('" & strFilePath & "', '" & strFileName & "', '#" & dtDateLastModified & "#')"

Ça ne passe pas non plus, j'ai ce message d'erreur.

Pièce jointe 259510

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Debug.Print TrouveTypeSql("")
Debug.Print TrouveTypeSql(strFileName)
Debug.Print TrouveTypeSql("toto")
Debug.Print TrouveTypeSql(Date)
Debug.Print TrouveTypeSql(Now)
Debug.Print TrouveTypeSql(10.5)
 
SQL= "INSERT INTO Files (Path, File, DateLastModified) VALUES (" & TrouveTypeSql(strFilePath) & "," & TrouveTypeSql(strFileName) & "," & TrouveTypeSql(dtDateLastModified) & ")"
Debug.Print SQL
cnn.Execute  SQL
End Sub
 
 
Function TrouveTypeSql(V)
TrouveTypeSql = Trim("" & V)
If Trim("" & TrouveTypeSql) = "" Then TrouveTypeSql = "Null": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 And InStr(TrouveTypeSql, ":") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd hh:mm") & "#": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd") & "#": Exit Function
If IsNumeric(Replace(TrouveTypeSql, ".", ",")) = True Then TrouveTypeSql = Replace(TrouveTypeSql, ",", "."): Exit Function
TrouveTypeSql = "'" & Replace(TrouveTypeSql, "'", "''") & "'"
End Function

31/03/2017, 11h00
Ikes72000
Merci dysorthographie, ton code fonctionne.

Par contre, maintenant j'aimerai bien comprendre pourquoi ton écriture fonctionne et pas la mienne. :mrgreen:

Quelle différence y-a-t-il entre écrire :

Code:

cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES ('" & strFilePath & "', '" & strFileName & "', '#" & dtDateLastModified & "#')"

et ce que fait ton code
Code:

1 2 cnn.Execute "INSERT INTO Files (Path, File, DateLastModified) VALUES (" & 'strFilePath ' & ", " & 'strFilePath' & "', " & #dtDateLastModified# & ")"
31/03/2017, 11h09
Invité

il faut respecter le format des données acceptable par SQL!
Null si il n't a pas de valeur, Format international si date point en séparateur décimale etc...
31/03/2017, 11h27
Ikes72000

Oki, merci. ;)

1 pièce(s) jointe(s)

Code:

1
2
3
4
5
6
Debug.Print TrouveTypeSql("")
Debug.Print TrouveTypeSql(strFileName)
Debug.Print TrouveTypeSql("L'éléphant")
Debug.Print TrouveTypeSql(Date)
Debug.Print TrouveTypeSql(Now)
 Debug.Print TrouveTypeSql("10,5")

regardes les valeurs qui s'affiche dans le debud raccourci clavier [Ctrl] + [G]