Dim sConn As OleDbConnection sConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Pc99\d\db\Accounts.mdb;") Dim sTransaction As OleDbTransaction Dim OleCmd As OleDbCommand Try sConn.Open() OleCmd = New OleDbCommand("update tableA set b = b + 1 where a = 1", sConn) sTransaction = sConn.BeginTransaction() OleCmd.Transaction = sTransaction call OleCmd.ExecuteNonQuery() sTransaction.Commit() 'commit transation Catch ex As Exception sTransaction.Rollback() 'rollback transaction End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)