Accessでパススルークエリの作り方｜アズビーパートナーズ

処理速度の問題やセキュリティの問題など、パススルークエリーを作らなければならないシーンが出てきます。

今日はパススルークエリーの作り方を2通りご紹介します。

Accessパススルークエリの作り方

クエリーのプロパティに接続文字列を定義する

①クエリを新規に作成し、種類を『パススルー』に変更します。

パススルークエリはデザインビューを使えません。

SQLを書くのが苦手な方は先に該当のテーブルに外部接続（リンク）してデザインで作成した後、クエリの種類をパススルーに変更すると作りやすいです。

※AcceesとサーバーのSQL構文が異なりますので全く同じで動く保証はありません。あくまでも参考に♪

クエリのプロパティを表示し、ODBC接続文字列に定義を入力します。

ODBC接続文字列の例

【Postgre（ポスグレ）の例】

ODBC;DRIVER=PostgreSQL ANSI;APP=2007 Microsoft Office system;Trusted_Connection=No;SERVER=xx.xxx.xxx.xxx;DATABASE=dbname;UID=user;PWD=password;

【SQL Serverの例】

ODBC;DRIVER=SQL Server;APP=2007 Microsoft Office system;Trusted_Connection=Yes;SERVER=SVR01;DATABASE=dbname;

DRIVER:接続するDB名（ODBCドライバで確認してください）
APP：接続するクライアントのOfficeのバージョン
Trusted_Connection：Windows認証の場合はYES、ユーザー／パスワードをしているする場合はNo
SERVER：IPアドレス、またはサーバー名
DATABASE：データベース名;（ユーザー名; パスワード;）

ツール起動時にVBA経由で設定する

フォームを開いたときにクエリのプロパティを定義する方法です。

定義を可変にしたい場合などに有効です。

Private Const CONNECT = "ODBC;DRIVER=PostgreSQL ANSI;APP=2007 Microsoft Office system;Trusted_Connection=No;SERVER=xx.xxx.xxx.xxx;DATABASE=dbname;UID=user;PWD=password"

'-------------------------------------------------------------------------------
'フォームを開いた時
'-------------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)

    On Error GoTo ErrHandler

    Dim dbs As DAO.Database: Set dbs = CurrentDb
    
    Dim Qdf As DAO.QueryDef: Set Qdf = dbs.QueryDefs("定義済みクエリ名")
    Qdf.CONNECT = CONNECT

    Exit Sub

ErrHandler:
    MsgBox "エラー番号:" & Err.Number & vbCrLf & _
           "エラーの種類:" & Err.Description, vbExclamation

End Sub