Visual Basic

Copy Code

    Overrides Public Function Delete() As Boolean
      Dim scmCmdToExecute As SqlCommand  = New SqlCommand()
      scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]"
      scmCmdToExecute.CommandType = CommandType.StoredProcedure
 
      ' // Use base class' connection object
      scmCmdToExecute.Connection = m_scoMainConnection
 
      Try
        scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
        scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
        If m_bMainConnectionIsCreatedLocal Then
          ' // Open connection.
          m_scoMainConnection.Open()
        Else
          If m_cpMainConnectionProvider.bIsTransactionPending Then
            scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
          End If
        End If
 
        ' // Execute query.
        scmCmdToExecute.ExecuteNonQuery()
                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
 
        If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
          ' // Throw error.
          Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
        End If
 
        Return True
      Catch ex As Exception
        ' // some error occured. Bubble it to caller and encapsulate Exception object
        Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex)
      Finally
        If m_bMainConnectionIsCreatedLocal Then
          ' // Close connection.
          m_scoMainConnection.Close()
        End If
        scmCmdToExecute.Dispose()
      End Try
    End Function