Visual Basic

Copy Code

    Overrides Public Function SelectOne() As DataTable
      Dim scmCmdToExecute As SqlCommand = New SqlCommand()
      scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectOne]"
      scmCmdToExecute.CommandType = CommandType.StoredProcedure
      Dim dtToReturn As DataTable = new DataTable("idvmakro_office_vorlage")
      Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
 
      ' // Use base class' connection object
      scmCmdToExecute.Connection = m_scoMainConnection
 
      Try
        scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr))
        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_idvmakro_office_vorlage_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
                End If
 
                If dtToReturn.Rows.Count > 0 Then
                    m_iIdvmakroofficevorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakroofficevorlagenr"), Integer))
                    m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("reihenfolge"), Integer))
                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
                        m_iMandantnr = SqlInt32.Null
                    Else
                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
                    End If
                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
                        m_bAktiv = SqlBoolean.Null
                    Else
                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
                    End If
                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
                        m_daErstellt_am = SqlDateTime.Null
                    Else
                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
                    End If
                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
                        m_daMutiert_am = SqlDateTime.Null
                    Else
                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
                    End If
                    m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
                    If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then
                        m_iOffice_vorlagenr = SqlInt32.Null
                    Else
                        m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
                    End If
                    If dtToReturn.Rows(0)("idvmakronr") Is System.DBNull.Value Then
                        m_iIdvmakronr = SqlInt32.Null
                    Else
                        m_iIdvmakronr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakronr"), Integer))
                    End If
                End If
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsIdvmakro_office_vorlage::SelectOne::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function