上級プロフェッショナル向け：VB.NETにおける「Expression(Of TDelegate)」を用いた動的クエリ構築
レガシーなVB6/VBAシステムからの移行、あるいは複雑な社内業務システムの構築において、避けて通れない要件が「動的な検索条件の組み合わせ」だ。ユーザーがGUI上で自由に入力・選択した十数個の条件を組み合わせ、データベースから効率的にデータを抽出しなければならない。
素朴な実装者は、ここで文字列の連結によるSQLの動的構築や、不安全な`Dynamic LINQ`のパースに走りがちだ。しかし、文字列表的操作はSQLインジェクションのリスクを孕み、コンパイラの型チェックの恩恵を完全に殺す。何より、プロフェッショナルのコードベースにおいて、実行時エラーの温床となる「文字列依存のクエリ生成」は悪である。
今回は、VB.NETの真骨頂であるメタプログラミング機能、`System.Linq.Expressions.Expression(Of TDelegate)`を用いた型安全かつ極限まで最適化された式ツリー（Expression Tree）の動的構築手法を解き明かす。
—
1. なぜ「Expression(Of TDelegate)」なのか？
通常のLINQ（`IQueryable(Of T)`）は、ラムダ式を渡すことで裏で式ツリーを構築し、SQLに翻訳する。しかし、条件が実行時にしか決まらない場合、以下のようなコードを書こうとして壁にぶつかる。
.net
‘ コンパイルエラー：System.Func(Of T, Boolean)をIQueryableのWhereに直接渡すと、
‘ LINQ to Entitiesのプロバイダが式ツリーを正しく解析できない、あるいは条件分岐が複雑化する
Dim query As IQueryable(Of Employee) = db.Employees
If Not String.IsNullOrEmpty(txtLastName.Text) Then
‘ ここで動的に条件を足したいが、IQueryableのメソッドチェーンが途切れる
End If
ここで`Expression(Of Func(Of T, Boolean))`（すなわち `Expression(Of TDelegate)`）を使用する。これはコードそのものを「データ（抽象構文木）」としてメモリ上に構築し、実行時に組み合わせる技術だ。文字列表操作を一切行わず、C#をも凌駕する厳密な型安全性を保ちながら、完全なSQLへトランスレートされる式ツリーを自作できる。
—
2. 実践：動的AND/OR条件構築エンジンの実装
以下のコードは、実務で即座に使える、複数条件の動的結合を行うアーキテクチャの核心部である。ここでは、リフレクションのオーバーヘッドを極力排除し、式ツリーのノードを直接組み立てる手法をとる。
.net
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Reflection
Public NotInheritable Class DynamicQueryBuilder
‘ プライベートコンストラクタでインスタンス化を抑止
Private Sub New()
End Sub
”’
”’
Public Shared Function BuildPredicate(Of T)(conditions As Dictionary(Of String, Object)) As Expression(Of Func(Of T, Boolean))
If conditions Is Nothing OrElse conditions.Count = 0 Then
‘ 条件がない場合は常にTrueを返す式を生成 (x => True)
Dim trueParam = Expression.Parameter(GetType(T), “x”)
Return Expression.Lambda(Of Func(Of T, Boolean))(Expression.Constant(True), trueParam)
End If
‘ パラメータ表現の定義: x (ex. x => x.Name == “Value”)
Dim parameter = Expression.Parameter(GetType(T), “x”)
Dim combinedExpression As Expression = Nothing
For Each pair In conditions
Dim propertyName As String = pair.Key
Dim targetValue As Object = pair.Value
‘ プロパティアクセスの構築 (x.PropertyName)
Dim propertyInfo As PropertyInfo = GetType(T).GetProperty(propertyName, BindingFlags.IgnoreCase Or BindingFlags.Public Or BindingFlags.Instance)
If propertyInfo Is Nothing Then
Continue For ‘ 存在しないプロパティはスキップ（または例外設計）
End If
Dim propertyAccess As MemberExpression = Expression.Property(parameter, propertyInfo)
Dim constantValue As ConstantExpression = Expression.Constant(targetValue, propertyInfo.PropertyType)
‘ 比較式の構築 (x.PropertyName == targetValue)
‘ 文字列の場合はContainsやStartsWithへの拡張もここで可能
Dim equalExpression As BinaryExpression = Expression.Equal(propertyAccess, constantValue)
‘ 条件の結合 (AND)
If combinedExpression Is Nothing Then
combinedExpression = equalExpression
Else
combinedExpression = Expression.AndAlso(combinedExpression, equalExpression)
End If
Next
If combinedExpression Is Nothing Then
Dim dummyParam = Expression.Parameter(GetType(T), “x”)
Return Expression.Lambda(Of Func(Of T, Boolean))(Expression.Constant(True), dummyParam)
End If
‘ 最終的なLambda式のコンパイル（またはIQueryableへのバインド）
Return Expression.Lambda(Of Func(Of T, Boolean))(combinedExpression, parameter)
End Function
End Class
このコードの極限的知見
1. `Expression.AndAlso` の選択:
ビット演算の `And` ではなく `AndAlso`（短絡評価）を使用すること。これにより、SQLに翻訳された際にも `AND` 演算子の評価順序と効率が保証される。
2. 大文字小文字を吸収するリフレクション:
UI層からの入力キーとエンティティのプロパティ名が大文字小文字で乖離しているレガシーな状況に対応するため、`BindingFlags.IgnoreCase` を明示的に指定している。ただし、高頻度で呼び出されるループ内ではリフレクションのキャッシュ（後述）が必須となる。
—
3. パフォーマンスの最適化：式ツリーのコンパイルキャッシュ
`Expression.Lambda(…).Compile()` は非常に強力だが、実行するたびに動的なIL（中間言語）の生成とJITコンパイルが発生する。これを毎回の検索ボタン押下で行うシステムは、高負荷時にガベージコレクション（GC）の嵐を引き起こし、LOH（Large Object Heap）の断片化を招く。
プロフェッショナルは、構築した式ツリー（またはコンパイル済みのデリゲート）をキャッシュする。
.net
Imports System.Collections.Concurrent
Public Class CachedQueryFactory(Of T)
‘ スレッドセーフなキャッシュコンテナ
Private Shared ReadOnly _cache As New ConcurrentDictionary(Of String, Func(Of T, Boolean))()
Public Shared Function GetCompiledPredicate(conditions As Dictionary(Of String, Object)) As Func(Of T, Boolean))
‘ 条件のハッシュまたは一意なキーを生成
Dim cacheKey As String = String.Join(“&”, conditions.Select(Function(kv) $”{kv.Key}={kv.Value}”))
‘ キャッシュヒットすれば即座に返却（ゼロアロケーションに近いパフォーマンス）
Dim compiled As Func(Of T, Boolean) = Nothing
If _cache.TryGetValue(cacheKey, compiled) Then
Return compiled
End If
‘ キャッシュミス時のみ式ツリーを生成してコンパイル
Dim expr = DynamicQueryBuilder.BuildPredicate(Of T)(conditions)
compiled = expr.Compile()
_cache.TryAdd(cacheKey, compiled)
Return compiled
End Function
End Class
—
4. レガシーシステム連携とマネージド・アンマネージドの境界
VB.NETで大規模な業務システムを構築する際、データベースだけでなく、COMコンポーネント、ネイティブのWindows API、あるいは古いC++製DLLとの連携が必要になるケースが多々ある。
式ツリーを構築・評価する際、大量のオブジェクト（`MemberExpression`, `ConstantExpression` 等）がマネージドヒープに生成される。これらは世代別GC（Gen 0 / Gen 1）の対象となるが、もし外部のアンマネージド・リソースを操作するコンテキストと密結合させる場合、`IDisposable` の実装や `GC.Collect()` の安易な呼び出しは百害あって一利なしだ。
絶対の鉄則：
- 式ツリーの構築フェーズと、データベースI/Oフェーズのライフサイクルを完全に分離せよ。
- 検索条件の構築はメモリ内の純粋なロジック（CPUバウンド）であり、GCのプレッシャーを最小化するため、可能な限りオブジェクトの再利用（オブジェクトプールや前述のキャッシュ機構）を徹底すること。
—
5. 総括
文字列を結合してSQLを組み立てる時代は終わった。それはセキュリティホールの温床であり、モダンな.NETアーキテクチャへの冒瀆である。
`Expression(Of TDelegate)` を手中に収めたVB.NETプログラマは、静的言語の強靭な型安全性を維持しながら、動的言語に匹敵する柔軟なクエリ構築能力を手に入れることができる。レガシーコードの保守に甘んじることなく、底深い.NETのメタプログラミングの深淵を掌握し、堅牢で拡張性の高いシステムを構築し続けてほしい。
