Procédure Form_Open,problème de requête Insert into
Bonsoir,
J'ai un problème avec la requête insert into ou du moins le Execute d'après le débogueur. J'ai testé l'insert into par une requête SQL via le menu requête dans Access et ce la fonctionne.
Donc qu'es ce que j'ai mal fait?
Si vous avez la solution ou une piste vers la solution, je suis tout ouï.
Code:
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
|
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Dim cnConnection As ADODB.Connection
Set cnConnection = New ADODB.Connection
cnConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
cnConnection.ConnectionString = CurrentProject.Path & "\xxxxxxxxx.mdb"
cnConnection.Open
Dim cmdCommand As ADODB.Command
Set cmdCommand = New ADODB.Command
cmdCommand.ActiveConnection = cnConnection
Dim strSql As String
strSql = "INSERT INTO log "
strSql = strSql & " (dateLog,type,position,tableLog,commentaire)"
strSql = strSql & " VALUES ( '" & Now() & "','Information','Debut','Aucune','Lancement du formulaire')"
Debug.Print strSql
cmdCommand.CommandText = strSql
cmdCommand.Execute
cnConnection.Close
End Sub |
Citation:
Erreur d'execution '-2147217900 (80040e14)':
Erreur de syntaxe dans l'instruction INSERT INTO
La table log :
numLog : NuméroAuto
dateLog : Date/Heure
type : Texte (50)
position : Texte(50)
tableLog : Texte(50)
commentaire : Texte(255)
Merci d'avance
