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 |
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 |
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 |
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 |
C:¥> CScript //Nologo Hello.vbs
実行結果
Message
--------------------------
Hello, Jet Database World! |
Message
--------------------------
Hello, Jet Database World!
Tags: Access, Jet Database
Categories: Access, Jet Database, SQL, VBScript
