AccessQueryExecute.vbs
'--------------------------------------------------------------------------------------
'
' AccessQuery実行
' (指定したMDBのクエリを実行する。)
'
' 注意点 スクリプト実行前に実行するのMDBを終了してください。
' クエリ実行でエラーが発生した場合、正しいエラーメッセージが表示されません。
' クエリでのエラーは常に「SQLステートメントが正しくありません」とメッセージが表示されます。
'
'-------------------------------------------------------------------------------------
'定数の定義
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
'オブジェクト生成
Set objConn = CreateObject("ADODB.Connection")
Set objRec = CreateObject("ADODB.Recordset")
'DB接続情報の記述
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\Administrator\デスクトップ\hoge.mdb;"
'クエリの実行
objRec.Open "hogeデータ削除" , objConn
objRec.Open "hogeデータ追加" , objConn
objConn.Close
msgbox "クエリの実行が完了しました。"
