取得DATASET 所變化的數據
Dim dsch As DataSet = ds.GetChanges(DataRowState.Added + DataRowState.Deleted + DataRowState.Modified)
更新方法
Private Sub savedata()
Try
Dim TableName As String
Dim strjockey As String
strjockey = "select * from " & TableName
Dim da As OleDbDataAdapter = New OleDbDataAdapter(strjockey, conn)
Dim cmbda As OleDbCommandBuilder = New OleDbCommandBuilder(dajockeybasicdata)
conn.Open()
da.Update(ds.Tables(TableName))
conn.Close()
ds.Tables(TableName).Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try