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 "処理が完了しました。"