在更新删除记录时没有给出一个或多个必需参数的值

Question

我无法弄清楚这是什么问题，当我从列表视图更新记录时出现一个弹出窗口，显示没有给出一个或多个所需参数的值。

继承人我的代码：

Private Sub BtnUpdate_Click(sender As Object, e As EventArgs) Handles BtnUpdate.Click 
    Try 
     Dim SqlQuery As String = "UPDATE UsersTable Set AccountType = '" & CmbAccountType.Text & "' , Username = '" & TxtUsername.Text & "' , UserPassword = '" & TxtPassword.Text & "' , Firstname = '" & TxtFirstname.Text & "' , Lastname = '" & TxtLastname.Text & "' , Sex = '" & CmbSex.Text & "',Birthdate = '" & DateTimePickerBirthdate.Text & "' , ContactNumber = '" & TxtContact.Text & "' , Address = '" & TxtAddress.Text & "' WHERE UserID = " & id & ";" 
     Dim SqlCommand As New OleDbCommand 
     With SqlCommand 
      .CommandText = SqlQuery 
      .Connection = Conn 
      .ExecuteNonQuery() 
     End With 
     MsgBox("Account successfully updated!") 
     loadlistview() 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

Private Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click 
    Try 
     Dim SqlQuery As String = "DELETE FROM ProductTable WHERE UserID = " & id & ";" 
     Dim SqlCommand As New OleDbCommand 
     With SqlCommand 
      .CommandText = SqlQuery 
      .Connection = Conn 
      .ExecuteNonQuery() 
     End With 
     MsgBox("Account deleted.") 
     loadlistview() 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

Answer 1

的问题是在你在查询中使用的WHERE条件。这样你就可以使用下面的查询

纠正在update查询：

Dim SqlQuery As String = "UPDATE UsersTable Set AccountType = '" & CmbAccountType.Text & "'....................." & _ 
"WHERE UserID = '" & id & "';" '<----- you miss a single quote in where clause. 

在Delete查询：

Dim SqlQuery As String = "DELETE FROM ProductTable WHERE UserID = '" & id & "';"