Question

我試圖使用SqlDataAdapter更新數據庫，但我的代碼似乎沒有工作：

Dim sitedb As String = BookingApp.Globals.siteDB 
    Dim conn As New SqlConnection(sitedb) 
    Dim sql As String = "select * from name where BOOKING_REF = 'H2124'" 

    Dim cmd As SqlCommand 
    Dim da As SqlDataAdapter 
    Dim cb As SqlCommandBuilder 
    Dim dt As New DataTable 
    Dim c As Integer 

    cmd = New SqlCommand(sql, conn) 
    da = New SqlDataAdapter(cmd) 
    cb = New SqlCommandBuilder(da) 
    da.Fill(dt) 

    For c = 0 To dt.Rows.Count - 1 

     dt.Rows(c)!OVLREF3 = c 
     dt.AcceptChanges() 
    Next 

    da.Update(dt) 

據我所看到的代碼似乎看行不行，任何人有任何建議？

謝謝

Answer 1

刪除dt.AcceptChanges它應該工作。

AcceptChanges將更改RowState爲Unchanged，導致DataAdapter無法執行任何操作。 AcceptChanges在更新後被DataAdapter本身隱式調用。