在 Visual Basic 中更新表适配器时出错

Question

我正在尝试通过使用 Visual Basic 形式进行编码来提高我的编程能力。我创建了一个数据库并将其链接到 VB 表单，现在我正在编写一种写入数据库而不是读取的方法。

我正在填充一个数组，该数组又逐行放入数据集中，但是当尝试“更新”表适配器时，我收到以下错误：

当传递包含修改行的 DataRow 集合时，更新需要有效的 UpdateCommand。

我相信这与主键有关，我的适配器正在更新的表没有主键，因为它涉及与另一个包含主键的表的关系。如何更新我的表适配器而不出现此错误？谢谢。

Answer 1

您提到的错误消息与您尝试更新的表上的主键无关，而是在抱怨，因为您没有为适配器提供可用于更新基础表的有效命令。

如果您尝试插入或删除新行而未在适配器上指定插入或删除命令，则会遇到相同的错误。

要解决此问题，请将 UpdateCommand 属性初始化为有意义的值，例如：

'Open connection
Using Conn as new OleDbConnection("connection string")

  'This is the command that will update your table in the database
  Using UpdateCmd = Conn.CreateCommand()

    UpdateCmd.CommandText = "update yourtable set col1 = ?, col2 = ?"

    'Create a parameter to pass in the value of the "col1" column on "yourtable"
    Dim ColOneParam = UpdateCmd.Parameters.Add("@Col1", OleDbType.Integer)
    ColOneParam.SourceColumn = "Name of column in DataTable which corresponds to col1"

    'Create a parameter to pass in the value of the "col2" column on "yourtable"
    Dim ColTwoParam = UpdateCmd.Parameters.Add("@Col2", OleDbType.Integer)
    ColTwoParam.SourceColumn = "Name of column in DataTable which corresponds to col2"

    'Data adapter which will perform the specified update command for each 
    'newly inserted row
    Using Adapter As New OleDbDataAdapter

      'Set the update command on the adapter, if you omit this line you'll
      'encounter the original error you mentioned
      Adapter.UpdateCommand = UpdateCmd

      'This is the data table containing the rows you wish to update
      Dim NewRows As New DataTable("SomeTable")

      'For each modified row in NewRows, update it in the database
      Adapter.Update(NewRows)

    End Using

  End Using

End Using

上面的代码假设数据库中有一个名为 yourtable 的表，其中包含两列 col1 和 col2 是数字。

Using 块只是确保数据库对象得到正确处理，这样您就不会泄漏资源。