マスターテーブルにレコード追加 [VB.NET]

Visual Basic.NET ADO.NETデータベースプログラミング

ADO.NET:INSERT

CommandオブジェクトのExecuteNonQueryメソッドを使って、マスターテーブルに1レコードを追加するADO.NETのサンプルプログラム

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

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

実行例
コントロール プロパティ 設定値
TxtSyainCode Text ""
TxtSyainSimei Text ""
TxtSyainKana Text ""
BtnInsert Text 登録

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

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

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)

            ' 社員マスターに1レコード追加
            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
[広告]と関連コンテンツ
[広告]