Purpose: Update method. This method will Update one existing row in the database.
[Visual Basic] Public Overrides Function Update() As Boolean
True if succeeded, otherwise an Exception is thrown.
Properties needed for this method: <UL> <LI>iProfilnr</LI> <LI>iMitarbeiternr</LI> <LI>sBezeichnung. May be SqlString.Null</LI> <LI>blobV_Uebersicht. May be SqlBinary.Null</LI> <LI>sV_Aktiv_Vertragselemente. May be SqlString.Null</LI> <LI>bV_Aktiv_Vertragspartner. May be SqlBoolean.Null</LI> <LI>bV_Struktur_Details. May be SqlBoolean.Null</LI> <LI>bSelektionsart. May be SqlBoolean.Null</LI> <LI>bStandard. 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>bAktiv. May be SqlBoolean.Null</LI> <LI>sV_Sort. May be SqlString.Null</LI> <LI>sV_Register. May be SqlString.Null</LI> </UL> Properties set after a succesful call of this method: <UL> <LI>iErrorCode</LI> </UL>
[Visual Basic] Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Profil_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iProfilnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iProfilnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
Dim iLength As Integer = 0
If Not m_blobV_Uebersicht.IsNull Then
iLength = m_blobV_Uebersicht.Length
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobV_Uebersicht", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobV_Uebersicht))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sV_Aktiv_Vertragselemente", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sV_Aktiv_Vertragselemente))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bV_Aktiv_Vertragspartner", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bV_Aktiv_Vertragspartner))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bV_Struktur_Details", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bV_Struktur_Details))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSelektionsart", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSelektionsart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bStandard", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bStandard))
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("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sV_Sort", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sV_Sort))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sV_Register", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sV_Register))
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_Profil_Update' 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("clsProfil::Update::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