鋼鉄のUIを維持せよ：VB.NETにおけるSQLite/LocalDB非同期トランザクションの極意
多くのVB.NET開発者が、UIスレッドでデータベース操作を行い、アプリケーションを「フリーズ」させている。ユーザーがボタンを押した瞬間に画面が白くなり、マウスカーソルが砂時計に変わる。これはプログラミングの敗北だ。
Windows Formsのイベント駆動モデルは、単一のUIスレッドに依存している。ここに数ミリ秒以上の負荷をかければ、ユーザー体験は即座に崩壊する。本稿では、レガシーなVB.NET環境において、SQLiteやLocalDBを、メモリリークを許さず、かつ高負荷下でも堅牢に操作する「非同期データアクセス層」の構築術を伝授する。
—
1. 非同期の罠と「同期の正解」
多くの駆け出しエンジニアは、単に`Task.Run`でDB処理を囲めば解決すると考える。しかし、それは「接続の競合」と「トランザクションの未解放」という地獄への入り口だ。
VB.NETにおけるDB接続は、「使用するたびに生成し、即座に破棄する」が鉄則である。コネクションプールを過信してはいけない。特にSQLiteのようなローカルファイルベースのDBでは、接続のライフサイクル管理がデータの整合性に直結する。
実践：Taskベースの安全なトランザクション実装
以下のコードは、スレッドセーフを担保したトランザクションのパターンだ。`Using`ブロックによる確定的な破棄が、メモリ最適化の要となる。
”’
”’
Public Async Function ExecuteTransactionAsync(queryList As List(Of String)) As Task(Of Boolean)
‘ UIスレッドから切り離して別スレッドで実行
Return Await Task.Run(Function()
‘ 接続文字列は必ず定数化し、外部ファイル等で管理する
Using conn As New SQLiteConnection(ConnectionString)
conn.Open()
Using trans As SQLiteTransaction = conn.BeginTransaction()
Try
Using cmd As New SQLiteCommand(conn)
For Each sql In queryList
cmd.CommandText = sql
cmd.ExecuteNonQuery()
Next
End Using
trans.Commit()
Return True
Catch ex As Exception
trans.Rollback()
‘ ここで適切なロギングを行うこと
Return False
End Try
End Using
End Using
End Function)
End Function
—
2. Windows APIとメモリ最適化の深淵
VB.NETのガベージコレクタ(GC)は万能ではない。特に大量のDBレコードを扱う際、`DataSet`や`DataTable`を安易に使い回すと、メモリの断片化（メモリリークに近い挙動）を招く。
明示的な解放の重要性
大規模なデータ抽出を行う際は、`IDataReader`を採用せよ。`DataTable`への全ロードは、メモリを食いつぶすだけの愚行だ。`IDataReader`はレコードをストリームとして処理するため、メモリ消費を最小限に抑えられる。
- Marshal.ReleaseComObject: もしCOMオブジェクトを介したDB操作（古いAccessエンジンなど）を行っているなら、必ず明示的に解放せよ。
- GC.Collectの誘惑を断つ: GCを強制起動するのは、設計の敗北だ。オブジェクトのスコープを`Using`で極小化することで、GCに頼らずメモリを解放するアーキテクチャを目指せ。
—
3. レガシーシステムにおける「コネクションプールの制御」
SQLiteはファイルロックの性質上、複数のスレッドからの書き込みで「Database is locked」エラーを頻発させる。これを回避するには、「単一の書き込み用キュー」を実装するのがプロの流儀だ。
書き込みキューの設計思想
1. 書き込み専用の非同期タスクを作成: `BlockingCollection(Of T)`を使用し、DBへの書き込みリクエストをキューイングする。
2. シングルトンな書き込みワーカースレッド: キューから順次データを取り出し、直列でDBにコミットする。
3. UIスレッドとの分離: UIはキューにデータを投げるだけ。完了通知は`IProgress(Of T)`を使用し、安全にUIへ戻す。
‘ 書き込みキューのプロトタイプ例
Private ReadOnly _writeQueue As New BlockingCollection(Of String)()
‘ コンストラクタでバックグラウンドスレッドを立ち上げる
Private Sub StartWriterThread()
Task.Factory.StartNew(Sub()
For Each sql In _writeQueue.GetConsumingEnumerable()
‘ ここで前述のトランザクションを実行
Next
End Sub, TaskCreationOptions.LongRunning)
End Sub
—
4. 伝説的アーキテクトからの助言
VB.NETは古い言語ではない。適切に設計されたVB.NETコードは、現代のC#とも遜色ないパフォーマンスを発揮する。
- DB設計: 頻繁に更新されるカラムにはインデックスを貼るな。逆に、参照頻度の高いカラムには必ず貼れ。このトレードオフを理解していない設計は「死」を意味する。
- 例外処理: `Catch Ex As Exception`でログを握りつぶすな。DBの異常は、システム全体の異常だ。ビジネスレイヤーでキャッチすべき例外と、DB層で即座に中断すべき例外を明確に分けろ。
結論:
UIは常にレスポンスを返せ。DB操作は背後の暗闇で行え。そして、すべての接続は`Using`によって、潔く、淀みなく解放しろ。それが、VB.NETという枯れた技術で最新のシステムを制御する、我々エンジニアの矜持である。
現場のコードが「動く」ことは最低条件に過ぎない。「美しく、速く、壊れない」コードだけが、歴史に残る。今すぐ貴方のソースコードを見直し、メモリの断片化を排除せよ。
