与值更新访问数据网格

Question

无法使用下面的功能

Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpdate.Click 


Dim cn As New OleDbConnection(Con) 
     Dim objUpdateCommand As New OleDbCommand 
     Dim objDataAdapter As New OleDbDataAdapter 
     cn.Open() 
     Const SQLExpression As String = "UPDATE product SET Value = @pValue where owner = @powner and Item = @pItem;" 
     objUpdateCommand = New OleDbCommand(SQLExpression, cn) 

     With objUpdateCommand 
      .Parameters.Add("@powner", OleDbType.VarChar, 10, "owner") 
      .Parameters.Add("@pItem", OleDbType.VarChar, 8, "Item") 
      .Parameters.Add("@pValue", OleDbType.VarChar, 10, "Value") 
     End With 

     objDataAdapter.UpdateCommand = objUpdateCommand 

     MsgBox("Table Updated") 

End Sub 

Answer 1

设置UpdateCommand属性不执行命令来更新表中的访问。您需要调用表格适配器的更新方法。

查看更多信息here

Answer 2

你不必有一个适配器只带或不带参数运行的更新语句。 这个替换您的代码（objDataAdapter.UpdateCommand = objUpdateCommand）：

Dim UpdateResultValue as Integer 

UpdateResultValue = objUpdateCommand.ExecuteNonQuery 

If UpdateResultValue = 0 Then 
    msgbox "Table Update Failed" 
Else 
    msgbox "Table Updated" 
End if 

如果返回一个零，它不工作（UpdateResultValue = 0）。当您不从数据库表中返回值时可能会使用ExecuteNonQuery（可能过于简化）。

Answer 3

您的参数需要与查询中使用的顺序相同。