Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
[Visual Basic] Public Overrides Function SelectOne() As DataTable
DataTable object if succeeded, otherwise an Exception is thrown.
Properties needed for this method: <UL> <LI>iVertragselementnr</LI> </UL> Properties set after a succesful call of this method: <UL> <LI>iErrorCode</LI> <LI>iVertragselementnr</LI> <LI>iVertragstypNr</LI> <LI>iVertragspartnerNr</LI> <LI>iParentID</LI> <LI>sBezeichnung</LI> <LI>sBeschreibung</LI> <LI>sVersion</LI> <LI>daVersionsdatum</LI> <LI>sNummer</LI> <LI>daUnterzeichnet_am</LI> <LI>daVertragsbeginn</LI> <LI>daVertragsablauf</LI> <LI>bBefristet_Unbefristet</LI> <LI>daMindestvertragsdauer_bis</LI> <LI>daGekuendigt_am</LI> <LI>daGekuendigt_per</LI> <LI>iSecurityLevelNr</LI> <LI>sSuchbegriffe</LI> <LI>iApplikationNr</LI> <LI>iLizenztypnr</LI> <LI>sLizenzdetails</LI> <LI>daErstellt_am</LI> <LI>daMutiert_am</LI> <LI>iMutierer</LI> <LI>bAktiv</LI> </UL> Will fill all properties corresponding with a field in the table with the value of the row selected.
[Visual Basic] Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Vertragselement_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Vertragselement")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
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_Vertragselement_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iVertragselementnr = New SqlInt32(CType(dtToReturn.Rows(0)("Vertragselementnr"), Integer))
If dtToReturn.Rows(0)("VertragstypNr") Is System.DBNull.Value Then
m_iVertragstypNr = SqlInt32.Null
Else
m_iVertragstypNr = New SqlInt32(CType(dtToReturn.Rows(0)("VertragstypNr"), Integer))
End If
If dtToReturn.Rows(0)("VertragspartnerNr") Is System.DBNull.Value Then
m_iVertragspartnerNr = SqlInt32.Null
Else
m_iVertragspartnerNr = New SqlInt32(CType(dtToReturn.Rows(0)("VertragspartnerNr"), Integer))
End If
If dtToReturn.Rows(0)("ParentID") Is System.DBNull.Value Then
m_iParentID = SqlInt32.Null
Else
m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer))
End If
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("Version") Is System.DBNull.Value Then
m_sVersion = SqlString.Null
Else
m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("Version"), String))
End If
If dtToReturn.Rows(0)("Versionsdatum") Is System.DBNull.Value Then
m_daVersionsdatum = SqlDateTime.Null
Else
m_daVersionsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Versionsdatum"), Date))
End If
If dtToReturn.Rows(0)("Nummer") Is System.DBNull.Value Then
m_sNummer = SqlString.Null
Else
m_sNummer = New SqlString(CType(dtToReturn.Rows(0)("Nummer"), String))
End If
If dtToReturn.Rows(0)("Unterzeichnet_am") Is System.DBNull.Value Then
m_daUnterzeichnet_am = SqlDateTime.Null
Else
m_daUnterzeichnet_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Unterzeichnet_am"), Date))
End If
If dtToReturn.Rows(0)("Vertragsbeginn") Is System.DBNull.Value Then
m_daVertragsbeginn = SqlDateTime.Null
Else
m_daVertragsbeginn = New SqlDateTime(CType(dtToReturn.Rows(0)("Vertragsbeginn"), Date))
End If
If dtToReturn.Rows(0)("Vertragsablauf") Is System.DBNull.Value Then
m_daVertragsablauf = SqlDateTime.Null
Else
m_daVertragsablauf = New SqlDateTime(CType(dtToReturn.Rows(0)("Vertragsablauf"), Date))
End If
If dtToReturn.Rows(0)("Befristet_Unbefristet") Is System.DBNull.Value Then
m_bBefristet_Unbefristet = SqlBoolean.Null
Else
m_bBefristet_Unbefristet = New SqlBoolean(CType(dtToReturn.Rows(0)("Befristet_Unbefristet"), Boolean))
End If
If dtToReturn.Rows(0)("Mindestvertragsdauer_bis") Is System.DBNull.Value Then
m_daMindestvertragsdauer_bis = SqlDateTime.Null
Else
m_daMindestvertragsdauer_bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Mindestvertragsdauer_bis"), Date))
End If
If dtToReturn.Rows(0)("Gekuendigt_am") Is System.DBNull.Value Then
m_daGekuendigt_am = SqlDateTime.Null
Else
m_daGekuendigt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Gekuendigt_am"), Date))
End If
If dtToReturn.Rows(0)("Gekuendigt_per") Is System.DBNull.Value Then
m_daGekuendigt_per = SqlDateTime.Null
Else
m_daGekuendigt_per = New SqlDateTime(CType(dtToReturn.Rows(0)("Gekuendigt_per"), Date))
End If
If dtToReturn.Rows(0)("SecurityLevelNr") Is System.DBNull.Value Then
m_iSecurityLevelNr = SqlInt32.Null
Else
m_iSecurityLevelNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityLevelNr"), Integer))
End If
If dtToReturn.Rows(0)("Suchbegriffe") Is System.DBNull.Value Then
m_sSuchbegriffe = SqlString.Null
Else
m_sSuchbegriffe = New SqlString(CType(dtToReturn.Rows(0)("Suchbegriffe"), String))
End If
If dtToReturn.Rows(0)("ApplikationNr") Is System.DBNull.Value Then
m_iApplikationNr = SqlInt32.Null
Else
m_iApplikationNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationNr"), Integer))
End If
If dtToReturn.Rows(0)("Lizenztypnr") Is System.DBNull.Value Then
m_iLizenztypnr = SqlInt32.Null
Else
m_iLizenztypnr = New SqlInt32(CType(dtToReturn.Rows(0)("Lizenztypnr"), Integer))
End If
If dtToReturn.Rows(0)("Lizenzdetails") Is System.DBNull.Value Then
m_sLizenzdetails = SqlString.Null
Else
m_sLizenzdetails = New SqlString(CType(dtToReturn.Rows(0)("Lizenzdetails"), String))
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
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), 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
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsVertragselement::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition