與值更新訪問數據網格

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

您的參數需要與查詢中使用的順序相同。