ADOでの接続

Excel＋MySQLのADO方式での接続を行おうとしています。

Option Explicit
Const cnsADO_CONNECT1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const cnsADO_CONNECT2 = "C:\Program Files\MySQL\MySQL Server 5.0\data\test\uriage.frm;"

Sub test()
　　＊変数宣言

　　Worksheets("Sheet1").Activate
　　dbCon.ConnectionString = cnsADO_CONNECT1 & cnsADO_CONNECT2

　　strSQL = "SELECT uri_no,uri_hi,kyaku_code FROM uriage"
　　dbRes.Open strSQL, dbCon, adOpenKeyset, adLockReadOnly　←ここでエラー

　　処理

　　dbRes.Close
　　Set dbRes = Nothing
　　dbCon.Close
　　Set dbCon = Nothing
End Sub

やりたいことは、MySQLの内容をExcelに表示させるという処理です。
エラーの部分は、
***************************************************
実行時エラー '3709'

この操作を実行するために接続を使用できません。
このコンテキストで閉じているかあるいは無効です。
***************************************************
となっています。

このエラーの対処方法を教えてください。

No.1 ベストアンサー 回答者： chukenkenkou 回答日時： 2007/06/16 04:10

この辺のことについては詳しくないのですが、質問中に記載されたコードは、MS-ACCESSに接続するためのものであり、MySQL用になっていないようですが？

http://www.happy2-island.com/access/gogo03/capte …

参考URL：http://www.happy2-island.com/access/gogo03/capte …

この回答へのお礼

なんとか接続できました！
ありがとうございます♪

お礼日時：2007/06/18 16:50