Private
Sub ToolStripButton8_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton8.Click
Dim objCon As
New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath &
"\INVILL.accdb;")
Dim objComm As
New OleDbCommand()
objComm.CommandText =
"INSERT INTO Employee(EMP_NAME,EMP_POSITION)" & _
" VALUES('" & Trim(TextBox11.Text) &
"','" & Trim(TextBox12.Text) &
"')"
objComm.Connection = objCon
Try
objCon.Open()
objComm.ExecuteNonQuery
Catch ex As Exception
MsgBox(ex.Message)
Finally
objComm = Nothing
objCon.Close()
objCon = Nothing
End Try
Call login()
End Sub
Private Sub login()
Dim objCon As
New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath &
"\INVILL.accdb;")
Dim objComm As
New OleDbCommand()
objComm.CommandText = "INSERT INTO Login(Position,Username)" & _
" VALUES('" & Trim(TextBox8.Text) &
"','" & Trim(TextBox7.Text) &
"')"
MsgBox("Adding data successfull.", MsgBoxStyle.Information,
"Add Employee Data")
objComm.Connection = objCon
Try
objCon.Open()
objComm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
objComm = Nothing
objCon.Close()
objCon = Nothing
End Try
End
Sub
为什么当我要保存用户的Username和Position在Login
table时,却出现错误“Syntax
error in INSERT INTO stament”?当我只是保存Username时，就没有出现问题。是什么原因？保存在Employee的table没有任何问题，问题只出现在Login
的table。
