Private Sub modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modify.Click
Dim cnn As Odbc.OdbcConnection
Dim cmd As New OleDb.OleDbCommand
Dim da As New Odbc.OdbcDataAdapter
Dim ds As New DataSet
Dim dt As DataTable
cnn = New Odbc.OdbcConnection("Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Application.StartupPath & "\database.mde " & ";UID=;PWD=
cnn.Open()
Dim sql As String = "Select * from [XSK] where 清单号='" & 清单号.Text & "'"
da = New Odbc.OdbcDataAdapter(sql, cnn)
da.Fill(ds, "XSK")
dt = ds.Tables("XSK")
Dim myRow As DataRow = ds.Tables("XSK").NewRow()
If ds.Tables("XSK").Rows.Count > 0 Then
Dim i As Integer
For i = 0 To ds.Tables("XSK").Rows.Count - 1
dt.Rows(i)("经手人") = 操作员.Text
dt.Rows(i)("单据号") = 单据号.Text
Dim scb As Odbc.OdbcCommandBuilder = New Odbc.OdbcCommandBuilder(da)
ds.AcceptChanges
dt = ds.Tables("XSK").GetChanges
If dt IsNot Nothing Then da.Update(ds, "XSK")
Next
End If
cnn.Close()
End Sub
想修改数据库里的内容,没有成功,不知道为什么,初学者。
------解决方案--------------------
已经解决,代码没错,数据库主键的问题。