ADO BeginTransComplete, CommitTransComplete, and RollbackTransComplete Events

Home | About me | EXCEL VB Programming (XL97-2003) | ACCESS Programming | EXCEL VB.Net Programming | EXCEL Spreadsheet Functions |  Material Management  |  Guestbook
 

ADO BeginTransComplete, CommitTransComplete, and RollbackTransComplete Events

An event is a subroutine that can be called automatically after a specific operation has occurred.

  • The BeginTransComplete event can be fired after a BeginTrans call is completed.
  • The CommitTransComplete event can be fired after a CommitTrans call is completed.
  • The RollbackTransComplete event can be fired after a RollbackTrans call is completed

Syntax 

BeginTransComplete translevel,objerror,status,objconn
CommitTransComplete objerror,status,objconn
RollbackTransComplete objerror,status,objconn


Examples


' Use the WithEvents keyword to designate that events
' can be handled by this Connection object
Dim WithEvents objConn As ADODB.Connection

' Note how the object name, objConn, is incorporated into the event Sub name
Private Sub objConn_BeginTransComplete(ByVal TransactionLevel As long, _
   ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
   ByVal pConnection As ADODB.Connection)

' place any code you desire here, for example
Debug.Print "Transacation Level = " & TransactionLevel
End Sub


'OR:

Private Sub objConn_CommitTransComplete(ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

' place any code you desire here, for example
Debug.Print "ERROR: " & pError.Description
End Sub


'OR:

Private Sub objConn_RollbackTransComplete(ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

' place any code you desire here, for example
If adStatus = adStatusOK Then
   Print "Rollback completed"
Else
   Debug.Print "Rollback Status = " & adStatus
End If
End Sub

 

Parameter

Description
translevel The transaction level of the BeginTrans method that fired the event
objerror An Error object that contains the errors that occurred

Note: The EventStatusEnum value must be set to adStatusErrorsOccurred to create the Error object
status Specifies the status of the execution of an event. Takes an EventStatusEnum value
objconn The Connection object that fired the event

EventStatusEnum Values
Constant Value

Description
adStatusOK 1 The operation that fired the event was successful
adStatusErrorsOccurred 2 The operation that fired the event failed
adStatusCantDeny 3 Cannot cancel the pending operation
adStatusCancel 4 Cancels the operation that fired the event
adStatusUnwantedEvent 5 Prevents subsequent notifications before the event method has finished executing