Syntax error in INSERT INTO statement

2009年6月9日 1:32Nageh Omran

0
登录进行投票
I have this code to save data in access database and i have this error
Syntax error in INSERT INTO statement
code

Dim

f1, f2, f3, f4, f5, f6, f7, f8, f9, f10 As String

Dim f11, f12, f13, f14, f15, f16, f17, f18 As String

f1 =

"'" & TextBox1.Text & "',"

f2 =

"'" & DateTimePicker1.Value & "',"

f3 =

"'" & ComboBox1.Text & "',"

f4 =

"'" & TextBox2.Text & "',"

f5 =

"'" & TextBox3.Text & "',"

f6 =

"'" & TextBox4.Text & "',"

f7 =

"'" & TextBox5.Text & "',"

f8 =

"'" & TextBox6.Text & "',"

f9 =

"'" & TextBox8.Text & "',"

f10 =

"'" & ComboBox3.Text & "',"

f11 =

"'" & TextBox7.Text & "',"

f12 =

"'" & TextBox9.Text & "',"

f13 =

"'" & TextBox10.Text & "',"

f14 =

"'" & TextBox11.Text & "',"

f15 =

"'" & ComboBox4.Text & "',"

f16 =

"'" & DateTimePicker2.Value & "',"

f17 =

"'" & DateTimePicker3.Value & "',"

f18 =

"'" & ComboBox2.Text & "'"

S =

"INSERT INTO Cust "

S = S &

"(sName,Birth_Date,Gender,Nationality,Address,Tel,Mobile,Fax,ID_Num,ID_Type,"

S = S &

"E_mail,Account_Num,Maximum,Card_Name,Card_Type,First_Date,Last_Date,Work_Ttpe)"

S = S & f1 & f2 & f3 & f4 & f5 & f6 & f7 & f8 & f9 & f10

S = S & f11 & f12 & f13 & f14 & f15 & f16 & f17 & f18 &

")"

Cmd.CommandText = S

H = Cmd.ExecuteNonQuery

MsgBox(H &

"record Saved")
i want to know where is the error in this code thanks for help
- 回复
- 引用