Visual Basic

Copy Code

    Overrides Public Function SelectOne() As DataTable
      Dim scmCmdToExecute As SqlCommand = New SqlCommand()
      scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]"
      scmCmdToExecute.CommandType = CommandType.StoredProcedure
      Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
      Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
 
      ' // 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.
        sdaAdapter.Fill(dtToReturn)
                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_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
        End If
 
        If dtToReturn.Rows.Count > 0 Then
          m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer))
          If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
            m_iJournalnr = SqlInt32.Null
          Else
            m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
          End If
          If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then
            m_sEintrag = SqlString.Null
          Else
            m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String))
          End If
          If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then
            m_daDatumzeit = SqlDateTime.Null
          Else
            m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date))
          End If
        End If
        Return dtToReturn
      Catch ex As Exception
        ' // some error occured. Bubble it to caller and encapsulate Exception object
        Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex)
      Finally
        If m_bMainConnectionIsCreatedLocal Then
          ' // Close connection.
          m_scoMainConnection.Close()
        End If
        scmCmdToExecute.Dispose()
        sdaAdapter.Dispose()
      End Try
    End Function