Help me to detect changes in the dataset

[srimal]

Can any one please with this code? im tryng to track the changes in the dataset but i couldn't.






PrivateSub BtnUpdateO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdateO.Click
Try
If MyDataSet.HasChanges(DataRowState.Deleted) Then
Dim MyDeletedDataset AsNew DataSet
MyDeletedDataset = MyDataSet.GetChanges(DataRowState.Deleted)
DeleteTable(MyDeletedDataset)
MessageBox.Show("Deleted Sucessfully", "Deleted", MessageBoxButtons.OK, MessageBoxIcon.Information)
EndIf
If MyDataSet.HasChanges(DataRowState.Modified) Then
Dim MyChaDataset AsNew DataSet
MyChaDataset = MyDataSet.GetChanges(DataRowState.Modified)
updatetable(MyChaDataset)
MessageBox.Show("Updated Sucessfully", "Deleted", MessageBoxButtons.OK, MessageBoxIcon.Information)
EndIf
Catch ex As Exception
MessageBox.Show("Error : " & ex.Message)
: ExitSub
EndTry
EndSub



Sub updatetable(ByVal myChDataset As DataSet)
Dim myRow As DataRow
Dim StrEmpNo AsString
Dim introwsAffected AsInteger
Try
ForEach myRow In myChDataset.Tables("CustomerMaster").Rows
Dim CmdCommand AsNew SqlCommand
StrEmpNo = myRow("Ref_No")
InsertUpdateParameters(CmdCommand, myRow, StrEmpNo)
introwsAffected = ExecuteStoredProcedure("spUpdateCus", CmdCommand)
Next
Catch ex As Exception
MessageBox.Show("Error : " & ex.Message)
: ExitSub
EndTry
EndSub

 

[geethalakshmi.a]

End the editing of row

You need to end the rowediting before an update.


Try inserting the below statement prior to sending the datatable for update/delete.

Me.BindingContext(MyDataSet).EndCurrentEdit()

 

[srimal]

thanks 4 reply