Access2010 パススルークエリ実行時のエラー
パススルークエリを実行したときに、Executeのところで「選択クエリを実行できません」とエラーが出た。UPDATE文なので「選択クエリ」ではないはずだが・・・
どうやらReturnsRecordsプロパティを設定し忘れていたことが原因だった。
Dim sql As String
sql = "UPDATE hoge SET col1 = ''"
Dim qDEF As DAO.QueryDef
Set qDEF = db.CreateQueryDef("")
'↓この一文をわすれていた
qDEF.ReturnsRecords = False
qDEF.Connect = "ODBC;DSN=*****;UID=*****;PWD=********"
qDEF.sql = sql
qDEF.Execute dbFailOnError
最近のコメント