|
Visual Basic
|
Copy Code
]]>
|
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("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokument_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokument_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bnet_use", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNet_use)) scmCmdToExecute.Parameters.Add(New SqlParameter("@slogisches_laufwerk", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLogisches_laufwerk)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_word_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_word_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_excel_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_excel_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_temporaer_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_temporaer_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_wordvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_wordvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_excelvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_excelvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_db", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_db)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_reportdateien", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_reportdateien)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbarcode_font", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBarcode_font)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcfont_groesse", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcfont_groesse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@smailadresse", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bShowlogin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", 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("@daletzter_cold_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_cold_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzer_ams_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzer_ams_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_rdm_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_rdm_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_host_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_host_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@irdmstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRdmstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iamsstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAmsstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ihoststunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iHoststunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldsystem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdsystem)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolduser", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColduser)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldpassword", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdpassword)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldgui", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdgui)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sPasswort_vorlagenverwaltung", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_vorlagenverwaltung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzahl_Cold_Viewer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_Cold_Viewer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitintervall_in_Minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitintervall_in_Minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldstart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdstart)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svideomenu", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVideomenu)) 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. 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 MsgBox(ex.Message) ' // 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
|
|