DataAdapter Update

 

Imports  System.Data
Imports  System.Data.OleDb

Public   Class Form3 Class Form3


    Dim conn As New OleDbConnection("provider=Microsoft.Jet.OleDb.4.0;data source=c:\\base.mdb")
    Dim da As OleDbDataAdapter
    Dim ds As New DataSet()
    Private Sub Form3_Load()Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        bind()
    End Sub
    Sub bind()Sub bind()
        Dim da As New OleDbDataAdapter("select code,name from commod", conn)
        da.Fill(ds, "com1")
        Me.DataGridView1.DataSource = ds.Tables("com1")
    End Sub

    Sub updateDB()Sub updateDB()
        da = New OleDbDataAdapter("select code,name from commod", conn)
        da.UpdateCommand = New OleDbCommand("update commod set name=@name where code=@code", conn)
        da.UpdateCommand.Parameters.Add("@name", OleDbType.Char, 30, "name")
        Dim para As OleDbParameter = da.UpdateCommand.Parameters.Add("@code", OleDbType.Char)
        para.SourceColumn = "code"
        para.SourceVersion = DataRowVersion.Original
        da.Fill(ds, "com2")

        '方法1
        'Dim dr As DataRow
        'For i As Integer = 0 To ds.Tables("com2").Rows.Count - 1
        '    dr = ds.Tables("com2").Rows(i)
        '    dr("name") = ds.Tables("com1").Rows(i)("name")
        'Next
        'da.Update(ds, "com2")

        '方法2
        da.Update(ds.Tables("com1").GetChanges(DataRowState.Modified))

        bind()

    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        updateDB()

    End Sub


End Class