Fail to update record in the RowUpdating event

Question

If I have well understood, the RowUpdating event is called before to send the row to the database.
I want to modify the row argument of this event before to send it to oracle to add traceability info (user name of the user and the date of modification)
No exception is raised, but the modifications I do to the row are not saved in the database.
You will find my sample code here under.
Thanks
Benoit FRANC
Atos Origin Belgium
Sample code
First create a table with this script:
DROP TABLE TEST CASCADE CONSTRAINTS ;
CREATE TABLE TEST (
ID NUMBER (10) NOT NULL,
DATANUMBER,
STRING VARCHAR2 (50),
CONSTRAINT PK_TEST
PRIMARY KEY ( ID ) ) ;
Manually enter a row with ID = 1; DATA=1 and STRING = "A"
Imports System.Data
Imports Oracle.DataAccess.Client
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sSql As String
Dim mConnection As OracleConnection
mConnection = New OracleConnection("User Id=eperform;Password=eperform;Data Source=tractDev")
mConnection.Open()
sSql = "SELECT * FROM TEST WHERE ID = 1"
Dim oraDA As OracleDataAdapter = New OracleDataAdapter(sSql, mConnection)
Dim oraCB As OracleCommandBuilder = New OracleCommandBuilder(oraDA)
Dim oraDS As DataSet = New DataSet()
oraDA.FillSchema(oraDS, SchemaType.Source, "SourceTable")
oraDA.Fill(oraDS, "SourceTable")
oraDS.Tables(0).Rows(0).Item("STRING") = "Hello" & Now 'only to see the change in the bd
Try
AddHandler oraDA.RowUpdating, AddressOf OnRowUpdating
oraDA.Update(oraDS, "SourceTable")
Catch ex As Exception
MsgBox(ex.Message)
Debug.WriteLine(ex.Message)
Debug.WriteLine(ex.StackTrace.ToString)
End Try
mConnection.Dispose()
mConnection.Close()
End Sub
Private Sub OnRowUpdating(ByVal sender As Object, ByVal args As OracleRowUpdatingEventArgs)
Try
args.Row("DATA") = -1
Catch ex As Exception
Debug.WriteLine(ex.Message)
Debug.WriteLine(ex.StackTrace.ToString)
End Try
End Sub

Answer 1

benoit
I have tried working with RowUpdatingEvent, RowUpdatedEvent Handler, it
works well. I did not go through your code but I am pasting the code I had tried, updatation happens as expected. Hope that helps.
Jagriti
Pls:This code is not the complete class, I have pasted only the relevant methods.
Public Function getConnection() As OracleConnection
'Return connection reference
Return conn
End Function
'This method updates the database using dataAdapter
Public Function UpdateRecords()
Try
sbox.AppendText("Updating the database" + Environment.NewLine)
sbox.Update()
'Update the database with the help of dataAdapter update method
dataAdapter.Update(dset, "COUNTRYTAB")
sbox.Update()
Catch ex As Exception
sbox.AppendText("Error while Updating the database" + Environment.NewLine)
sbox.AppendText(ex.ToString() + Environment.NewLine)
sbox.Update()
End Try
End Function
'RowUpdating EventHandler
Private Sub OnRowUpdating(ByVal sender As Object, ByVal e As OracleRowUpdatingEventArgs)
sbox.AppendText("** OnRowUpdating() Called **" + Environment.NewLine)
sbox.Update()
End Sub
'RowUpdated EventHandler
Private Sub OnRowUpdated(ByVal sender As Object, ByVal e As OracleRowUpdatedEventArgs)
sbox.AppendText("** OnRowUpdated() Called **" + Environment.NewLine)
sbox.Update()
End Sub
'This method adds a RowUpdating event handler if it 'is not added already.
Public Function AddUpdatingHandler()
If updatingCount = 0 Then
'Add the eventHandler
AddHandler dataAdapter.RowUpdating, AddressOf OnRowUpdating
updatingCount = 1
End If
End Function
'This method adds a RowUpdated event handler if it is not added already.
Public Function AddUpdatedHandler()
If updatedCount = 0 Then
'Add the eventHandler
AddHandler dataAdapter.RowUpdated, AddressOf OnRowUpdated
updatedCount = 1
End If
End Function