(Windows7) VBScript からsqlite への接続サンプル

Windows7 上でsqlite へ接続する、VBScriptを試してみました。

予め以下のサイトから、sqliteodbc.exe をダウンロードしてインストールしておく必要があります。


http://www.ch-werner.de/sqliteodbc/




---サンプル-------------------------------------


FileName = "c:\mdb\xxxx.db"

WScript.echo FileName

Set CN = CreateObject("ADODB.Connection")
CN.Open "DRIVER=SQLite3 ODBC Driver;Database=" & FileName & ";"


Set RS = CN.Execute("SELECT * FROM xxxx;")

while not RS.eof

WScript.Echo RS.Fields(1).value & " " & RS.Fields(2).value

RS.MOveNext

wend


RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

------------------------------------------