なぜ「泥臭いデータ操作」を卒業すべきなのか：BindingSourceこそがVB.NETの真骨頂である
現場でVB.NETを触るエンジニアの多くが陥る罠がある。それは、データベースからデータを取得するたびに `DataTable` をループで回し、`TextBox` や `ComboBox` に一つずつ値を詰め込むという「手動同期」の悪夢だ。
「ボタンを押すたびに検索条件をSQLで再発行し、画面を再描画する」――そんなコードを書き続けていては、コード量は肥大化し、バグの温床となる。
業務アプリのUI層において、`BindingSource` は単なるコンポーネントではない。データソースとUIを仲介し、変更検知、フィルタリング、カレント行管理を統合する「司令塔」である。これを使いこなせば、画面開発の工数は劇的に減り、かつ堅牢性が飛躍的に向上する。
今日は、伝説的アーキテクトの視点から、BindingSourceを極限まで活用する設計術を伝授しよう。
—
1. BindingSourceによる「疎結合」なアーキテクチャ
`BindingSource` を採用する最大の利点は、「データソース」と「UIコントロール」の間に強力なレイヤーを置くことにある。
例えば、`DataGridView` と `TextBox` が同じ `BindingSource` を参照していれば、グリッド上で選択行を変えるだけで、自動的に `TextBox` の値も連動する。これを手動で書こうとすれば、`SelectionChanged` イベントに追われ、深夜までデバッグすることになるだろう。
実装の極意：初期化のベストプラクティス
フォームのロード時に一度だけ紐付ける。これが鉄則だ。
‘ フォームロード時の初期化例
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
‘ データソースの準備（今回はDataTableを想定）
Dim dt As DataTable = GetDataFromDatabase()
‘ BindingSourceに紐付ける
bindingSourceMain.DataSource = dt
‘ UIコントロールのデータバインディング
‘ データソースの「Name」列を、txtUserNameのTextプロパティに双方向バインドする
txtUserName.DataBindings.Add(“Text”, bindingSourceMain, “Name”, True, DataSourceUpdateMode.OnPropertyChanged)
‘ DataGridViewにも同じソースを指定するだけ
dgvMain.DataSource = bindingSourceMain
End Sub
—
2. フィルタリング：SQLを叩かずにメモリ上で完結させる
検索機能の実装で、毎回「WHERE句を組み立てて再クエリ」していないだろうか？ ネットワーク負荷とDBの負担を考えれば、数千件程度のマスタデータならクライアント側でフィルタリングするのがプロの流儀だ。
`BindingSource.Filter` プロパティを使えば、SQLのWHERE句と同じ感覚で動的な検索が可能になる。
‘ 検索ボタン押下時のフィルタリング処理
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim filterText As String = txtFilter.Text.Trim()
If String.IsNullOrEmpty(filterText) Then
bindingSourceMain.RemoveFilter()
Else
‘ エスケープ処理を忘れずに。SQL Injection対策と同様の意識が必要。
‘ 今回は簡易的に文字列指定
bindingSourceMain.Filter = String.Format(“Name LIKE ‘%{0}%'”, filterText.Replace(“‘”, “””))
End If
End Sub
—
3. 業務アプリを崩壊させない「変更検知」のライフサイクル
現場で最も恐ろしいのは、ユーザーが編集中のデータを保存せずに画面を閉じてしまうことだ。`BindingSource` を使うと、データソースの変更状態を検知できる。
特に `DataTable` を利用している場合、`GetChanges()` メソッドと `BindingSource` を組み合わせることで、保存ボタンの有効・無効をスマートに制御できる。
‘ 変更を検知して保存ボタンの制御を行う
Private Sub bindingSourceMain_ListChanged(sender As Object, e As ListChangedEventArgs) Handles bindingSourceMain.ListChanged
‘ データが変更された瞬間、保存ボタンを有効にする等の制御
btnSave.Enabled = True
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
‘ 変更の確定（BindingSourceが値をデータソースへ反映させる）
bindingSourceMain.EndEdit()
Dim dt As DataTable = DirectCast(bindingSourceMain.DataSource, DataTable)
Dim changes As DataTable = dt.GetChanges()
If changes IsNot Nothing Then
‘ ここでデータベース更新処理を呼び出す
Repository.Save(changes)
dt.AcceptChanges() ‘ 変更状態をクリア
btnSave.Enabled = False
End If
End Sub
—
4. 伝説的エンジニアからの「現場の知恵」
最後に、トラブルを未然に防ぐためのチェックリストを記す。
- DataSourceUpdateModeを意識せよ:
デフォルトは `OnValidation` だ。フォーカスが外れた瞬間に値が確定する。即時反映が必要な場合は `OnPropertyChanged` を指定せよ。
- BindingSource.EndEdit()を呼び出せ:
保存ボタンを押した瞬間、現在フォーカスがあるコントロールの値がデータソースに反映されていないことがある。保存処理の直前には必ず `EndEdit()` を呼ぶこと。
- 例外処理とトランザクション:
DB連携時は必ず `Try-Catch` を配置し、例外発生時には `DataTable.RejectChanges()` を呼び出して、UI上の状態とDBの状態が乖離しないようにせよ。
結論
`BindingSource` を使いこなすことは、単なるコード削減ではない。「UIの状態管理」という、VB.NET開発者が最も苦しむ泥沼から脱出することを意味する。
「動けばいい」コードは、半年後の自分を苦しめる。だが、BindingSourceを中心とした堅牢な設計は、半年後の自分が機能追加を容易に行える「資産」となる。さあ、今すぐコードの重複を削ぎ落とし、エレガントなデータバインディングの世界へ踏み込んでほしい。
