MDB版：独自例外クラスの実装

独自例外クラスは、次のメンバーを実装します。

• データベースアクセス例外クラス
• 社員コード例外クラス
• 社員氏名例外クラス
• 社員カナ例外クラス

Option Strict On       'プロジェクトのプロパティでも設定可能

'////////// データベースアクセス例外クラス //////////
Public Class ClsDBIOException
    Inherits ApplicationException

    '========================================================
    ' 機能：コンストラクタ
    ' 引数：エラーメッセージ
    '========================================================
    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class


'////////// 社員コード例外クラス //////////
Public Class ClsSyainCodeException
    Inherits ApplicationException

    '========================================================
    ' 機能：コンストラクタ
    ' 引数：エラーメッセージ
    '========================================================
    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class


'////////// 社員氏名例外クラス //////////
Public Class ClsSyainSimeiException
    Inherits ApplicationException

    '========================================================
    ' 機能：コンストラクタ
    ' 引数：エラーメッセージ
    '========================================================
    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class


'////////// 社員カナ例外クラス //////////
Public Class ClsSyainKanaException
    Inherits ApplicationException

    '========================================================
    ' 機能：コンストラクタ
    ' 引数：エラーメッセージ
    '========================================================
    Public Sub New(ByVal errorMessage As String)
        MyBase.New(errorMessage)
    End Sub

End Class