Public Sub UpdateDataSet()
Create a new dataset to hold the changes that have been made to the main dataset.
Dim objDataSetChanges As Electronizer.DSElectronizer = New Electronizer.DSElectronizer()
Stop any current edits.
Me.BindingContext(objDSElectronizer, "Personal").EndCurrentEdit()
Get the changes that have been made to the main dataset.
objDataSetChanges = CType(objDSElectronizer.GetChanges, Electronizer.DSElectronizer)
Check to see if any changes have been made.
If (Not (objDataSetChanges) Is Nothing) Then
Try
There are changes that need to be made, so attempt to update the datasource by
Calling the update method and passing the dataset and any parameters.
Me.UpdateDataSource(objDataSetChanges)
objDSElectronizer.Merge(objDataSetChanges)
objDSElectronizer.AcceptChanges()
Catch eUpdate As System.Exception
Add your error handling code here.
Throw eUpdate
End Try
Code to check the returned dataset for any errors that may have been pushed into the row objects error.
End If
End Sub
-----------------------------------
The following is used to load the data from the source:
-----------------------------------
Public Sub LoadDataSet()
Create a new dataset to hold the records returned from the call to FillDataSet.
A temporary dataset is used because filling the existing dataset would
require the databindings to be rebound.
Dim objDataSetTemp As Electronizer.DSElectronizer
objDataSetTemp = New Electronizer.DSElectronizer()
Try
Attempt to fill the temporary dataset.
Me.FillDataSet(objDataSetTemp)
Catch eFillDataSet As System.Exception
Add your error handling code here.
Throw eFillDataSet
End Try
Try
Empty the old records from the dataset.
objDSElectronizer.Clear()
Merge the records into the main dataset.
objDSElectronizer.Merge(objDataSetTemp)
Catch eLoadMerge As System.Exception
Add your error handling code here.
Throw eLoadMerge
End Try
End Sub
-----------------------------------
...And Ill also include the following subroutines just in case:
-----------------------------------
Public Sub UpdateDataSource(ByVal ChangedRows As Electronizer.DSElectronizer)
Try
The data source only needs to be updated if there are changes pending.
If (Not (ChangedRows) Is Nothing) Then
Open the connection.
Me.OleDbConnection1.Open()
Attempt to update the data source.
OleDbDataAdapter1.Update(ChangedRows)
OleDbDataAdapter2.Update(ChangedRows)
End If
Catch updateException As System.Exception
Add your error handling code here.
Throw updateException
Finally
Close the connection whether or not the exception was thrown.
Me.OleDbConnection1.Close()
End Try
End Sub
-----------------------------------
-----------------------------------
Public Sub FillDataSet(ByVal dataSet As Electronizer.DSElectronizer)
Turn off constraint checking before the dataset is filled.
This allows the adapters to fill the dataset without concern
for dependencies between the tables.
dataSet.EnforceConstraints = False
Try
Open the connection.
Me.OleDbConnection1.Open()
Attempt to fill the dataset through the OleDbDataAdapter1.
Me.OleDbDataAdapter1.Fill(dataSet)
Me.OleDbDataAdapter2.Fill(dataSet)
Catch fillException As System.Exception
Add your error handling code here.
Throw fillException
Finally
Turn constraint checking back on.
dataSet.EnforceConstraints = True
Close the connection whether or not the exception was thrown.
Me.OleDbConnection1.Close()
End Try
End Sub
