ハードコードは技術的負債の温床である：ADO接続文字列を動的に制御する「設計」の極意
開発現場で、ソースコードの中に `Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DBName;User ID=sa;Password=password123;` といった文字列を直接書き込んでいるコードに出会ったとき、私はエンジニアとして深い溜息を禁じ得ない。
それは単なる「行儀の悪さ」ではない。「保守性の放棄」であり、「セキュリティに対する無知」の証明である。
接続文字列をハードコードすることは、環境が変わるたびにソースコードを修正し、再コンパイルし、再配布するという、極めて非効率でリスクの高いプロセスを強いることになる。本稿では、Access VBAを用いた業務システム開発において、接続先を外部（INIファイルやレジストリ）から動的に読み込み、かつセキュアに管理するための「アーキテクチャ」について、その真髄を伝授する。
1. なぜ「直書き」が致命的なのか：3つの観点
プロフェッショナルなアーキテクトは、常に「変更」と「リスク」を計算に入れる。
1. 環境分離の欠如（Deployability）
開発環境、テスト環境、本番環境。これらはサーバー名もデータベース名も異なる。ハードコードされたコードは、環境ごとにバイナリを分ける必要があり、デプロイミス（テスト環境のコードを本番に流す等）の最大の要因となる。
2. セキュリティ・リスク（Security）
`.accde` ファイルに変換したとしても、メモリダンプやリバースエンジニアリングによって接続文字列は容易に露呈する。パスワードをソースコードに持つことは、鍵をドアの横に貼り付けておくのと同じである。
3. 運用コストの増大（Maintainability）
サーバーの移行やパスワードの変更が発生した際、全ユーザーのファイルを差し替える作業が発生する。これは、ツールが普及すればするほど、開発チームの首を絞めることになる。
2. 推奨される設計パターン：Config Providerモデル
我々が目指すべきは、「接続情報は、アプリケーション本体のロジックから完全に切り離されている」状態である。
これを実現するために、「Config Manager（設定管理クラス）」を導入する。アプリケーションは「接続文字列がどう作られているか」を知る必要はない。ただ、Config Managerに対して「接続文字列をくれ」と要求するだけでいい。この「抽象化」こそが、堅牢な設計の第一歩だ。
今回は、実務での導入ハードルが低く、かつ管理が容易な「INIファイルによる外部管理」を題材に、プロフェッショナルな実装例を示す。
3. 実装コード：堅牢な設定管理アーキテクチャ
以下の実装は、単なるコピペ用ではない。エラーハンドリング、APIの適切な宣言、そしてオブジェクトのライフサイクルを考慮した、プロダクションレベルの設計である。
3.1. Windows APIの宣言 (Standard Module)
まず、INIファイルを読み込むためのWindows APIを定義する。`PtrSafe` を用いた64bit対応も忘れてはならない。
Option Explicit
' --- Windows API Declarations for INI handling ---
If VBA7 Then
Declare PtrSafe Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Else
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
End If
' 設定ファイルのパスを動的に取得するための関数
Public Function GetConfigFilePath() As String
' Accessファイルと同じディレクトリにある "config.ini" を参照する
' 絶対パスで指定することで、カレントディレクトリの揺らぎを防ぐ
GetConfigFilePath = CurrentProject.Path & "\config.ini"
End Function3.2. 設定管理クラス (Class Module: `clsConfigManager`)
ここが心臓部である。ロジックをクラスに封じ込めることで、呼び出し側は複雑なAPI操作から解放される。
Option Explicit
' ==============================================================================
' Class: clsConfigManager
' Purpose: 外部設定ファイル(INI)から接続情報を安全に取得する
' ==============================================================================
Private m_ConfigPath As String
Private Sub Class_Initialize()
m_ConfigPath = GetConfigFilePath()
End Sub
''' <summary>
''' ADO接続文字列を動的に生成して返す
''' </summary>
Public Function GetConnectionString() As String
On Error GoTo ErrorHandler
Dim serverName As String
Dim dbName As String
Dim userId As String
Dim userPwd As String
Dim driver As String
' INIファイルから各要素を読み込む
' セキュリティを高めるなら、パスワードは別途暗号化して保持し、ここで復号する設計にする
driver = ReadIni("Database", "Driver", "SQL Server")
serverName = ReadIni("Database", "Server", "")
dbName = ReadIni("Database", "DBName", "")
userId = ReadIni("Database", "UserID", "")
userPwd = ReadIni("Database", "Password", "")
' 必須項目のバリデーション
If serverName = "" Or dbName = "" Then
Err.Raise vbObjectError + 513, "clsConfigManager", "接続情報の不足: Server or DBName is missing."
End If
' 接続文字列の組み立て
GetConnectionString = "Driver={" & driver & "};Server=" & serverName & _
";Database=" & dbName & ";Uid=" & userId & ";Pwd=" & userPwd & ";"
Exit Function
ErrorHandler:
' 本番環境では、詳細なエラー内容はログに出力し、ユーザーには簡潔なメッセージを出す
Debug.Print "Error in GetConnectionString: " & Err.Description
GetConnectionString = ""
End Function
' --- Private Helper Methods ---
Private Function ReadIni(section As String, key As String, defaultValue As String) As String
Dim buffer As String * 255
Dim length As Long
length = GetPrivateProfileString(section, key, defaultValue, buffer, 255, m_ConfigPath)
If length > 0 Then
ReadIni = Left(buffer, length)
Else
ReadIni = defaultValue
End If
End Function3.3. 実践的な使用例 (Standard Module)
いかにしてこのクラスを使い、ADO接続を行うか。
Option Explicit
''' <summary>
''' データベースからデータを取得するプロシージャの例
''' </summary>
Public Sub ExecuteDataTask()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim config As clsConfigManager
Dim connStr As String
Set config = New clsConfigManager
connStr = config.GetConnectionString
' 接続文字列が取得できなかった場合のガード句
If connStr = "" Then
MsgBox "データベース接続設定の読み込みに失敗しました。管理者にお問い合わせください。", vbCritical
Exit Sub
End If
Set conn = New ADODB.Connection
On Error GoTo ErrorHandler
' 接続開始
conn.Open connStr
Debug.Print "Connection Successful."
' データ取得
Set rs = New ADODB.Recordset
rs.Open "SELECT TOP 10 * FROM TargetTable", conn, adOpenStatic, adLockReadOnly
' --- ここに業務ロジックを記述 ---
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value
rs.MoveNext
Loop
' ----------------------------
CleanUp:
' オブジェクトのライフサイクルを適切に管理する
' 接続を閉じる前にレコードセットを閉じるのが鉄則
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
End If
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
End If
Set rs = Nothing
Set conn = Nothing
Set config = Nothing
Exit Sub
ErrorHandler:
MsgBox "実行中にエラーが発生しました: " & Err.Description, vbExclamation
Resume CleanUp
End Sub3.4. 設定ファイル例 (`config.ini`)
Accessファイルと同じフォルダに配置する。
[Database]
Driver=SQL Server
Server=PROD-SQL-01
DBName=SalesData_Prod
UserID=app_user
Password=SecretPassword1234. アーキテクトからの最終アドバイス
この実装を導入するにあたり、以下の3点を肝に銘じてほしい。
1. INIファイルの配置と権限
`CurrentProject.Path` を利用することで、インストール先がどこであっても動作するようにしている。ただし、運用環境では、ユーザーが誤って `config.ini` を書き換えないよう、ファイルのプロパティで「読み取り専用」にするか、フォルダのアクセス権限を適切に設定することを忘れてはならない。
2. パスワードの暗号化（さらなる高みへ）
本稿では簡略化のため平文で扱っているが、真のエンタープライズ・アプリケーションであれば、INIファイル内のパスワードは、独自のアルゴリズムや Windows API (CryptProtectData) を用いて暗号化しておくべきだ。
3. エラーハンドリングの哲学
`Err.Raise` を使い、エラーを上位層へ伝播させる設計にしている。末端の関数で全てを解決しようとするな。エラーは「何が起きたか」を正確に伝え、呼び出し元に「どう対処すべきか（リトライするか、終了するか）」を判断させるべきである。
「動くコード」を書くのは初級者だ。「変化に強いコード」を書くのがプロフェッショナルである。
君が次に書くコードが、後続のエンジニアへの贈り物になることを願っている。
