更新ボタンクリック [VB]

Visual Basic ADO.NET [Community Express]

更新ボタンクリック処理

得意先マスターの1レコードを更新する画面クラスに、更新ボタンクリック処理、クリア処理、画面初期設定を実装します。

得意先更新ボタン [更新フォームクラス]

得意先マスター更新
得意先マスター表
Key 列名 データ型 NULLを許容
得意先コード nchar(5) しない
郵便番号 nchar(7) しない
得意先名称 nvarchar(40) しない
得意先住所 nvarchar(50) しない
郵便番号マスター表
Key 列名 データ型 NULLを許容
郵便番号 nchar(7) しない
都道府県名 nvarchar(4) しない
市区町村名 nvarchar(10) しない
町域名 nvarchar(20) しない
【更新ボタンクリック処理】
  • TokuisakiData構造体に画面からの修正済データをセット
  • 入力データをセットしたTokuisakiData構造体を引数に指定して、得意先データ更新クラスのインスタンスを生成
  • UpdateRecordメソッドを呼び出して、得意先マスター表から該当レコードを更新
  • レコード更新後画面を初期化

フォームロード処理・得意先検索ボタン処理・住所検索ボタン処理 はこちら

サンプルプログラム

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

'////////// 得意先マスター更新画面クラス //////////
Public Class FormTokuisakiTouroku

    ' フォームロード処理・得意先検索ボタン処理・住所検索ボタン処理

    '*******************************************************
    ' 更新ボタンクリック処理
    '*******************************************************
    Private Sub BtnKoshin_Click(sender As System.Object, _
        e As System.EventArgs) Handles BtnKoshin.Click

        Try
            ' 画面からの修正データのセット
            Dim tokuisaki As New TokuisakiData
            tokuisaki.tCode = TxtTokuisakiCode.Text
            tokuisaki.tName = TxtTokuisakiMei.Text
            tokuisaki.tYuBango = TxtYubinBango.Text
            tokuisaki.tJusho = CmbTodofukenMei.Text & ","
            tokuisaki.tJusho &= TxtShikuchosonMei.Text & ","
            tokuisaki.tJusho &= TxtJusho.Text
            ' 得意先マスター表を更新
            Dim update As New ClsUpdateTokuisaki(tokuisaki)
            update.InsertRecord()
            ' 画面初期設定
            ClearForm()
            ' 正常終了メッセージ
            MessageBox.Show("正常にレコード更新", "得意先マスター表")
            TxtTokuisakiCode.Focus()

        Catch ex As TokuisakiCodeException
            ' 得意先コードエラー
            MessageBox.Show(ex.Message, "得意先コード入力エラー")
            TxtTokuisakiCode.Focus()
        Catch ex As TokuisakiMeishoException
            ' 得意先名称エラー
            MessageBox.Show(ex.Message, "得意先名称入力エラー")
            TxtTokuisakiMei.Focus()
        Catch ex As YuBangoException
            ' 郵便番号エラー
            MessageBox.Show(ex.Message, "郵便番号入力エラー")
            TxtYubinBango.Focus()
        Catch ex As DBIOException
            ' DBアクセスクラス独自例外発生時
            MessageBox.Show(ex.Message, "DBIO例外発生")
        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub

    ' クリアボタンクリック処理・フォーム初期設定処理

End Class