MDB版 レコード追加サンプルプログラム

入力した社員データをもとに、社員マスターテーブルに１レコードを追加するプログラムを作成します。プロジェクトフォルダのbinフォルダにsample.mdbを置きます。

社員マスターテーブルに追加するプログラムで使用するクラスです。同一プロジェクト内にクラスファイル（クラス名.VB）を追加します。

• データベースアクセスクラス：ClsDBIO
• データ管理クラス：ClsSyain
• マスター保守独自例外クラス：ClsException

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

Option Strict On

Imports System.Data.OleDb

Public Class FormInsert
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
    ' 自動生成部分省略
#End Region

    ' データベースアクセスクラス
    Private dbIO As clsDBIO

    ' 社員データクラス
    Private syain As clsSyain

    '-------------------------------------------------------------
    ' 追加ボタンクリック処理：社員テーブルに1レコード挿入
    '-------------------------------------------------------------
    Private Sub BtnInsert_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles BtnInsert.Click

        Try
            syain = New ClsSyain(Me.TxtSyainCode.Text, _
            Me.TxtSyainSimei.Text, Me.TxtSyainKana.Text)

            ' データベースアクセスオブジェクト生成
            dbIO = New clsDBIO(syain.SyainCode)

            ' 社員マスターに１レコード追加
            If dbIO.InsertSyain(syain) = True Then
                MessageBox.Show("正常に追加されました", "追加処理")
                Me.TxtSyainCode.Text = ""
                Me.TxtSyainSimei.Text = ""
                Me.TxtSyainKana.Text = ""
                Me.TxtSyainCode.Focus()
            Else
                MessageBox.Show("追加できませんでした", "エラー")
            End If

        Catch ex As ClsSyainCodeException
            ' 社員コード例外が発生した時の処理
            MessageBox.Show(ex.Message, "エラー")
            Me.TxtSyainCode.Focus()

        Catch ex As ClsSyainSimeiException
           ' 社員氏名例外が発生した時の処理
            MessageBox.Show(ex.Message, "エラー")
            Me.TxtSyainSimei.Focus()

        Catch ex As ClsSyainKanaException
           ' 社員カナ名例外が発生した時の処理
            MessageBox.Show(ex.Message, "エラー")
            Me.TxtSyainKana.Focus()

        Catch ex As Exception
            ' 上記以外の例外が発生した時の処理
            MessageBox.Show(ex.ToString, "例外発生")

        End Try

    End Sub

End Class