|
ODBCドライバ“SQL Server”を使用して、
MDBファイルへSQL Server上にあるテーブルへリンクテーブルを作成したいのですが、Windows 認証でログインする場合の作成方法が分かりません。
Windows 認証を使わずに、普通にID/PASSを入れてログインする方法なら分かります。
Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog
'Open the catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & <MDBファイル名> & ";"
'Set the name and target catalog for the table
tbl.Name = "<テーブル名>"
Set tbl.ParentCatalog = cat
'Set the properties to create the link
tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Provider String") = _
"ODBC;DSN=<DSN名>;UID=<ID>;PWD=<PASS>;"
tbl.Properties("Jet OLEDB:Remote Table Name") = "<テーブル名>"
' Append the table to the collection
cat.Tables.Append tbl
cat.Tables.Refresh
上記のコーディングを使用すれば、普通のログインでのリンクテーブル作成はできます。
しかし、Windows 認証の場合、これではダメです。
手動でリンクテーブルを作成していった際に、
「セキュリティ接続を使用する」のチェックボックスがあるので、
これに相当する tbl.Properties の設定項目があると思うのですが、
見つけられませんでした。
どなたかご存知の方いらっしゃいましたら教えてください。
よろしくお願いします。
|
|