Visual Basic

Copy Code

 Public Function BeginTransaction(sTransactionName As String) As Boolean
  Try
    If m_bIsTransactionPending Then
      ' // no nested transactions allowed.
      Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
    End If
    If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
      ' // no open connection
      Throw New Exception("BeginTransaction::Connection is not open.")
    End If
    ' // begin the transaction and store the transaction object.
    m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
    m_bIsTransactionPending = True
    Return True
  Catch ex As Exception
    ' // bubble exception
    Throw ex
  End Try
 End Function