【入門編】ADOとSQL Serverのデータ型マッピング：VBAの型とズレが生むパフォーマンス劣化 – Access VBA解析バイブル

Access VBA

2026.10.27

こんにちは！現場のシステム開発で日々Access VBAと向き合っていると、「動くには動くけれど、なんだか処理がやけに遅い…」という壁にぶつかることがありませんか？

マクロの記録から一歩抜け出し、本格的にSQL Serverなどの外部データベースとADO（ActiveX Data Objects）を使ってシステムを作り始めると、避けて通れないのが「データ型のミスマッチ」という罠です。

今回は、VBAの変数型とSQL Serverのデータ型がズレることでなぜパフォーマンスが劣化するのか、そしてそれをどうやって完璧に調律（チューニング）すればいいのかを、プロの知見を交えて優しく、深く解説していきますね。ここをクリアすれば、あなたの書くコードは見違えるほど軽快になりますよ！

—

1. なぜ「型」が合わないと遅くなるのか？（暗黙の型変換という隠れたコスト）

VBAでSQL Serverからデータを取得したり、逆に書き込んだりするとき、AccessのVBA側とSQL Server側の間でデータの通訳が行われます。

もし、SQL Server側が「数値（Int型）」として持っているデータを、VBA側で「文字列型（String）」として受け取ろうとしたり、逆に曖昧な `Variant` 型でやり取りしたりするとどうなるでしょう？

データベースのエンジンやADOの内部で、「あ、これ文字列型に直さなきゃ」「こっちは数値に戻さないと計算できないぞ」という無駄な翻訳作業（暗黙の型変換）が毎行、毎レコード発生します。

これが数万件のループ処理で行われたとしたら……？想像するだけで冷や汗ものですよね。この翻訳コストを極限までゼロに近づけることこそが、高速化の最大の秘訣なのです。

—

2. 【図解】VBAの型とSQL Serverの型の正しいマッピング

まずは、現場で最もよく使う主要なデータ型の「ベストな組み合わせ」を押さえましょう。この対応表をノートにメモしておくだけで、バグとパフォーマンス低下の大部分を防げます。

—

3. 実践！最速を生み出すADO接続と型を意識したコーディング

それでは、実際にSQL Serverへ接続し、型を厳密に意識しながらデータを安全かつ高速に取得・操作するコードを見てみましょう。

今回は、エラー処理も組み込んだ、そのまま現場で使える実用的なサンプルコードを用意しました。

Option Explicit

‘ =================================================================0
‘ 概要: SQL ServerへADOで接続し、型を最適化して高速にデータを取得するサンプル
‘ 執筆者: チーフアーキテクト
‘ =================================================================0
Sub GetCustomerDataOptimized()
Dim conn As Object
Dim cmd As Object
Dim rs As Object
Dim connString As String

‘ 1. 接続文字列の定義（SQL Server Authenticationの例）
connString = “Provider=SQLOLEDB;” & _
“Server=YOUR_SERVER_NAME;” & _
“Database=YOUR_DB_NAME;” & _
“Uid=YOUR_USER;” & _
“Pwd=YOUR_PASSWORD;”

‘ 2. オブジェクトの生成（レイトバインディングでバージョン差異を吸収）
Set conn = CreateObject(“ADODB.Connection”)
Set cmd = CreateObject(“ADODB.Command”)

On Error GoTo ErrorHandler

‘ 接続タイムアウトの設定とオープン
conn.ConnectionTimeout = 15
conn.Open connString

‘ 3. Commandオブジェクトの設定（パラメータクエリを使用し、SQLインジェクション対策と型安全性を担保）
Set cmd.ActiveConnection = conn
cmd.CommandText = “SELECT CustomerID, CustomerName, Balance, UpdateDate FROM tbl_Customers WHERE RegionID = ?”
cmd.CommandType = 1 ‘ adCmdText

‘ パラメータの型をSQL Server側に明示的に伝える（adInteger = 3, adParamInput = 1）
‘ ここでVBAのLong型（RegionID）とSQL Serverのint型を完璧に一致させています。
cmd.Parameters.Append cmd.CreateParameter(“pRegion”, 3, 1, , 10) ‘ 10番のエリアを抽出

