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
|
Syntax