Access2010でODBCＤｉｒｅｃｔの代わり

質問

Ａｃｃｅｓｓ2003、2007でＯＤＢＣダイレクトをつかってＳＱＬServerにテーブルリンクをしています。
Access2010では下記のプログラムは
ＯＤＢＣDirectが使えない旨のエラーとなるので、他の方法で接続を行い、つづくしょりでテーブルのリンクをしたいのですが、方法がわかりません。

もしかするとAccess2010ではこのようなことはできないのかとあきらめているのですが、方法がありましたらご指導いただけると幸いです。

よろしくお願いいたします。

'ローカルＤＢ定義
Set dbLocal = CurrentDb

'ODBC Direct コネクション確立
Set dbCrWs = CreateWorkspace("DIrectWorkspace", "", "", dbUseODBC)
Set dbConn = dbCrWs.OpenConnection("", dbDriverNoPrompt, False, strConnect)

'SQL パススルークエリー　コネクション確立
Set dbPtQr = CurrentDb
Set dbPtQd = dbPtQr.QueryDefs("パススルークエリ")
dbPtQd.Connect = strConnect

SetConnect = True
Exit Function

回答No.1

sskr · ベストアンサー

seo1623さんこんにちは、sskrです。
私自身、最近解決したタイムリーな質問ですので参考になれば幸いです。

Public Function ServerExecute(SQLString As String, _
Optional ReturnsRecords As Boolean = False) As DAO.Recordset

With CurrentDb.CreateQueryDef("")
.Connect = strConnect
.SQL = SQLString
.ReturnsRecords = ReturnsRecords
.ODBCTimeout = 0

If (ReturnsRecords) Then
Set ServerExecute = .OpenRecordset
Else
.Execute
End If
End With
End Function

このような感じで実行できると思います。strConnectに入る接続文字列が不明なため
断言はできませんが…SQL ServerのストアドプロシージャやSQLテキストはこの関数で
実行できました(Access2010で確認しています)。

内容はODBC接続文字列を指定したQueryDefを作成して実行しています。

お礼

sskrさま
ご連絡がおそなってしまいすみません。

こんな方法があるとは気が付きませんでした。
この方法を参考にテーブルの再リンクを作ることができました。
本当にありがとうございます。