データの同期は「転送」ではない。「状態の整合」を設計することだ。
SQL ServerとMS Projectを繋ぐ、極限のカスタムフィールド・マッピング・アーキテクチャ
多くの開発者が、MS Projectと外部データベース（SQL Server）の連携を「単なるデータの流し込み」だと勘違いしている。その浅はかな認識が、大規模プロジェクトにおける計算エンジンのハングアップ、メモリリーク、そして最悪のケースである「プロジェクト・データの不整合」を引き起こす。
MS Projectは単なるスプレッドシートではない。複雑な依存関係、リソース制約、計算ロジックが絡み合う「ステートマシン（状態機械）」だ。そこに外部からSQL Serverのデータを注入する場合、我々は単なるETL（Extract, Transform, Load）プロセスを書いているのではない。二つの異なるデータ・ドメイン間の整合性を担保する「コネクタ」を設計しているのだ。
本稿では、シニアエンジニアが直面する「パフォーマンスの壁」と「メモリ管理の深淵」を突破するための、実戦的な実装指針を詳述する。
1. 破綻する設計：$O(N^2)$ の罠を回避せよ
初心者が書くコードは、往々にして以下のような構造になる。
' 【アンチパターン】極めて低速で、大規模データでは実用不能
For Each t In ActiveProject.Tasks
' タスクごとにSQLを発行する。ネットワーク・レイテンシの地獄
rs.Open "SELECT Value FROM MyTable WHERE TaskID = " & t.ID, conn
t.Text1 = rs!Value
rs.Close
Next tこれは、タスク数 $N$ に対して、SQL発行回数も $N$ に比例する。ネットワークの往復（Round-trip）が $N$ 回発生し、MS Projectのオブジェクトモデルへのアクセス（COMインターフェース経由）が重なることで、計算量は指数関数的に悪化する。
プロフェッショナルの解法：Dictionaryによるメモリ内ハッシュ・マッピング
我々が採用すべきは、「一括フェッチ（Bulk Fetch）とメモリ内ハッシュ・マッピング」である。SQL Serverから全データを一括で取得し、VBAの `Scripting.Dictionary` に格納する。これにより、探索コストを $O(1)$ に抑え、プロジェクト全体の走査を $O(N)$ で完結させる。
2. オブジェクトのライフサイクル：COMリークという名の静かなる侵食
VBAにおいて、最も恐ろしいのは「見えないメモリ消費」だ。`ADODB.Connection` や `Recordset`、そして `Project.Task` オブジェクトは、すべてCOM（Component Object Model）オブジェクトである。
これらを適切に解放しないままループを回せば、MS Projectのプロセス（`WINPROJ.EXE`）のメモリ使用量は肥大化し続け、最終的にスタックオーバーフローや、OSレベルでのリソース枯渇を招く。
鉄則：
1. オブジェクトへの参照は、使用直後に生成する。
2. スコープを抜ける前に、必ず `Set obj = Nothing` で明示的に参照カウントをゼロにする。
3. エラーハンドリングの中で、必ずクリーンアップ・ルーチンを通す。
3. 実装：高信頼性・高速同期コネクタ
以下に、SQL Serverからデータを取得し、MS Projectのカスタムフィールド（Task.Text1）へマッピングする、実戦レベルのコードを示す。
Option Explicit
' ==============================================================================
' Module: modProjectConnector
' Description: SQL Serverからカスタムフィールドへの高速・安全な同期エンジン
' ==============================================================================
' Windows API: システムの精密なエラーログ取得やメモリ監視が必要な場合に使用
' 本実装では標準的なエラーハンドリングに注力するが、レガシー環境では重要
If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Else
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
End If
Public Sub SyncCustomFieldsFromSQL()
' 定数定義
Const CONN_STR As String = "Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;"
' オブジェクト宣言（ライフサイクル管理のため、スコープを限定）
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dict As Scripting.Dictionary
Dim t As Task
Dim taskID As Long
Dim syncCount As Long
' 実行速度計測用
Dim startTime As Double: startTime = Timer
On Error GoTo ErrorHandler
' 1. 接続確立
Set conn = New ADODB.Connection
conn.ConnectionString = CONN_STR
conn.Open
' 2. データの一括取得（Bulk Fetch）
' SQL側で必要なデータ（TaskIDとマッピング値）のみを絞り込む
Set rs = New ADODB.Recordset
rs.Open "SELECT TaskID, MappingValue FROM ProjectSyncTable", conn, adOpenStatic, adLockReadOnly
' 3. メモリ内ハッシュマップ（Dictionary）への展開
' これにより、O(N^2) を O(N) へ昇華させる
Set dict = New Scripting.Dictionary
Do Until rs.EOF
' TaskIDをキー、値をValueとして格納
dict.Add CLng(rs!TaskID.Value), CStr(rs!MappingValue.Value)
rs.MoveNext
Loop
' 4. MS Project オブジェクトへのマッピング
' トランザクション的な整合性を保つため、計算の停止を検討すべき
' (大規模な場合は Application.Calculation = xlManual 的な制御が必要)
Application.ScreenUpdating = False ' 描画更新の停止によるパフォーマンス向上
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
taskID = t.ID
' Dictionaryにキーが存在する場合のみ更新（高速検索）
If dict.Exists(taskID) Then
' カスタムフィールド（Text1）への書き込み
t.Text1 = dict(taskID)
syncCount = syncCount + 1
End If
End If
Next t
' 成功ログ
Debug.Print "Synchronization Complete: " & syncCount & " tasks updated in " & Format(Timer - startTime, "0.00") & "s"
CleanUp:
' 5. 厳格なオブジェクト解放（メモリリーク防止の生命線）
On Error Resume Next
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Set dict = Nothing
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
' エラー発生時のロールバック的思想
' 本来はここで、更新前の状態をスナップショットとして保持していれば復元可能
MsgBox "Critical Error during synchronization:" & vbCrLf & Err.Description, vbCritical, "Architecture Failure"
Resume CleanUp
End Sub4. さらなる高みへ：トランザクションと整合性の設計
上記のコードは、データ取得の高速化には成功しているが、「書き込み中のエラー」に対する防御はまだ不完全だ。もし、100件目の更新中にネットワークが切断されたら、プロジェクトは「半分だけ更新された」という、最も危険な中途半端な状態に陥る。
真のアーキテクトは、以下の戦略を検討する。
1. 論理的トランザクションの導入:
同期開始前に、現在のカスタムフィールドの値を一時的な作業用フィールド（例：`Text2`）に退避させておく。すべての処理が成功したときのみ、`Text1` へ値をコピーする。失敗した場合は、`Text2` から戻すことで、原子性（Atomicity）を担保する。
2. 差分更新（Delta Update）の採用:
毎回全件を書き換えるのではなく、SQL Server側の「更新日時（`LastModified`）」を比較し、変更があったレコードのみを対象とする。これは、MS Projectの再計算（Recalculation）負荷を劇的に軽減する。
3. Windows APIによるプロセス監視:
大規模な同期処理を行う際、VBAは「応答なし」に見えることがある。`Declare Sub Sleep` を活用した細かな制御や、バックグラウンドでのステータス更新を実装することで、ユーザーインターフェースの堅牢性を高める。
結論
Project VBAにおけるシステム連携は、単なるプログラミングではない。それは、リソースの制約、メモリの挙動、そしてデータの整合性という、計算機科学の根源的な問題への挑戦である。
「動けばいい」というコードを書く者は、レガシーの荒波に飲み込まれる。
「設計」する者は、システムを支配する。
君がどちらの道を選ぶかは、今書いているその一行にかかっている。
