帰りは気楽な歌で

Windows、VBScript等の小ネタ、その他個人の趣味(音楽等)を書いていきます。

VBScriptでAccess(mdb,accdb)内のテーブルにクエリを投げる

表題の通り、Accessの中でVBAでやればいいだろ!という内容ではありますが、

・accdbに直接触れない(お客さんが使っていて直接見られない)

・accdbのサイズが大きすぎてメールでやり取りできない

なんて時に、データパッチと称してVBScriptでクエリを実行できたらいいなあと思って作成しました。前の記事はDAOなのにこれはADOかいな。

Option Explicit

Dim objFS
Set objFs = WScript.CreateObject("Scripting.FileSystemObject")

Dim conn
Dim rs
Dim ra

Set conn = WScript.CreateObject("ADODB.Connection")
Set rs = WScript.CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\temp\hoge.accdb;"

Set rs = conn.Execute("UPDATE SAMPLETABLE SET FIELD1='TEST' WHERE FIELD2='LAST'", ra)

cn.Close

Set rs = Nothing
Set cn = Nothing

'処理終了
WScript.echo "処理が完了しました。"
本ブログに記載のソースコード・情報を利用した際に生じたいかなる損害において、筆者は責任を負いません。十分な知識を持ったうえでご利用ください。