※ ChatGPTを利用し、要約された質問です（原文：ADOでの接続）
Excel＋MySQLのADO方式での接続方法とエラーの対処法
このQ&Aのポイント
ADOを使用してExcelとMySQLを接続する方法について解説します。また、接続時に発生するエラーに対する対処法も紹介します。
ExcelとMySQLをADO方式で接続するには、Providerを設定し、データソースを指定します。エラーが発生する場合は、接続が無効であるか、閉じられた状態である可能性があります。
エラー '3709'が発生した場合、接続の使用方法が正しくないか、接続が無効な状態になっている可能性があります。対処法としては、接続の設定を確認し、必要な場合は再度接続を行うことがあります。
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'
この操作を実行するために接続を使用できません。
このコンテキストで閉じているかあるいは無効です。
***************************************************
となっています。
このエラーの対処方法を教えてください。
お礼
なんとか接続できました！ ありがとうございます♪