Windows Formsの限界を突破せよ：数万行の巨大会議データを一瞬で呑み込む極限のデータハンドリング
レガシーシステムの保全、あるいは泥臭い現場の業務アプリにおいて、いまだにVisual Basic（VB.NET）とWindows Formsの組み合わせは強固な生命力を誇っている。
しかし、ここで多くの開発者が絶望の壁にぶつかる。それが「数万行におよぶCSVやExcelデータのDataGridViewへの流し込み」だ。
愚直に`DataGridView.Rows.Add`をループさせたり、各セルの値を一つずつ代入していくようなコードを書いた瞬間、UIスレッドは完全に沈黙し、Windowsは「応答なし」の悲鳴を上げる。なぜか？ すべてのセル描画、レイアウト計算、そして変更通知イベントが同期的に走るからだ。
真のプロフェッショナルであれば、UIコントロールをデータローダーとして使ってはならない。
今回は、VB.NETの極限のパフォーマンスを引き出し、メモリの底から爆速でデータを捌く「LINQ to DataSet」と「SqlBulkCopy」の融合アーキテクチャを伝授する。
—
1. なぜDataGridViewに直接流し込んではいけないのか
Windows FormsのUIアーキテクチャは、Win32 APIのラッパーとしての宿命を背負っている。`DataGridView`は非常に高機能なグリッドだが、内部で保持するセルオブジェクトやスタイル計算のオーバーヘッドは決して小さくない。
数万行のデータを扱う際の鉄則はこれだ。
1. データはメモリ（DataTable）上で完結させる。
2. UIは「表示すべき最小限のデータ」だけを遅延ロード（仮想モード）または一括バインドする。
3. データベースへの書き込みは、ORMや個別INSERTのループではなく、物理的な一括転送（BulkCopy）を使う。
この原則を破ったコードは、技術的負債という名の爆弾を未来に残すだけだ。
—
2. 【インポート編】数万行のCSVをメモリ上に一瞬で展開し、SQL Serverへ直行させる
外部から取り込む数万行のCSVデータを、一文字もUIを介さずに、かつ型安全に処理してデータベース（SQL Server）へ流し込む実戦コードを示す。
ここで用いるのは、`TextFieldParser`による高速CSVパース、`DataTable`の型付きスキーマ構築、そして天下の`SqlBulkCopy`だ。
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.FileIO
Public Class DataImporter
”’
”’
Public Sub ExecuteHighSpeedImport(csvFilePath As String, connectionString As String)
‘ 1. 高速なインメモリDataTableの作成
Using dt As New DataTable(“ImportTarget”)
‘ スキーマの定義（DB側のテーブル構造と完全に一致させること）
dt.Columns.Add(“Id”, GetType(Integer))
dt.Columns.Add(“ItemCode”, GetType(String))
dt.Columns.Add(“ItemName”, GetType(String))
dt.Columns.Add(“Quantity”, GetType(Integer))
dt.Columns.Add(“UnitPrice”, GetType(Decimal))
dt.Columns.Add(“RegisteredDate”, GetType(DateTime))
‘ 大量データの追加に備え、あらかじめメモリ領域を確保（パフォーマンス劇的向上）
dt.BeginLoadData()
‘ 2. TextParserによる超高速CSV読み込み
Using parser As New TextFieldParser(csvFilePath, System.Text.Encoding.GetEncoding(“shift_jis”))
parser.TextFieldType = FieldType.Delimited
parser.SetDelimiters(“,”)
parser.HasFieldsEnclosedInQuotes = True
‘ ヘッダー行のスキップ
If Not parser.EndOfData Then
parser.ReadFields()
End If
While Not parser.EndOfData
Dim fields As String() = parser.ReadFields()
‘ DataRowに値を詰める（型変換の安全性を担保）
Dim row As DataRow = dt.NewRow()
row(“Id”) = Integer.Parse(fields(0))
row(“ItemCode”) = fields(1)
row(“ItemName”) = fields(2)
row(“Quantity”) = Integer.Parse(fields(3))
row(“UnitPrice”) = Decimal.Parse(fields(4))
row(“RegisteredDate”) = DateTime.Parse(fields(5))
dt.Rows.Add(row)
End While
End Using
dt.EndLoadData()
‘ 3. SqlBulkCopyによる物理一括転送（ここが真骨頂）
Using bulkCopy As New SqlBulkCopy(connectionString, SqlBulkCopyOptions.KeepIdentity)
bulkCopy.DestinationTableName = “T_SalesData”
bulkCopy.BatchSize = 5000 ‘ 5000件ごとにコミット
bulkCopy.NotifyAfter = 5000
‘ 必要であれば進捗イベントをフック可能
AddHandler bulkCopy.SqlRowsCopied, Addressfun_SqlRowsCopied
Try
bulkCopy.WriteToServer(dt)
Catch ex As Exception
‘ ログ出力およびトランザクション異常時の処理
Throw New ApplicationException(“一括インポートに失敗しました: ” & ex.Message, ex)
End Try
End Using
End Using
End Sub
Private Sub fun_SqlRowsCopied(sender As Object, e As SqlRowsCopiedEventArgs)
‘ 現場のオペレーターに安心感を与えるための進捗コンソール/ログ出力
System.Diagnostics.Debug.WriteLine($”{e.RowsCopied} 行が転送されました。”)
End Sub
End Class
このコードの優位性
- `dt.BeginLoadData()` と `dt.EndLoadData()`：これらを呼び出すことで、`DataTable`内部のインデックス維持や変更通知イベントが一時停止され、行追加のオーバヘッドが極限まで消え去る。
- `SqlBulkCopy`：SQL ServerのT-SQL層で直接一括処理を行うため、1件ずつ`INSERT`発行する方式に比べ、ネットワークラウンドトリップとログ書き込みの負荷が数分の一から数十分の一に低下する。数万行なら1秒未満で完了するだろう。
—
2. 【エクスポート編】LINQ to DataSetでメモリ上のデータを秒速フィルタリング＆グリッドバインド
次に、数万件のデータをDBから一括取得（あるいはメモリ上に保持）し、ユーザーが求める条件で絞り込んでDataGridViewに表示、さらにCSVやExcelへ一気に吐き出すシーンを考える。
ここで、VB.NETの強力な言語機能である LINQ to DataSet が火を噴く。
Imports System.Data
Imports System.Linq
Public Class DataExporter
”’
”’
Public Sub BindFilteredDataToGrid(sourceTable As DataTable, targetGrid As DataGridView, keyword As String)
‘ 描画サスペンド（UIフリーズ防止の基本中の基本）
targetGrid.SuspendLayout()
Try
‘ LINQ to DataSetによる高速クエリ
‘ AsEnumerable()により、型安全なEnumerableRowCollectionへ変換
Dim query = From row In sourceTable.AsEnumerable()
Where row.Field(Of String)(“ItemName”).Contains(keyword) OrElse
row.Field(Of String)(“ItemCode”) = keyword
Order By row.Field(Of DateTime)(“RegisteredDate”) Descending
Select row
‘ 抽出結果が存在する場合のみDataTableに射影（存在しない場合は空のDataTable）
Dim filteredTable As DataTable
If query.Any() Then
filteredTable = query.CopyToDataTable()
Else
filteredTable = sourceTable.Clone() ‘ スキーマだけコピー
End If
‘ DataGridViewへの一括バインド
‘ DataSourceの割り当ては一瞬で行われるため、ループ処理は不要
targetGrid.DataSource = filteredTable
Finally
‘ 描画再開
targetGrid.ResumeLayout()
End Try
End Sub
End Class
チーフアーキテクトの視点：`SuspendLayout` と `ResumeLayout` の重要性
Windows Formsのコントロールは、データソースが変更されるたびに、あるいは1行追加されるたびにレイアウトエンジンを動かし、再描画（Invalidate）を試みる。
`SuspendLayout()` を呼ぶことでウィンドウメッセージのWM_SETREDRAWをオフにし、一連のバインド処理が終わった後に `ResumeLayout(True)` で一気に描画を更新する。これだけで、ユーザーが目撃する「画面のチラつき」や「フリーズ感」を完全に消し去ることができる。
—
3. レガシー環境とメモリ管理の極意（オブジェクトの明示的解放）
VB.NET（.NET Framework環境）における最大の敵は、ガベージコレクション（GC）への過信だ。
特に数万行を扱うDataTableやDataSet、あるいはSQLクライアントのコネクションは、管理ヒープ（LOH: Large Object Heap）を圧迫し、メモリリークやメモリ不足例外（`OutOfMemoryException`）を引き起こす引き金となる。
シニアエンジニアたるもの、`Using`ステートメントを徹底し、リソースのライフサイクルを完全に掌握せよ。
‘ 【アンチパターン】
‘ Dim dt As New DataTable()
‘ … 処理 …
‘ (メソッドを抜けるまでdtはメモリに居座り続ける。巨大な配列やデータは即座に解放すべき)
‘ 【正解のパターン】
Using dt As New DataTable()
‘ 内部で巨大なデータを扱う処理
Using adapter As New SqlDataAdapter(“SELECT FROM T_HugeTable”, conn)
adapter.Fill(dt)
End Using
‘ 処理が終わったら直ちにDisposeを強制し、GCの負担を軽減する
End Using
さらに、マネージドヒープのフラグメンテーションを防ぐため、非常に巨大なデータを扱うバッチ処理の最後には、意識的にメモリを解放するアプローチも現場では有効だ。
‘ 極限状態における明示的GC回収（多用は禁物だが、バッチ処理の区切りでは強力な武器となる）
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
—
結び：道具に振り回されるな、アーキテクチャでねじ伏せろ
「VB.NETだから遅い」「Windows Formsだから動かない」――それは怠慢な設計への言い訳に過ぎない。
プラットフォームの特性を理解し、ボトルネックがどこにあるのか（UIの再描画なのか、ループによる個別のオブジェクト生成なのか、I/Oの往復なのか）を正確に見極めれば、レガシーと言われる技術であっても第一線で戦える超高速システムを構築できる。
今回紹介した `SqlBulkCopy` による一括流し込み と `LINQ to DataSet` によるインメモリ高速処理、そして UIスレッドのサスペンド制御。この3つをあなたの武器庫に加えれば、いかなる巨大データも恐れるに足りない。
現場の王であれ。コードの支配者であれ。
