要はテーブルにレコードがないから処理を実行できませんということ。
movefirst がエラーになっていた。
vSQL = "select * from tablename"
Set myRS = myCon.Execute(vSQL)
myRS.movefirst
エラー対応処理を追加した。
vSQL = "select * from tablename where ～"
Set myRS = myCon.Execute(vSQL)
if myRS.eof then
msgbox "検索条件を満たすデータがありません。"
end
end if
myRS.movefirst
BOFとEOFについての説明は省略します。
【このカテゴリーの最新記事】
-
no image
-
no image
-
no image
-
