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>iApplikationNr</LI> </UL> Properties set after a succesful call of this method: <UL> <LI>iErrorCode</LI> <LI>iApplikationNr</LI> <LI>sBezeichnung</LI> <LI>iParentID</LI> <LI>iApplikationVerantwortungNr</LI> <LI>iApplikationKategorieNr</LI> <LI>iApplikationTeamnr</LI> <LI>iMarktbereichnr</LI> <LI>sVersion</LI> <LI>bAlsProdukt</LI> <LI>bNurLizenz</LI> <LI>sPrioWiederanlauf</LI> <LI>sKurzbeschreibung</LI> <LI>daInaktivseit</LI> <LI>bRAS</LI> <LI>sDatenbankname</LI> <LI>sAnzahl_Installationen</LI> <LI>sTest_Aufwand</LI> <LI>sTest_Arbeitsplaetze</LI> <LI>sTest_Abhaengigkeiten</LI> <LI>sTest_Bemerkung</LI> <LI>bTicketXPertVerwendung</LI> <LI>bTicketXPert_WPIAnzeigen</LI> <LI>sTicketXPert_Preis</LI> <LI>sTicketXPert_Preis_Einmalig</LI> <LI>bTicketXPert_AMAnzeigen</LI> <LI>iTicketXPert_ApplikationKritikalitaetTypNr</LI> <LI>iTicketXPert_ApplikationSMLTypNr</LI> <LI>bAktiv</LI> <LI>daErstellt_am</LI> <LI>daMutiert_am</LI> <LI>iMutierer</LI> <LI>iSecurityLevelNr</LI> <LI>iRfcBoardNr</LI> <LI>bSensitiveDaten</LI> <LI>sSensitiveDatenBemerkung</LI> <LI>iSensitiveDatenAdministriertdurch</LI> <LI>sSensitiveDatenUeberwachungBemerkung</LI> <LI>iSensitiveDatenUeberwachungPeriodizitaet</LI> <LI>sSensitiveDatenUserBemerkung</LI> <LI>iSensitiveDatenAnzahlComit</LI> <LI>iSensitiveDatenAnzahlExterne</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_Applikation_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Applikation")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr))
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_Applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iApplikationNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationNr"), Integer))
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)("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)("ApplikationVerantwortungNr") Is System.DBNull.Value Then
m_iApplikationVerantwortungNr = SqlInt32.Null
Else
m_iApplikationVerantwortungNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationVerantwortungNr"), Integer))
End If
If dtToReturn.Rows(0)("ApplikationKategorieNr") Is System.DBNull.Value Then
m_iApplikationKategorieNr = SqlInt32.Null
Else
m_iApplikationKategorieNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationKategorieNr"), Integer))
End If
If dtToReturn.Rows(0)("ApplikationTeamnr") Is System.DBNull.Value Then
m_iApplikationTeamnr = SqlInt32.Null
Else
m_iApplikationTeamnr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationTeamnr"), Integer))
End If
If dtToReturn.Rows(0)("Marktbereichnr") Is System.DBNull.Value Then
m_iMarktbereichnr = SqlInt32.Null
Else
m_iMarktbereichnr = New SqlInt32(CType(dtToReturn.Rows(0)("Marktbereichnr"), Integer))
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)("AlsProdukt") Is System.DBNull.Value Then
m_bAlsProdukt = SqlBoolean.Null
Else
m_bAlsProdukt = New SqlBoolean(CType(dtToReturn.Rows(0)("AlsProdukt"), Boolean))
End If
If dtToReturn.Rows(0)("NurLizenz") Is System.DBNull.Value Then
m_bNurLizenz = SqlBoolean.Null
Else
m_bNurLizenz = New SqlBoolean(CType(dtToReturn.Rows(0)("NurLizenz"), Boolean))
End If
If dtToReturn.Rows(0)("PrioWiederanlauf") Is System.DBNull.Value Then
m_sPrioWiederanlauf = SqlString.Null
Else
m_sPrioWiederanlauf = New SqlString(CType(dtToReturn.Rows(0)("PrioWiederanlauf"), String))
End If
If dtToReturn.Rows(0)("Kurzbeschreibung") Is System.DBNull.Value Then
m_sKurzbeschreibung = SqlString.Null
Else
m_sKurzbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Kurzbeschreibung"), String))
End If
If dtToReturn.Rows(0)("Inaktivseit") Is System.DBNull.Value Then
m_daInaktivseit = SqlDateTime.Null
Else
m_daInaktivseit = New SqlDateTime(CType(dtToReturn.Rows(0)("Inaktivseit"), Date))
End If
If dtToReturn.Rows(0)("RAS") Is System.DBNull.Value Then
m_bRAS = SqlBoolean.Null
Else
m_bRAS = New SqlBoolean(CType(dtToReturn.Rows(0)("RAS"), Boolean))
End If
If dtToReturn.Rows(0)("Datenbankname") Is System.DBNull.Value Then
m_sDatenbankname = SqlString.Null
Else
m_sDatenbankname = New SqlString(CType(dtToReturn.Rows(0)("Datenbankname"), String))
End If
If dtToReturn.Rows(0)("Anzahl_Installationen") Is System.DBNull.Value Then
m_sAnzahl_Installationen = SqlString.Null
Else
m_sAnzahl_Installationen = New SqlString(CType(dtToReturn.Rows(0)("Anzahl_Installationen"), String))
End If
If dtToReturn.Rows(0)("Test_Aufwand") Is System.DBNull.Value Then
m_sTest_Aufwand = SqlString.Null
Else
m_sTest_Aufwand = New SqlString(CType(dtToReturn.Rows(0)("Test_Aufwand"), String))
End If
If dtToReturn.Rows(0)("Test_Arbeitsplaetze") Is System.DBNull.Value Then
m_sTest_Arbeitsplaetze = SqlString.Null
Else
m_sTest_Arbeitsplaetze = New SqlString(CType(dtToReturn.Rows(0)("Test_Arbeitsplaetze"), String))
End If
If dtToReturn.Rows(0)("Test_Abhaengigkeiten") Is System.DBNull.Value Then
m_sTest_Abhaengigkeiten = SqlString.Null
Else
m_sTest_Abhaengigkeiten = New SqlString(CType(dtToReturn.Rows(0)("Test_Abhaengigkeiten"), String))
End If
If dtToReturn.Rows(0)("Test_Bemerkung") Is System.DBNull.Value Then
m_sTest_Bemerkung = SqlString.Null
Else
m_sTest_Bemerkung = New SqlString(CType(dtToReturn.Rows(0)("Test_Bemerkung"), String))
End If
If dtToReturn.Rows(0)("TicketXPertVerwendung") Is System.DBNull.Value Then
m_bTicketXPertVerwendung = SqlBoolean.Null
Else
m_bTicketXPertVerwendung = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPertVerwendung"), Boolean))
End If
If dtToReturn.Rows(0)("TicketXPert_WPIAnzeigen") Is System.DBNull.Value Then
m_bTicketXPert_WPIAnzeigen = SqlBoolean.Null
Else
m_bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPert_WPIAnzeigen"), Boolean))
End If
If dtToReturn.Rows(0)("TicketXPert_Preis") Is System.DBNull.Value Then
m_sTicketXPert_Preis = SqlString.Null
Else
m_sTicketXPert_Preis = New SqlString(CType(dtToReturn.Rows(0)("TicketXPert_Preis"), String))
End If
If dtToReturn.Rows(0)("TicketXPert_Preis_Einmalig") Is System.DBNull.Value Then
m_sTicketXPert_Preis_Einmalig = SqlString.Null
Else
m_sTicketXPert_Preis_Einmalig = New SqlString(CType(dtToReturn.Rows(0)("TicketXPert_Preis_Einmalig"), String))
End If
If dtToReturn.Rows(0)("TicketXPert_AMAnzeigen") Is System.DBNull.Value Then
m_bTicketXPert_AMAnzeigen = SqlBoolean.Null
Else
m_bTicketXPert_AMAnzeigen = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPert_AMAnzeigen"), Boolean))
End If
If dtToReturn.Rows(0)("TicketXPert_ApplikationKritikalitaetTypNr") Is System.DBNull.Value Then
m_iTicketXPert_ApplikationKritikalitaetTypNr = SqlInt32.Null
Else
m_iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("TicketXPert_ApplikationKritikalitaetTypNr"), Integer))
End If
If dtToReturn.Rows(0)("TicketXPert_ApplikationSMLTypNr") Is System.DBNull.Value Then
m_iTicketXPert_ApplikationSMLTypNr = SqlInt32.Null
Else
m_iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("TicketXPert_ApplikationSMLTypNr"), 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
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)("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)("RfcBoardNr") Is System.DBNull.Value Then
m_iRfcBoardNr = SqlInt32.Null
Else
m_iRfcBoardNr = New SqlInt32(CType(dtToReturn.Rows(0)("RfcBoardNr"), Integer))
End If
If dtToReturn.Rows(0)("SensitiveDaten") Is System.DBNull.Value Then
m_bSensitiveDaten = SqlBoolean.Null
Else
m_bSensitiveDaten = New SqlBoolean(CType(dtToReturn.Rows(0)("SensitiveDaten"), Boolean))
End If
If dtToReturn.Rows(0)("SensitiveDatenBemerkung") Is System.DBNull.Value Then
m_sSensitiveDatenBemerkung = SqlString.Null
Else
m_sSensitiveDatenBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenBemerkung"), String))
End If
If dtToReturn.Rows(0)("SensitiveDatenAdministriertdurch") Is System.DBNull.Value Then
m_iSensitiveDatenAdministriertdurch = SqlInt32.Null
Else
m_iSensitiveDatenAdministriertdurch = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAdministriertdurch"), Integer))
End If
If dtToReturn.Rows(0)("SensitiveDatenUeberwachungBemerkung") Is System.DBNull.Value Then
m_sSensitiveDatenUeberwachungBemerkung = SqlString.Null
Else
m_sSensitiveDatenUeberwachungBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenUeberwachungBemerkung"), String))
End If
If dtToReturn.Rows(0)("SensitiveDatenUeberwachungPeriodizitaet") Is System.DBNull.Value Then
m_iSensitiveDatenUeberwachungPeriodizitaet = SqlInt32.Null
Else
m_iSensitiveDatenUeberwachungPeriodizitaet = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenUeberwachungPeriodizitaet"), Integer))
End If
If dtToReturn.Rows(0)("SensitiveDatenUserBemerkung") Is System.DBNull.Value Then
m_sSensitiveDatenUserBemerkung = SqlString.Null
Else
m_sSensitiveDatenUserBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenUserBemerkung"), String))
End If
If dtToReturn.Rows(0)("SensitiveDatenAnzahlComit") Is System.DBNull.Value Then
m_iSensitiveDatenAnzahlComit = SqlInt32.Null
Else
m_iSensitiveDatenAnzahlComit = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAnzahlComit"), Integer))
End If
If dtToReturn.Rows(0)("SensitiveDatenAnzahlExterne") Is System.DBNull.Value Then
m_iSensitiveDatenAnzahlExterne = SqlInt32.Null
Else
m_iSensitiveDatenAnzahlExterne = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAnzahlExterne"), 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("clsApplikation::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