Discussion :

[gdiamond]

Bonjour, j'essaie d'insérer ces données (de vba excel) à une table dans Access mais ça me génère une erreur

Code :

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

1
2
3
4
dates = Cells(4, "E").Value ' contient 9/11/2013 '
heures = "7:30"
connDB.Execute "INSERT INTO DeptCommande (IDDept, DateIntervention, HeureIntervention, bilatérale) VALUES (4,  "& #dates# &" , "&heures&" , true)"
'al

[Philippe Tulliez]

Bonjour,
Si tu passais par une variable de type String pour placer ta requête, tu verrais qu'il y a un problème dans la concaténation.
Petit exemple ci-dessous (Attention, je n'ai pas vérifié si la syntaxe de la requête SQL est correcte).

Code :

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

1
2
3
4
5
 Dim txtSql As String, dates As Date, Heures As Date
 dates = Cells(4, "E").Value ' contient 9/11/2013 '
 Heures = "7:30"
 txtSql = "INSERT INTO DeptCommande (IDDept, DateIntervention, HeureIntervention, bilatérale) VALUES (4,  " & "#" & dates & "#" & ", " & Heures & " , true)"
 Debug.Print txtSql