Visual Basic

Copy Code

 Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
  Try
    If Not m_bIsTransactionPending Then
      ' // no transaction pending
      Throw New Exception("RollbackTransaction::No transaction pending.")
    End If
    If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
      ' // no open connection
      Throw New Exception("RollbackTransaction::Connection is not open.")
    End If
    ' // rollback the transaction
    m_stCurrentTransaction.Rollback(sTransactionToRollback)
    ' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
    ' // can clean it up.
    If Not m_alSavePoints.Contains(sTransactionToRollback) Then
      ' // it's not a savepoint
      m_bIsTransactionPending = False
      m_stCurrentTransaction.Dispose()
      m_stCurrentTransaction = Nothing
      m_alSavePoints.Clear()
    End If
    Return True
  Catch ex As Exception
    ' // bubble exception
    Throw ex
  End Try
 End Function