语法错误插入语句vb.net

Question

请帮助解决我这个问题..即时通讯非常新的这 我不能添加新的员工到表员工..每当我尝试添加它显示语法错误插入语句

Public Class AddNewEmployee 

    Dim dr As OleDbDataReader 
    Dim da As OleDbDataAdapter 
    Dim ds As DataSet 
    Dim conn As New OleDbConnection(My.Settings.rayshadatabaseConnectionString) 
    Dim cmd As OleDbCommand 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

     conn.Open() 
     Try 
      Dim str As String = "INSERT INTO employee" _ 
      & "(Employee Name, IC Number, HP Number, Address)" _ 
      & " Values (" _ 
      & "'" & txtEmployeeName.Text & "', " _ 
      & "'" & txtIC_Number.Text & "'," _ 
      & "'" & txtHP_Number.Text & "'," _ 
      & "'" & txtAddress.Text & "')" 

      cmd = New OleDbCommand(str, conn) 
      Dim i As Integer = cmd.ExecuteNonQuery() 
      If i > 0 Then 
       MessageBox.Show("Record Succesfully added.", "Process Completed", MessageBoxButtons.OK, MessageBoxIcon.Information) 
      Else 
       MessageBox.Show("Adding failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
      End If 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     Finally 
      conn.Close() 
      cmd.Dispose() 
     End Try 
     frmEmployee.loadR() 
     Me.Close() 
    End Sub 
End Class 

Answer 1

替换此，

Dim str As String = "INSERT INTO employee" _ 
    & "(Employee Name, IC Number, HP Number, Address)" _ 
    & " Values (" _ 
    & "'" & txtEmployeeName.Text & "', " _ 
    & "'" & txtIC_Number.Text & "'," _ 
    & "'" & txtHP_Number.Text & "'," _ 
    & "'" & txtAddress.Text & "')" 

与此，

Dim str As String = "INSERT INTO employee" _ 
    & "([Employee Name], [IC Number], [HP Number], [Address])" _ 
    & " Values (" _ 
    & "'" & txtEmployeeName.Text & "', " _ 
    & "'" & txtIC_Number.Text & "'," _ 
    & "'" & txtHP_Number.Text & "'," _ 
    & "'" & txtAddress.Text & "')" 

感谢 Manoj