Dear all,
I'm trying to insert recond into access database. the data type is text.
I have used the following codes and an exception of "Syntax error in Insert statement" occured on " myInsertCommand.ExecuteNon
Query()"
Dim cn As New OleDb.OleDbConnection("Pro
vider=Micr
osoft.Jet.
OLEDB.4.0;
Data Source=C:\MTAFile\MTADB1.m
db")
Dim myInsertCommand As New OleDb.OleDbCommand()
myInsertCommand.CommandTyp
e = CommandType.Text
myInsertCommand.CommandTex
t = "Insert EventLog (EmployeeID,Forename,Surna
me,Event,D
ate,Time,P
osition,Ph
oto) VALUES(?,?,?,?,?,?,?,?)"
myInsertCommand.Connection
= cn
myInsertCommand.Parameters
.Add("Empl
oyeeID", OleDb.OleDbType.VarChar, 25)
myInsertCommand.Parameters
.Add("Fore
name", OleDb.OleDbType.VarChar, 25)
myInsertCommand.Parameters
.Add("Surn
ame", OleDb.OleDbType.VarChar, 25)
myInsertCommand.Parameters
.Add("Even
t", OleDb.OleDbType.VarChar, 25)
myInsertCommand.Parameters
.Add("Date
", OleDb.OleDbType.VarChar ,25)
myInsertCommand.Parameters
.Add("Time
", OleDb.OleDbType.VarChar ,25)
myInsertCommand.Parameters
.Add("Posi
tion", OleDb.OleDbType.VarChar ,25)
myInsertCommand.Parameters
.Add("Phot
o", OleDb.OleDbType.VarChar ,25)
myInsertCommand.Parameters
("Employee
ID").Value
= "12345"
myInsertCommand.Parameters
("Forename
").Value = "Tom"
myInsertCommand.Parameters
("Surname"
).Value = "Walker"
myInsertCommand.Parameters
("Event").
Value = "Event1"
myInsertCommand.Parameters
("Date").V
alue = "12/11/2006"
myInsertCommand.Parameters
("Time").V
alue = "12:16:32"
myInsertCommand.Parameters
("Position
").Value = "University"
myInsertCommand.Parameters
("Photo").
Value = "Photo1"
myInsertCommand.Connection
.Open()
myInsertCommand.ExecuteNon
Query()
myInsertCommand.Connection
.Close()
myInsertCommand.Dispose()
Any one could help please?
Thank you very much
Kind Regards
Start Free Trial