Quote:
Originariamente inviato da tomino87
Codice:
Private Sub Comando0_Click()
Dim db As DAO.Database
Dim sql As String
Set db = CurrentDb
sql = "INSERT INTO prova_insert (date,id) VALUES ('19/05/2009',2)"
db.Execute sql
Set db = Nothing
End Sub
|
C'è decisamente troppo codice per quello che devi fare.
Nel tuo caso specifico non so perchè dia errore, ma puoi risolvere drasticamente con :
1. Se vuoi concatenare :
Codice:
DoCmd.RunSql "INSERT INTO prova_insert ( date, id ) VALUES ( #19/05/2009#, 2 )"
> Meglio usare i caratterri sharp " # " per delimitare le date, in quanto gli apici possono dare problemi...
2. Se, meglio ancora, vuoi usare i parametri, vedi mio esempio qui :
http://www.hwupgrade.it/forum/showthread.php?t=1977950
