Archive for 3月 9th, 2012

  1. Hello, Jet Database World!

    Posted on 3月 9th, 2012 by cx20

    Jet Database

    Jet Database Engine はマイクロソフトが開発した小規模向けの DBMS エンジンである。Access データベース(.mdb)のエンジンとしても使用されている。
    通常、Jet データベースへのアクセスは、DAO(Data Access Object)または ADO(ActiveX Data Objects)といった COM ベースの API が用いられる。

    クライアントアプリケーション データベースエンジン 推奨されるデータベース形式
    Access 2.0 Jet 2.0 *.mdb (Jet 2.x)
    Access 95 Jet 3.0 *.mdb (Jet 3.x)
    Access 97 Jet 3.5 *.mdb (Jet 3.x)
    Access 2000 Jet 4.0 *.mdb (Jet 4.x)
    Access 2002 Jet 4.0 *.mdb (Jet 4.x)
    Access 2003 Jet 4.0 *.mdb (Jet 4.x)
    DAO 3.0 Jet 3.0 *.mdb (Jet 3.x)
    DAO 3.5 Jet 3.5 *.mdb (Jet 3.x)
    DA0 3.6 Jet 4.0 *.mdb (Jet 4.x)
    Microsoft.Jet.OLEDB.3.51 Jet 3.5 *.mdb (Jet 3.x)
    Microsoft.Jet.OLEDB.4.0 Jet 4.0 *.mdb (Jet 4.x)

    ソースコード(VBScript + DAO + Jet データベース)

    Set dbe = CreateObject("DAO.DBEngine.36")
    Set db = dbe.OpenDatabase("Hello.mdb")
    Set rs = db.OpenRecordset("SELECT 'Hello, Jet Database World!' AS Message")
    WScript.Echo rs(0).Name
    WScript.Echo "--------------------------"
    WScript.Echo rs(0).Value

    ソースコード(VBScript + ADO + OLEDB + Jet データベース)

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Hello.mdb"
    Set rs = cn.Execute("SELECT 'Hello, Jet Database World!' AS Message")
    WScript.Echo rs(0).Name
    WScript.Echo "--------------------------"
    WScript.Echo rs(0).Value

    ソースコード(VBScript + ADO + ODBC + Jet データベース)

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=hello.mdb"
    Set rs = cn.Execute("SELECT 'Hello, Jet Database World!' AS Message")
    WScript.Echo rs(0).Name
    WScript.Echo "--------------------------"
    WScript.Echo rs(0).Value

    実行方法(Windows)

    C:¥> CScript //Nologo Hello.vbs

    実行結果

    Message
    --------------------------
    Hello, Jet Database World!