Access VBAの暗黒時代を終わらせる：DSNレス接続で環境依存を完全排除する極意
システムエンジニアとして数多くの現場を見てきたが、未だに「各クライアントPCのODBCデータソース（DSN）設定」に依存したAccessアプリケーションを見かけることがある。
「なぜ動かないんですか？」という問い合わせへの対応に、どれだけの時間を浪費するつもりだ？
DSNは、環境が変わるたびに設定が壊れる「時限爆弾」だ。本稿では、コード内で接続を完結させ、環境移行やPC入れ替えを無効化する「DSNレス接続」の設計思想と、実務で即戦力となる実装術を授ける。
—
1. なぜDSNを使ってはいけないのか？
DSN（Data Source Name）は、Windows OSの管理下に接続情報を保存する。これは、Accessが「アプリケーション本体」と「インフラ設定」を分離できていないことを意味する。
- デプロイの障壁: 配布するたびに全台でODBC設定を行う必要がある。
- 管理のブラックボックス化: 「どの接続設定が正解か」がPCの外側にあり、バージョン管理が不可能。
- 接続エラーの温床: OSのアップグレードやセキュリティ設定で設定が消失するリスクを排除できない。
業務自動化ツールにおいて、「アプリケーションをコピーするだけで即座に稼働する」ことこそが、運用の正義である。
—
2. ADO接続文字列の管理術：設計の原則
DSNレス接続の肝は、接続文字列（Connection String）をコード（または外部設定ファイル）で完全に制御することにある。
接続文字列の「構造化」
文字列を直書きするな。接続情報を定数化、あるいは環境ごとに切り替え可能な関数として実装するのがプロの流儀だ。以下に、SQL Serverへ接続する場合の標準的なパターンを示す。
‘ 接続設定を管理するモジュール例
Option Compare Database
Option Explicit
‘ サーバー情報を一括管理
Private Const DB_SERVER As String = “192.168.1.100”
Private Const DB_NAME As String = “Production_DB”
”’
”’
Public Function GetConnectionString(Optional isTrusted As Boolean = True) As String
Dim connStr As String
‘ SQL Server Native Client / OLEDB Driverを明示的に指定
‘ 開発環境と本番環境でProviderを切り替える設計にしておくこと
connStr = “Provider=MSOLEDBSQL;” & _
“Data Source=” & DB_SERVER & “;” & _
“Initial Catalog=” & DB_NAME & “;”
If isTrusted Then
‘ Windows認証（推奨）
connStr = connStr & “Integrated Security=SSPI;”
Else
‘ SQL Server認証（必要に応じて）
connStr = connStr & “User ID=YourUser;Password=YourPassword;”
End If
GetConnectionString = connStr
End Function
—
3. 実装の極意：トランザクションを制する
ADOを使った接続では、`Connection`オブジェクトのライフサイクル管理が重要だ。また、パフォーマンスと整合性を両立させるには、明示的なトランザクション制御が不可欠となる。
以下は、安全かつ堅牢な接続処理のプロダクションコードだ。
Public Sub ExecuteTransactionSample()
Dim conn As Object
Set conn = CreateObject(“ADODB.Connection”)
On Error GoTo ErrorHandler
‘ 1. DSNレスで接続
conn.ConnectionString = GetConnectionString()
conn.Open
‘ 2. トランザクション開始
conn.BeginTrans
‘ 3. 処理実行
conn.Execute “UPDATE T_Sales SET Status = ‘Closed’ WHERE SalesDate < '2023-01-01'", , 1 ' 1 = adExecuteNoRecords
' 4. コミット
conn.CommitTrans
MsgBox "更新完了", vbInformation
ExitPoint:
If Not conn Is Nothing Then
If conn.State = 1 Then conn.Close ' 1 = adStateOpen
Set conn = Nothing
End If
Exit Sub
ErrorHandler:
' 5. エラー時は必ずロールバック
If Not conn Is Nothing Then conn.RollbackTrans
MsgBox "エラー発生: " & Err.Description, vbCritical
Resume ExitPoint
End Sub
---
4. 現場で「死なない」ための3つの知見
1. Driverの選定に注意せよ:
`SQL Server` ではなく、`MSOLEDBSQL`（Microsoft OLE DB Driver for SQL Server）等の最新かつ汎用性の高いプロバイダを使用すること。古いドライバはTLS 1.2以降の通信で弾かれることが多い。
2. 接続タイムアウトを明示せよ:
ネットワークが不安定な環境下では、接続文字列に `Connect Timeout=15;` を付与し、無限ループによるフリーズを防ぐのが鉄則だ。
3. 接続オブジェクトは「使い捨て」が基本:
ADO接続をグローバル変数で保持し続けるのは悪手だ。接続のたびに作成し、処理が終われば確実に閉じる。この「オブジェクトのライフサイクル」を短く保つことで、DBサーバー側の接続数枯渇という致命的なボトルネックを回避できる。
最後に：エンジニアとしての矜持
DSNレス接続は、単なる「設定の省略」ではない。それは、「環境に依存せず、どこでも動くロジックを組む」というエンジニアの規律そのものだ。
Accessを単なる「個人の玩具」から「企業の基幹ツール」に昇華させたいのであれば、まずは環境依存の鎖を断ち切ることから始めよ。コードは嘘をつかない。君が書いた接続文字列が、君のシステムの寿命を決定するのだ。
