Purpose: Insert method. This method will insert one new row into the database.
[Visual Basic] Public Overrides Function Insert() As Boolean
True if succeeded, otherwise an Exception is thrown.
Properties needed for this method: <UL> <LI>iApplikationNr</LI> <LI>sBezeichnung. May be SqlString.Null</LI> <LI>iParentID. May be SqlInt32.Null</LI> <LI>iApplikationVerantwortungNr. May be SqlInt32.Null</LI> <LI>iApplikationKategorieNr. May be SqlInt32.Null</LI> <LI>iApplikationTeamnr. May be SqlInt32.Null</LI> <LI>iMarktbereichnr. May be SqlInt32.Null</LI> <LI>sVersion. May be SqlString.Null</LI> <LI>bAlsProdukt. May be SqlBoolean.Null</LI> <LI>bNurLizenz. May be SqlBoolean.Null</LI> <LI>sPrioWiederanlauf. May be SqlString.Null</LI> <LI>sKurzbeschreibung. May be SqlString.Null</LI> <LI>daInaktivseit. May be SqlDateTime.Null</LI> <LI>bRAS. May be SqlBoolean.Null</LI> <LI>sDatenbankname. May be SqlString.Null</LI> <LI>sAnzahl_Installationen. May be SqlString.Null</LI> <LI>sTest_Aufwand. May be SqlString.Null</LI> <LI>sTest_Arbeitsplaetze. May be SqlString.Null</LI> <LI>sTest_Abhaengigkeiten. May be SqlString.Null</LI> <LI>sTest_Bemerkung. May be SqlString.Null</LI> <LI>bTicketXPertVerwendung. May be SqlBoolean.Null</LI> <LI>bTicketXPert_WPIAnzeigen. May be SqlBoolean.Null</LI> <LI>sTicketXPert_Preis. May be SqlString.Null</LI> <LI>sTicketXPert_Preis_Einmalig. May be SqlString.Null</LI> <LI>bTicketXPert_AMAnzeigen. May be SqlBoolean.Null</LI> <LI>iTicketXPert_ApplikationKritikalitaetTypNr. May be SqlInt32.Null</LI> <LI>iTicketXPert_ApplikationSMLTypNr. May be SqlInt32.Null</LI> <LI>bAktiv. May be SqlBoolean.Null</LI> <LI>daErstellt_am. May be SqlDateTime.Null</LI> <LI>daMutiert_am. May be SqlDateTime.Null</LI> <LI>iMutierer. May be SqlInt32.Null</LI> <LI>iSecurityLevelNr. May be SqlInt32.Null</LI> <LI>iRfcBoardNr. May be SqlInt32.Null</LI> <LI>bSensitiveDaten. May be SqlBoolean.Null</LI> <LI>sSensitiveDatenBemerkung. May be SqlString.Null</LI> <LI>iSensitiveDatenAdministriertdurch. May be SqlInt32.Null</LI> <LI>sSensitiveDatenUeberwachungBemerkung. May be SqlString.Null</LI> <LI>iSensitiveDatenUeberwachungPeriodizitaet. May be SqlInt32.Null</LI> <LI>sSensitiveDatenUserBemerkung. May be SqlString.Null</LI> <LI>iSensitiveDatenAnzahlComit. May be SqlInt32.Null</LI> <LI>iSensitiveDatenAnzahlExterne. May be SqlInt32.Null</LI> </UL> Properties set after a succesful call of this method: <UL> <LI>iErrorCode</LI> </UL>
[Visual Basic] Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // 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("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationVerantwortungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationKategorieNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationKategorieNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationTeamnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationTeamnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMarktbereichnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMarktbereichnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAlsProdukt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAlsProdukt))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bNurLizenz", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bNurLizenz))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPrioWiederanlauf", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrioWiederanlauf))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInaktivseit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daInaktivseit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bRAS", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bRAS))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDatenbankname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatenbankname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sAnzahl_Installationen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahl_Installationen))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Aufwand", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Aufwand))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Arbeitsplaetze", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Arbeitsplaetze))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Abhaengigkeiten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Abhaengigkeiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Bemerkung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPertVerwendung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPertVerwendung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_WPIAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_WPIAnzeigen))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis_Einmalig", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis_Einmalig))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_AMAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_AMAnzeigen))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationKritikalitaetTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationKritikalitaetTypNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationSMLTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationSMLTypNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iRfcBoardNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRfcBoardNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSensitiveDaten", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSensitiveDaten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenBemerkung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAdministriertdurch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAdministriertdurch))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUeberwachungBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUeberwachungBemerkung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenUeberwachungPeriodizitaet", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenUeberwachungPeriodizitaet))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUserBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUserBemerkung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlComit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlComit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlExterne", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlExterne))
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.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
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_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsApplikation::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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