Visual Basic

Copy Code

 Public Overrides Function SelectAll() As DataTable
    Dim scmCmdToExecute As SqlCommand = New SqlCommand()
    scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAll]"
    scmCmdToExecute.CommandType = CommandType.StoredProcedure
    Dim dtToReturn As DataTable = New DataTable("dokumenttyp")
    Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
 
    ' // Use base class' connection object
    scmCmdToExecute.Connection = m_scoMainConnection
 
    Try
        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.
        sdaAdapter.Fill(dtToReturn)
        m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
 
        If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
            ' // Throw error.
            Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
        End If
 
        Return dtToReturn
    Catch ex As Exception
        ' // some error occured. Bubble it to caller and encapsulate Exception object
        Throw New Exception("clsDokumenttyp::SelectAll::Error occured.", ex)
    Finally
        If m_bMainConnectionIsCreatedLocal Then
            ' // Close connection.
            m_scoMainConnection.Close()
        End If
        scmCmdToExecute.Dispose()
        sdaAdapter.Dispose()
    End Try
 End Function