Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.

[Visual Basic]
Public Overrides Function Delete() As Boolean

Rückgabewert

True if succeeded, otherwise an Exception is thrown.

Hinweise

Properties needed for this method: <UL> <LI>iLizenzkaufNr</LI> </UL> Properties set after a succesful call of this method: <UL> <LI>iErrorCode</LI> </UL>

Quellcode

[Visual Basic]
		Overrides Public Function Delete() As Boolean 
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand() 
			scmCmdToExecute.CommandText = "dbo.[pr_Lizenzkauf_Delete]" 
			scmCmdToExecute.CommandType = CommandType.StoredProcedure 
 
			' // Use base class' connection object 
			scmCmdToExecute.Connection = m_scoMainConnection 
 
			Try 
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iLizenzkaufNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iLizenzkaufNr)) 
				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_Lizenzkauf_Delete' 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("clsLizenzkauf::Delete::Error occured.", ex) 
			Finally 
				If m_bMainConnectionIsCreatedLocal Then 
					' // Close connection. 
					m_scoMainConnection.Close() 
				End If 
				scmCmdToExecute.Dispose() 
			End Try 
		End Function

Forderungen

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

Siehe auch

clsLizenzkauf