‘ 4. レコードセットの取得
Set rs = cmd.Execute

‘ 5. データの処理（変数の型をカチッと合わせて受け取る）
Dim lngID As Long
Dim strName As String
Dim curBalance As Currency ‘ 金額は必ずCurrency型で受ける
Dim dtmUpdate As Date

Do Until rs.EOF
‘ Variant型の海に溺れず、明確な型変数へ代入
lngID = rs.Fields(“CustomerID”).Value
strName = rs.Fields(“CustomerName”).Value & “” ‘ Null対策として空文字を連結
curBalance = rs.Fields(“Balance”).Value
dtmUpdate = rs.Fields(“UpdateDate”).Value

‘ デバッグ出力（実際の処理に置き換えてください）
‘ Debug.Print lngID, strName, curBalance, dtmUpdate

rs.MoveNext
Loop

CleanUp:
‘ 6. 確実なリソース解放（メモリリークを防ぐアクセスの鉄則）
On Error Resume Next
If Not rs Is Nothing Then
If rs.State = 1 Then rs.Close
End If
If Not conn Is Nothing Then
If conn.State = 1 Then conn.Close
End If
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing
Exit Sub

ErrorHandler:
MsgBox “データベース処理でエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub

このコードの「プロのこだわりポイント」

1. `Variant` 型を徹底排除していること
ループ内でデータを一時的に受ける変数に `Long` や `Currency`、`String` を明示的に指定しています。これにより、VBA内部での余計な型キャストが発生せず、ループ処理が体感できるほど高速化します。
2. `CreateParameter` による型の明示
SQLをただの文字列結合 (`”SELECT … WHERE ID = ” & varID`) で組み立てるのではなく、パラメータオブジェクトを使用しています。これにより、SQL Server側が実行プランを効率的にキャッシュし、クエリのパフォーマンスが劇的に向上します。

—

4. 陥りやすい罠：`Integer` 型の落とし穴

初学者がやりがちな最大のミスのひとつが、「VBAの `Integer` 型を、SQL Serverの `int` 型に対応させてしまうこと」です。

VBAの `Integer`：実はこれ、16ビット（-32,768 ～ 32,767）しか入りません。
SQL Serverの `int`：こちらは32ビット（約-21億～ 21億）です。

もしSQL Server側から3万件以上のIDや、少し大きな数値が返ってきた瞬間、VBA側で「オーバーフローしました（Error 6）」という残酷なエラーが発生します。
「SQL Serverの `int` は、VBAでは必ず `Long` で受ける」。これは呪文のように覚えておいてくださいね。

—

まとめ：ここをクリアすれば、もう初級者卒業です！

今回は、ADOとSQL Serverのデータ型マッピングと、それがパフォーマンスに与える影響について深く掘り下げて解説しました。

SQL Serverの `int` は VBAの `Long` で受ける
金額や高精度な数値は `Currency` を使い、誤差とパフォーマンス劣化を防ぐ
変数の型を明確に宣言し、暗黙の型変換コストを極限まで削る

この基本原則を守るだけで、あなたの書くAccess VBAアプリケーションは見違えるほど安定し、キビキビと動くプロフェッショナルなシステムへと生まれ変わります。

「動けばいいや」のコードから、「速くて美しい」コードへ。ぜひ次の開発から取り入れてみてください。あなたのAccessライフを、エンジニア一同応援しています！

1. なぜ「型」が合わないと遅くなるのか？（暗黙の型変換という隠れたコスト）

2. 【図解】VBAの型とSQL Serverの型の正しいマッピング

3. 実践！ 最速を生み出すADO接続と型を意識したコーディング

このコードの「プロのこだわりポイント」

4. 陥りやすい罠：`Integer` 型の落とし穴

まとめ：ここをクリアすれば、もう初級者卒業です！

3. 実践！最速を生み出すADO接続と型を意識したコーディング