DataSet.Merge的方法,不只光光是一句Merge.感谢水木

   Private Sub btnMerge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMerge.Click

        Dim ds_source, ds_destin As DataSet

        Dim da_source, da_destin As OleDbDataAdapter

        Dim stSourcePath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/A.mdb"

        Dim stDestinPath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/B.mdb"

 

        ds_source = New DataSet

        ds_destin = New DataSet

        da_source = New OleDbDataAdapter("Select * from GL;", stSourcePath)

        da_destin = New OleDbDataAdapter("Select * from GL;", stDestinPath)

        da_destin.Fill(ds_destin)

        da_source.AcceptChangesDuringFill = False

 

 

        da_source.Fill(ds_source)

 

        MsgBox("Destination records(before): " & ds_destin.Tables(0).Rows.Count & vbCrLf & "Table Count:" & ds_destin.Tables.Count)

        MsgBox("Source records: " & ds_source.Tables(0).Rows.Count)

 

        ds_destin.Merge(ds_source)

 

        Dim objBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da_destin)

 

        da_destin.UpdateCommand = objBuilder.GetUpdateCommand()

        da_destin.InsertCommand = objBuilder.GetInsertCommand()

        da_destin.DeleteCommand = objBuilder.GetDeleteCommand()

 

        Dim updTable As DataTable = ds_destin.Tables(0)

        da_destin.Update(updTable.Select(Nothing, Nothing, DataViewRowState.Added))

 

        MsgBox("Destination records(after): " & ds_destin.Tables(0).Rows.Count & vbCrLf & "Table Count:" & ds_destin.Tables.Count)

        ds_destin.AcceptChanges() 'THE CODE TO MEGRE DON'T WORK TO UPDATE OR SAVE DATA TO B.MDB

 

    End Sub