社員マスターテーブル検索 [VB 2010]

Visual Basic 2010/2008 やさしいADO.NET DBプログラム

社員マスターから1レコードを検索するプログラムを作成します。

社員マスター検索画面クラスでは、社員マスターアクセスクラスのメソッドは呼び出す必要はありません。

• 社員データ選択クラスClsSelectShainクラスのインスタンスを生成
• ClsSelectShainクラスのインスタンスの社員氏名Getプロパティ、社員カナGetプロパティから、社員氏名とカナ名の値を取得
• エラーがあれば、例外をスローするので、例外に対応した複数のCatchブロックを実装
• 簡単にするために、部署コードの実装は省略

社員マスター表

Key	列名	データ型	NULLを許容
●	社員コード	nchar(5)	しない
	社員氏名	nvarchar(20)	しない
	社員カナ	nvarchar(40)	しない
	部署コード	nchar(4)	しない
	更新日時	datetime	しない

Option Strict On

'//////////////////// 社員テーブル検索画面クラス ////////////////////
Public Class FormSelect

    Private shain As ClsSelectShain

    '--------------------<< 検索ボタン押下処理 >>--------------------
    Private Sub BtnRetrieval_Click(ByVal sender As System.Object, _
		     ByVal e As System.EventArgs) Handles BtnRetrieval.Click

        Try
            ' 社員データ選択クラスのインスタンス生成
            shain = New ClsSelectShain(TxtShainCode.Text)
            LblShainShimei.Text = shain.ShainShimei
            LblShainKana.Text = shain.ShainKana

        Catch ex As myShainCodeException
            ' 社員コードエラー
            LblShainShimei.Text = Nothing
            LblShainKana.Text = Nothing
            MessageBox.Show(ex.Message, "入力エラー")
            TxtShainCode.Focus()

        Catch ex As myDBIOException
            ' DBIO独自例外発生時
            MessageBox.Show(ex.Message, "DBIO例外発生")

        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")

        End Try

    End Sub

End Class