次の VBA コードを使用すると、現在のアクセス データベースで SQL クエリを実行できます。
ODBCコネクタを介してMySQLデータベースに接続されているMS Accessファイルでこれを試しました。ただし、通常のアクセス DB ではないため、このコードは機能しません。
既存の ODBC 接続を使用してデータベースにクエリを実行するにはどうすればよいですか?
編集:「実行時エラー 3024 ファイルが見つかりません」というメッセージが常に表示される
1を試す
Dim mydb As Database
Dim myrs As DAO.Recordset
Set mydb = CurrentDb
Set myrs = mydb.OpenRecordset("select from blah blah...")
トライ2
Dim dbMine As DAO.Database
Set dbMine = CurrentDb
Dim qr As String
qr = "select count(*) as `result` from floatinp_appdb2.clientes where cliente_email = 'tiagovalente@float-in.pt';"
'debug.print qr
dbMine.Execute qr, dbFailOnError