Rollback Transactions

One of the many functional methods of rolling back transaction(s) in a VB application is as follows:

1) In the procedure containing the Begintrans/CommitTrans methods, declare a Boolean Procedural variable (Flag) in the procedure containing the Begintrans/CommitTrans methods.

2) Declare the On Error statement at the beginning of the procedure

3) Create a generic On Error routine

4) Immediately after the BeginTrans call, set the Flag to true

5) Immediately after the CommitTrans call, set the flag to false

6) Check the status of the flag in the Error Routine and call RollbackTrans if it’s set to true

Here’s a code sample:

 Private Sub RollbackTransTest(pCn as ADODB.Connection)     Dim bIncompleteTrans As Boolean     On Error GoTo Routine_Error     bIncompleteTrans = False     '     '     '     pCn.BeginTrans     bIncompleteTrans = True          '    Create/Update/Delete data          '    Create/Update/Delete data          '    etc.     pCn.CommitTrans     bIncompleteTrans = False     '     '     'Routine_Exit:     Exit SubRoutine_Error:     If bIncompleteTrans = True Then pCn.RollbackTrans     Err.Raise Err.Number, Err.Source, Err.DescriptionEnd Sub

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: