VBScriptでSQLiteのデータベースを作成

投稿者: | 2016-01-24

VBScriptでSQLiteのデータベースを作成します。
作成する場所は、スクリプトと同じフォルダ。

作成するためには、SQLite ODBC Driverより、SQLiteのODBCドライバをダンロードしてインストールしておく必要があります。

DBPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "bookmark.db")
Set CN = CreateObject("ADODB.Connection")
CN.Open "DRIVER=SQLite3 ODBC Driver;Database=" & DBPath & ";"
'テーブルを作成
CN.Execute "CREATE TABLE IF NOT EXISTS bm(ID INTEGER PRIMARY KEY, url TEXT, title TEXT, description TEXT, tag TEXT, category TEXT, comment TEXT, strdate TEXT, bkmcount INTEGER, favcount INTEGER, view INTEGER, dbl INTEGER, jday REAL, flg INTEGER, post INTEGER);"
CN.Close: Set CN = Nothing
MsgBox "Done!" & vbCrLf & DBPath