【CorelDRAW VBA × SQL Server】エンタープライズ・ベクターアセット管理アーキテクチャの構築
開発プロジェクトのリーダーである私から、現場のエンジニア諸君に問いたい。
君たちのチームでは、社内の膨大なベクターアセット（ロゴ、パッケージ展開図、工業用デザイン）の管理をどのように行っているか？「共有サーバーのフォルダに適当に命名規則をつけて保存し、Excelで台帳管理」といった前近代的で属人化した手法をとっていないだろうか。
ファイル名が壊され、最新バージョンが分からなくなり、デザイナーがローカルに抱え込んだまま退職する――。この悪夢のような状況をVBAとSQL Serverの融合によって根本から断ち切る。
今回は、CorelDRAWを単なるお絵描きツールではなく、「エンタープライズ・リレーショナルデータベースと完全に同期する分散型デザインステーション」へと変貌させる、極限まで洗練されたアセット管理・自動バージョン管理システムの設計思想とプロダクションコードを伝授する。
—
1. なぜ「ファイル管理」ではなく「データベース同期」なのか
一般的なVBAマクロは、ローカルファイルをゴニョゴニョと操作して終わりだ。しかし、真の業務自動化エンジニアを目指すなら、データのライフサイクル管理（Data Lifecycle Management）に目を向けなければならない。
脆弱なファイルシステムの限界
- 排他制御の欠如: 複数人が同時に同じCDRファイルを修正した際の競合（コンフリクト）を検知できない。
- メタデータの検索性ゼロ: 「クライアントA社向け、かつ、2023年以降に作成された特定のパスを含むデザイン」といった複合クエリをファイル名から引くことは不可能。
- 履歴管理の不徹底: 「いつ、誰が、どのバージョンから派生させたか」というトレーサビリティの欠如。
SQL Server 連携アーキテクチャの優位性
CorelDRAWの背後にSQL Serverを据え、ADO（ActiveX Data Objects）を介してメタデータとバイナリ（あるいは差分）を完全に同期させる。これにより、CorelDRAWの内部イベント（DocumentOpen, DocumentSave）とDBトランザクションを強固に結びつけ、「人間が保存を意識しなくても勝手にバージョン管理とDB同期が走る仕組み」を構築できる。
—
2. 堅牢な設計における3つの技術的要件
実務の現場で破綻しないシステムを作るために、以下の3点は絶対に譲れない。
1. トランザクションの整合性（ACID特性の担保）
CDRファイルの保存失敗と、DBへのメタデータ書き込み失敗が片方だけ起きてはならない。エラー時は確実にロールバックさせる。
2. バイナリデータの効率的なハンドリング
CDRファイルそのもの（またはサムネイル）をSQL Serverの `VARBINARY(MAX)` 型として安全にストリーミング保存する。メモリリークを起こすバッファの扱い方に注意せよ。
3. CorelDRAWオブジェクトモデルのライフサイクル管理
`ActiveDocument` への安易な依存を捨て、イベントハンドラや明示的なオブジェクト参照を通じて、メモリ上のゴミを残さないクリーンなコードを書く。
—
3. プロダクションコード：SQL Server完全同期アセットマネージャー
以下のコードは、CorelDRAWのグローバルマクロ（またはVBAプロジェクト）に組み込み、SQL Serverへアセット情報を安全にプッシュするための実践的なモジュールである。
※ 事前にWindows環境で `Microsoft ActiveX Data Objects 6.1 Library` などの参照設定を行っておくこと。
`clsAssetManager.cls` （データベース通信・同期クラス）
‘ =========================================================================
‘ クラス名: clsAssetManager
‘ 概要: SQL ServerとのADO接続、バイナリ転送、バージョン管理を担うコアエンジン
‘ =========================================================================
Option Explicit
Private Const CONNECTION_STRING As String = “Provider=SQLOLEDB;Server=SRV-DB01\ENTERPRISE;Database=VectorAssetsDB;Integrated Security=SSPI;”
‘ データベースへの接続テストおよびメタデータ・バイナリの同期
Public Function SyncDocumentToDatabase(ByVal doc As CorelDRAW.Document, ByVal assetCode As String, ByVal category As String, ByVal designer As String) As Boolean
Dim cnn As Object
Dim cmd As Object
Dim stm As Object
Dim tempFilePath As String
Dim fso As Object
On Error GoTo ErrorHandler
‘ 1. 一時ファイルとして現在のドキュメントを強制保存（バイナリ抽出のため）
tempFilePath = Environ(“TEMP”) & “\” & assetCode & “_” & Format(Now, “yyyymmddhhmmss”) & “.cdr”
doc.SaveAs tempFilePath
‘ 2. ADOコネクションの確立
Set cnn = CreateObject(“ADODB.Connection”)
cnn.ConnectionString = CONNECTION_STRING
cnn.Open
cnn.BeginTrans ‘ トランザクション開始
‘ 3. ストリームオブジェクトを使用してCDRバイナリを読み込む
Set stm = CreateObject(“ADODB.Stream”)
stm.Type = 1 ‘ adTypeBinary
stm.Open
stm.LoadFromFile tempFilePath
‘ 4. ストアドプロシージャを呼び出してデータをプッシュ
Set cmd = CreateObject(“ADODB.Command”)
Set cmd.ActiveConnection = cnn
cmd.CommandText = “sp_UpsertVectorAsset”
cmd.CommandType = 4 ‘ adCmdStoredProc
‘ パラメータの構築
cmd.Parameters.Append cmd.CreateParameter(“@AssetCode”, 200, 1, 50, assetCode) _ ‘ adVarChar
cmd.Parameters.Append cmd.CreateParameter(“@Category”, 200, 1, 50, category) _
cmd.Parameters.Append cmd.CreateParameter(“@Designer”, 200, 1, 50, designer) _
cmd.Parameters.Append cmd.CreateParameter(“@BinaryData”, 204, 3, -1, stm.Read) _ ‘ adLongVarBinary (-1 for MAX)
cmd.Parameters.Append cmd.CreateParameter(“@PageCount”, 3, 1, , doc.Pages.Count) _ ‘ adInteger
cmd.Execute
‘ 5. コミット
cnn.CommitTrans
SyncDocumentToDatabase = True
GoTo Cleanup
ErrorHandler:
If Not cnn is Nothing Then
If cnn.State = 1 Then cnn.RollbackTrans
End If
SyncDocumentToDatabase = False
MsgBox “DB同期エラーが発生しました: ” & Err.Description, vbCritical, “Enterprise Asset Manager”
Cleanup:
‘ リソースの解放（ライフサイクル管理の鉄則）
On Error Resume Next
If Not stm Is Nothing Then stm.Close: Set stm = Nothing
If Not cmd Is Nothing Then Set cmd = Nothing
If Not cnn Is Nothing Then cnn.Close: Set cnn = Nothing
‘ 一時ファイルの削除
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(tempFilePath) Then fso.DeleteFile tempFilePath
Set fso = Nothing
Exit Function
End Function
—
4. SQL Server側のバックエンド設計（参考）
上記のVBAから呼び出されるストアドプロシージャの設計思想も共有しておこう。ただデータを突っ込むだけでなく、バージョン履歴（Version History）を自動インクリメントするロジックを組むのがプロの仕事だ。
— SQL Server側スキーマとストアドプロシージャの例
CREATE TABLE VectorAssets (
AssetID INT IDENTITY(1,1) PRIMARY KEY,
AssetCode VARCHAR(50) NOT NULL,
VersionNumber INT NOT NULL,
Category VARCHAR(50),
Designer VARCHAR(50),
BinaryData VARBINARY(MAX),
PageCount INT,
UpdatedAt DATETIME DEFAULT GETDATE()
);
CREATE PROCEDURE sp_UpsertVectorAsset
@AssetCode VARCHAR(50),
@Category VARCHAR(50),
@Designer VARCHAR(50),
@BinaryData VARBINARY(MAX),
@PageCount INT
AS
BEGIN
SET NOCOUNT ON;
DECLARE @NextVersion INT;
— 既存の最新バージョンを取得し、+1する
SELECT @NextVersion = ISNULL(MAX(VersionNumber), 0) + 1
FROM VectorAssets
WHERE AssetCode = @AssetCode;
— 新規バージョンとしてレコードを挿入（イミュータブルな履歴管理）
INSERT INTO VectorAssets (AssetCode, VersionNumber, Category, Designer, BinaryData, PageCount, UpdatedAt)
VALUES (@AssetCode, @NextVersion, @Category, @Designer, @BinaryData, @PageCount, GETDATE());
END
この設計により、ファイルの「上書き保存」という概念を排除し、データベース側で完全に世代管理されたアセットツリーを維持することが可能になる。
—
5. 現場で絶対にハマる「落とし穴」と回避策
最後に、私が数々の修羅場をくぐり抜けて得た、実務上の重要な知見を共有する。
1. バイナリサイズ肥大化によるタイムアウト
CorelDRAWの高解像度な埋め込み画像（Bitmap）が多いファイルは、CDRファイルそのものが数百MBに達する。ADO経由での転送時にタイムアウト（デフォルト30秒）を起こすため、接続オブジェクトの `CommandTimeout` プロパティを明示的に長めに（例: 300秒）設定するか、プレビュー用の軽量JPEGのみを先に同期する非同期スレッド的アプローチを検討せよ。
2. UIスレッドのブロック
巨大なファイルの同期中にCorelDRAWの画面がフリーズしたように見える。ユーザーに不安を与えないよう、ステータスバー (`Application.StatusText`) を活用して進捗を可視化する配慮を忘れるな。
Application.StatusText = “SQL Serverへアセットを暗号化・同期中…”
—
総括
CorelDRAW VBAとSQL Serverの連携は、もはや単なる「お遊びの便利マクロ」の領域ではない。企業の知的財産であるデザインアセットを守り、全社のワークフローを加速させるミッションクリティカルなシステム基盤である。
甘いエラーハンドリングや、場当たり的なコード記述は今すぐ捨て去り、堅牢で拡張性の高いエンタープライズ・アーキテクチャを君の手で実装してほしい。健闘を祈る。
