VB.NET:データベースの指定したテーブルのデータ(レコード)を更新(Update)するサンプルプログラム

VB.NETでデータベースの指定したテーブルのデータ(レコード)を更新するサンプルプログラムについて覚書。

もっとも簡単なのは、対象のテーブルのアダプターに各クエリーを作成すること。

[TableAdapterクエリの構成ウィザード]を使って簡単にできる。

以下手順について覚書。

[TableAdapterクエリの構成ウィザードの設定手順
テーブルのデータ(レコード)の更新方法
1. 名前付き引数で指定した場合
2. 名前付き引数を使用しない場合

[TableAdapterクエリの構成ウィザードの設定手順

以下[TableAdapterクエリの構成ウィザード]の設定手順について記載する。

ソリューションエクスプローラからMSDataSetGenerator(＊.xsd)をダブルクリックして表示する。
追加対象のテーブルを右クリック。
コンテキストメニューから[クエリの追加](右クリックの場所によっては、[追加] → [Query])をクリック
[TableAdapterクエリの構成ウィザード]が起動するので[SQLステートメントを使用する]がオンになってるのを確認して[次へ]をクリック
[UPDATE]をオンにして、[次へ]をクリック
UPDATE文を勝手に作成してくれるが、このUPDATE文はWhere条件に余計なフィールドが指定されている場合があるので編集する。

編集する場合は、そのまま自動で作成されたSQL文を編集するか、[クエリビルダ]をクリックしてビルダを起動。

Whereに指定するフィールドは、レコードを一意に識別するためのキー列のみでよい。

複合キーの場合は、当然複合キーに指定されているフィールド全部を指定する。

今回は、AccessのサンプルDB Northwindの運送会社テーブル使用しているので、表示されるSQL文は、以下のようになっている。

UPDATE `運送会社` SET `運送会社` = ?, `電話番号` = ? 
 WHERE ((`運送コード` = ?) AND ((? = 1 AND `運送会社` IS NULL)
 OR (`運送会社` = ?)) AND ((? = 1 AND `電話番号` IS NULL) OR (`電話番号` = ?)))

運送会社テーブルは、運送コードが主キーになっているので、以下のように変更する。

UPDATE `運送会社` SET `運送会社` = ?, `電話番号` = ? WHERE `運送コード` = ?

変更したら、[次へ]をクリックする。

[新しい関数の名前]ボックスに自分でわかりやすい任意の名前を入力(例:UpdateDataとか)して[完了]をクリックする。

以上で[TableAdapterクエリの構成ウィザード]の設定は終了。

テーブルのデータ(レコード)の更新方法

実際にデータ(レコード)を更新するときは、以下のように記述する。

名前付き引数で指定した場合

Me.運送会社TableAdapter.UpdateData(運送会社:="さーがわ急便", _
   電話番号:="0120-456-789", _
   Original_運送コード:=6)

※UPDATE文の時だけ運送コードに"Original_"って頭に付くのは何でだ? ※オートナンバー型のフィールドだからか? 意味不明。

名前付き引数を使用しない場合

名前付き引数を使用しない場合は以下の記載で良い。

Me.運送会社TableAdapter.UpdateData("黒ドラ運輸", "0120-456-789", 6)

当然引数に指定している運送コード部分は変数等に変更可。