ローカルAccessからクラウドDBへの接続構成例

～業務アプリの「脱ローカル」をやさしく実現～

こんにちは、なかぜんです。

最近よく聞くご相談に、「Accessで作ったアプリをクラウド上のデータベースに接続して使いたい」というものがあります。

テレワークや多拠点運用が増える中、ローカルファイルの共有には限界がありますよね。でも、「クラウドって難しそう…」「VBAでつながるの？」と不安に感じる方も多いのではないでしょうか。

この記事では、ローカルのAccessからAzure SQL DatabaseやMySQLなどのクラウドDBへ接続する構成例を、図やコード付きでわかりやすく紹介します。

AccessとクラウドDBの基本構成
1. 1. 全体イメージ
2. 2. 必要な準備
接続方法：VBAでクラウドDBとつなぐ
1. DSNレス接続のVBAサンプル
よくあるミス・注意点
応用ポイント：業務アプリの「ハイブリッド構成」
まとめ：クラウド接続は難しくない！

AccessとクラウドDBの基本構成

1. 全体イメージ

構成の概要は以下のとおりです：

Accessフロントエンド（.accdbファイル）はローカルPCに配置
クラウド上にあるAzure SQL DatabaseやMySQLなどがデータソース
ODBCドライバを経由して接続

接続構成図：

  [Access Frontend.accdb]
         ↓（ODBC）
  [ODBCドライバ（SQL Server / MySQLなど）]
         ↓
  [クラウドDB（Azure SQL / AWS RDS / 他）]

2. 必要な準備

クラウドDBのアカウント・接続情報（ホスト名、ユーザー、パスワードなど）
適切なODBCドライバのインストール（例：ODBC Driver for SQL Server）
ODBCデータソース（DSN）の構成、またはDSNレス接続の準備

接続方法：VBAでクラウドDBとつなぐ

DSNレス接続のVBAサンプル

VBAでDSNを使わずに直接接続する方法を紹介します。

' Azure SQL Database に接続する例
Public Sub ConnectCloudDB()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")

    Dim connStr As String
    connStr = "Driver={ODBC Driver 18 for SQL Server};" & _
              "Server=tcp:your-db-name.database.windows.net,1433;" & _
              "Database=your_db;" & _
              "Uid=your_user;" & _
              "Pwd=your_password;" & _
              "Encrypt=yes;TrustServerCertificate=no;Connection Timeout=30;"

    On Error GoTo ErrHandler
    conn.Open connStr

    MsgBox "クラウドDBに接続成功しました！", vbInformation

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrHandler:
    MsgBox "接続エラー：" & Err.Description, vbCritical
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close
    End If
    Set conn = Nothing
End Sub

ポイント：