Fioに言わせろ!

いろいろ言わせてもらいます

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

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