戻る

DAO で ODBC リンクテーブルを更新する

概要

DAO を使用して Accessデータベース内のODBC リンクテーブルの接続情報を更新します。
TableDaf オブジェクトの Connect プロパティを変更し RefreshLink メソッドを実行します。
下のサンプルはローカルマシンにある SQL Server に接続するように更新する例です。

サンプル

「参照設定」で [Microsoft DAO 3.5 Object Library] に参照します。

DAO で ODBC リンクテーブルを更新する
		Private Sub RefreshLinkTable()     ' DAO を使用して ODBC リンクテーブルを更新します     Dim db As DAO.Database     Dim td As DAO.TableDef          ' データベースを開く     Set db = DBEngine.OpenDatabase("C:\My Documents\db1.mdb")          ' 既存のリンクテーブルを指定します。     Set td = db.TableDefs("リンクテーブル")          ' 新しいリンク情報をODBC接続文字列として指定します。     td.Connect = "ODBC;Driver={SQL Server};" & _                  "Server=(local);UID=sa;PWD=;Database=pubs;"          td.RefreshLink ' リンク情報の更新 End Sub

©2000 VBMANIA All rights reserved.