Visual Basic

Copy Code

 Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
  Try
    If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
      ' // No open connection
      Return False
    End If
    If m_bIsTransactionPending Then
      If bCommitPendingTransaction Then
        ' // Commit the pending transaction
        m_stCurrentTransaction.Commit()
      Else
        ' // Rollback the pending transaction
        m_stCurrentTransaction.Rollback()
      End If
      m_bIsTransactionPending = False
      m_stCurrentTransaction.Dispose()
      m_stCurrentTransaction = Nothing
      m_alSavePoints.Clear()
    End If
    ' // close the connection
    m_scoDBConnection.Close()
    Return True
  Catch ex As Exception
    ' // bubble exception
    Throw ex
  End Try
 End Function