Visioを「ただの図形描画ツール」で終わらせるな：SQL Server連携によるメタデータ一元管理の極致
Visioを単なる図面作成ツールとして使っているなら、あなたはエンジニアとしての資産をドブに捨てている。
Visioの真の価値は、その図面ファイル（VSDX）自体が「高機能なデータベースのフロントエンド」になり得るという点にある。今回は、VisioをSQL Serverと直結させ、保存操作をトリガーにメタデータを完全同期させる、エンタープライズレベルのアーキテクチャを伝授する。
なぜ「ベタ書き」してはいけないのか：設計思想の根幹
多くの初学者は、`ActiveDocument.CustomDocumentProperties`に直接値を書き込み、その直後に`ADODB.Connection`でSQLを発行するという、疎結合とは程遠い実装を行う。これは大規模開発において、「状態の不整合」という名の時限爆弾を埋め込む行為だ。
我々が目指すべきは、「保存の成功」を前提としたイベント駆動型の同期である。以下の設計指針を遵守せよ。
1. 分離の原則: ファイル保存ロジックとデータベース更新ロジックをクラスモジュールで完全に切り離す。
2. 排他制御の考慮: 複数人が同時に同じ図面にアクセスした場合のDB書き込み競合を、ドキュメントプロパティのタイムスタンプ比較で回避する。
3. トランザクションの保証: DB更新に失敗した場合、ファイル保存自体をロールバック（または警告）させる強制力を持つこと。
実装アーキテクチャ：`Document_BeforeSave`を掌握せよ
Visioには`Document_BeforeSave`イベントがある。ここでDB更新を行うのが鉄則だ。
1. 堅牢なメタデータ書き込みクラス (Class: `MetaDataManager`)
まずは、ドキュメントプロパティへのアクセスをカプセル化する。
‘ Class: MetaDataManager
Option Explicit
Public Sub WriteProperty(doc As Visio.Document, propName As String, propValue As String)
Dim customProps As Visio.CustomDocumentProperties
Dim prop As Visio.DocumentProperty
Set customProps = doc.CustomDocumentProperties
On Error Resume Next
Set prop = customProps(propName)
If prop Is Nothing Then
‘ 存在しない場合は作成
customProps.Add propName, False, visPropertyTypeString, propValue
Else
prop.Value = propValue
End If
On Error GoTo 0
End Sub
2. 保存イベントでの制御ロジック (`ThisDocument` モジュール)
ここでSQL Serverとの通信を制御する。同期が取れない場合は保存を中断させる勇気を持つことだ。
‘ Module: ThisDocument
Private Sub Document_BeforeSave(ByVal doc As Visio.Document)
Dim connString As String
Dim sql As String
Dim mgr As New MetaDataManager
‘ プロパティの更新
mgr.WriteProperty doc, “LastSyncDate”, Now()
‘ SQL Serverへの更新処理（要参照設定: Microsoft ActiveX Data Objects 6.x）
On Error GoTo SyncError
Dim conn As Object
Set conn = CreateObject(“ADODB.Connection”)
conn.Open “Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;”
‘ メタデータをDBへ同期（SQLインジェクション対策を忘れずに）
sql = “UPDATE DrawingMetadata SET LastSaved = GETDATE() WHERE DrawingID = ‘” & doc.Name & “‘”
conn.Execute sql
conn.Close
Exit Sub
SyncError:
MsgBox “データベース同期に失敗しました。保存を中断します。” & vbCrLf & Err.Description, vbCritical
‘ ここで保存をキャンセルさせるためのフラグ制御等を行う場合は、
‘ アプリケーションレベルのイベント監視が必要
End Sub
プロダクション環境で生き残るための「3つの極意」
1. GUIDによる識別
ファイル名（`doc.Name`）をキーにするのは素人だ。必ず`CustomDocumentProperties`に`DrawingGUID`という項目を作り、SQL Serverの主キーと一対一で紐付けろ。ファイル名変更に耐えうる設計がプロの条件だ。
2. 非同期処理の検討（上級者向け）
もしデータベースの応答が遅い場合、保存処理自体がフリーズする。この場合、VBAからWScript.ShellでバックグラウンドのPowerShellスクリプトをキックし、DB更新を非同期で行う手法が有効だ。同期の確実性が求められる場合は、上記のようにVBAでブロッキングさせるのが安全である。
3. PDF出力の自動化
メタデータ同期と同時にPDFを出力する場合、`doc.ExportAsFixedFormat`を使用せよ。ただし、保存イベント内でPDF出力を行うと無限ループに陥るリスクがある。 `SaveAs`直後のイベントをフックし、`Cancel`フラグを適切に管理せよ。
結びに：コードは「生き物」である
VBAはレガシーと言われることもある。しかし、Visioのようなドキュメントオートメーションにおいて、これほど直接的にOSとアプリケーションの深淵に触れられる言語は他にない。
今回提示したコードは、あくまで「骨組み」だ。これにエラーログの出力、例外処理の多重化、そして何より「何のためにデータを同期するのか」というビジネスロジックを肉付けせよ。
設計が正しければ、あなたのVisioはただの図面ではない。企業のナレッジベースそのものになる。健闘を祈る。
