Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Advanced
Jul 20, 2001

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 Sub

Routine_Error:
     If bIncompleteTrans = True Then pCn.RollbackTrans
     Err.Raise Err.Number, Err.Source, Err.Description
End Sub
Nazmul Siddiqui
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date