Discussion :

[Ikes72000]

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 :

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

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 :

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

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.

[riaolle]

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

Code :

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

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

[vttman]

En passant ...
Essayer ceci

Code :

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

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

[Ikes72000]

En passant ...
Essayer ceci

Code :

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

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

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

[Invité]

Bonjour,

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

[Ikes72000]

Merci dysorthographie, ton code fonctionne.

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

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

Code :

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

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

et ce que fait ton code

Code :

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

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

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

[Ikes72000]

Oki, merci.

[Invité]

Code :

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

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]