サンプルプログラム

独自例外クラスは、ApplicationExceptionを継承します。

生成する例外はエラーメッセージを引数に指定します。コンストラクタ以外にクラスメンバーはありません。

• ＤＢＩＯ独自例外クラス
• 社員コード例外クラス
• 社員氏名例外クラス
• 社員カナ例外クラス
• 部署コード例外クラス
• 部署名例外クラス

ソースリストの枠内をクリックすると全選択できます。

'--------------- ＤＢＩＯ独自例外クラス ---------------
Public Class myDBIOException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class

'--------------- 社員コード例外クラス ---------------
Public Class myShainCodeException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class

'--------------- 社員氏名例外クラス ---------------
Public Class myShainShimeiException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class

'--------------- 社員カナ例外クラス ---------------
Public Class myShainKanaException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class

'--------------- 部署コード例外クラス ---------------
Public Class myBushoCodeException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class

'--------------- 部署名例外クラス ---------------
Public Class myBushoMeiException
    Inherits ApplicationException

    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class