VB.NET 数据集更新

Question

我是 vb.net 的新手，在数据集上使用 For...Next 构造更新表中的字段时遇到了很大的挑战。下面的示例代码 - 谁能告诉我我错过了什么？我知道这个特定的示例可以通过简单的 SQL 更新语句来完成，但实际使用此代码将需要逐步遍历数据集中的每条记录。下面的例子只是一个简单的例子，让我把过程记下来。请注意，这运行时不会出现异常，但只是不会更改表中的数据。

帮助！ :)

---

    Dim objConn As SqlConnection = New SqlConnection("Data Source=DALLAS\;Initial Catalog=Adaptive;Integrated Security=True")

    Dim selectCMD As SqlCommand = New SqlCommand("SELECT * from dwbprocref", objConn)
    selectCMD.CommandTimeout = 30

    Dim custDA As SqlDataAdapter = New SqlDataAdapter
    custDA.SelectCommand = selectCMD

    Dim custCB As SqlCommandBuilder = New SqlCommandBuilder(custDA)
    custCB.QuotePrefix = "["
    custCB.QuoteSuffix = "]"


    Dim dRow As DataRow
    Dim dTable As DataTable

    objConn.Open()

    Dim custDS As DataSet = New DataSet
    custDA.Fill(custDS, "dwbprocref")

    For Each dRow In custDS.Tables(0).Rows
        If dRow.Item("pr_format") = "MDV" Then
            dRow.Item("pr_tester") = "X"
        End If
        custDS.AcceptChanges()
    Next
    custDA.Update(custDS, "dwbprocref")

    objConn.Close()

---

Answer 1

您正在调用 AcceptChanges。这将所有行标记为未修改，因此它们永远不会在数据库中更新。删除这个电话，你应该就好了。