Microsoft Access プロジェクトの接続をプログラムで変更する方法
ADPでのMS ACCESSでSQL Serverのミラーリングに対応する方法をようやく見つけることが出来ました。
http://support.microsoft.com/default.aspx?scid=kb;ja;306881
使い方は、上記のサイトで記載されているChangeADPConnection関数を適当なモジュールに張り付けて、
下記の呼び出し方で呼び出します。Windows認証の場合は、ユーザ名、パスワードは不要です。
関数の戻り値で、接続に成功すればTrue、失敗したときはFalseが返ってきます。
戻り値を確認し、ケースバイケースで簡単に異なるサーバーに接続させることが出来るようになります。
■呼び出し方
Dim bCheckConnection As Boolean
bCheckConnection = ChangeADPConnection("サーバー名\インスタンス名","データベース名","ユーザ名","パスワード")
