Visual Basic

Copy Code

 Public Function SaveTransaction(sSavePointName As String) As Boolean
  Try
    If Not m_bIsTransactionPending Then
      ' // no transaction pending
      Throw New Exception("SaveTransaction::No transaction pending.")
    End If
    If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
      ' // no open connection
      Throw New Exception("SaveTransaction::Connection is not open.")
    End If
    ' // save the transaction
    m_stCurrentTransaction.Save(sSavePointName)
    ' // Store the savepoint in the list.
    m_alSavePoints.Add(sSavePointName)
    Return True
  Catch ex As Exception
    ' // bubble exception
    Throw ex
  End Try
 End Function