|
' ___________________________________________________
'
' � Hi-Integrity Systems 2006. All rights reserved.
' www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'
Option Strict On
Option Explicit On
Friend Class DatabaseObjectsException
Inherits ApplicationException
Public Sub New(ByVal strMessage As String)
MyBase.New(strMessage)
End Sub
End Class
Friend Class ObjectAlreadyExistsException
Inherits ApplicationException
Public Sub New( _
ByVal objItem As IDatabaseObject, _
ByVal strKey As String)
MyBase.New(TypeName(objItem) & ": '" & strKey & "'")
End Sub
End Class
Friend Class ObjectDoesNotExistException
Inherits ApplicationException
Public Sub New()
End Sub
Public Sub New( _
ByVal objCollection As IDatabaseObjects, _
ByVal objIdentifier As Object)
MyBase.New(TypeName(objCollection) & ": '" & CType(objIdentifier, String) & "'")
End Sub
Public Sub New( _
ByVal objItem As IDatabaseObject)
MyBase.New(TypeName(objItem) & ": '" & CType(objItem.DistinctValue, String) & "'")
End Sub
End Class
Friend Class MethodLockedException
Inherits ApplicationException
Public Sub New()
End Sub
Public Sub New(ByVal strMessage As String)
MyBase.New(strMessage)
End Sub
End Class
Friend Class ObjectNotDeletableException
Inherits ApplicationException
End Class
Module Misc
Public Function TypeName(ByVal objItem As Object) As String
TypeName = objItem.GetType.Name
End Function
End Module
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.