genDbDao.vbs

Main

Sub Main()
' 定数/変数宣言部
Const DB_LANG_JAPANESE = ";LANGID=0x0411;CP=932;COUNTRY=0"
Const DB__DYNASET = 2
Const DB_APPEND_ONLY = 8
Const FILE_NAME = "F:\TEST1.mdb"
Dim dbe, db, strDbPath
Dim wsh : set wsh=createobject("Wscript.Shell")
' MDB がすでに存在するか調べます。
strDbPath = GetUniqueDbName(FILE_NAME)
If LenB(strDbPath) = 0 Then Exit Sub
' MDB を作成します。
Set dbe = Wscript.CreateObject("DAO.DBEngine.36")
Set db = dbe.CreateDatabase(strDbPath, _ 
DB_LANG_JAPANESE,16)
' テーブルを作成します。
db.Execute "CREATE TABLE 売上テーブル " _
& "(販売コード AUTOINCREMENT " _
& "CONSTRAINT PrimaryKey PRIMARY KEY, " _
& "支店 TEXT(255), " _
& "販売日 DATETIME, " _
& "商品 TEXT(255), " _
& "個数 INTEGER, " _
& "売上 CURRENCY);"
db.Execute "CREATE INDEX 販売日 " _
& "ON 売上テーブル (販売日) WITH DISALLOW NULL;"
' レコードを追加します。
GenRecs db.OpenRecordset("売上テーブル", _
DB_OPEN_DYNASET, _
DB_APPEND_ONLY)
' 変数の参照を解放します。
db.Close: Set db = Nothing
Set dbe = Nothing
' ユーザーに結果を通知します。
MsgBox "に '" & FILE_NAME _
& "' を作成しました。", vbInformation
End Sub

VBScriptでMS-Accessファイル(mdb)作成
このコードが元ネタですが、間違いを訂正しました。（constの部分）
完成するファイルと場所は、
F:\Test1.MDB
です。Fドライブです。これは好みの場所に変更してください。
とりあえずmdbができて、テーブルができるところで止まりますが、できるだけでも成功でしょう。

32bit強制で起動すること

ただし、このVbscipt 例によって32BitのCscriptでうごかすのでこのファイルが
c:\hoge\genDbDao.Vbsにある場合にはCmd.exeでコマンドプロンプト画面を起動し
%SystemRoot%\SysWow64\cscript.exe "C:\hoge\gendbdao.vbs"
として起動する必要があります。

dbVersion Jet accessのバージョンの関係

Jet2.0 は dbVersion20 でAccess 2.0

Microsoft Jes 2.0 （1994） 2.0
dbVersion20 16 Microsoft Jet データベースエンジン Version 2.0。 1

Jet 3.0は dvVersion 30 で Access97/95

Microsoft Jet 3.0 (1995) ‘95 (7.0)
Microsoft Jet　3.5 (1996)　‘97 (8.0)
dbVersion30 32 Microsoft Jet データベースエンジン Version 3.0。

上記のプログラムで作成されるMDBのヴァージョンを変えるには

Set db = dbe.CreateDatabase(strDbPath, _
DB_LANG_JAPANESE,16)
16だとdbversion20 accsess2.0のMDBファイルが
32だとdbVserion30 access97/95 のMdbファイルが
そして何も指定しないと自動的にdbVersion40でAccess 2003形式のmdbファイルが出来上がります。
dvVersion 40の場合はテーブルの指定などもスムーズでバグが起きません。

課題は検証困難性

前回も述べたようにAccess97/95形式のMDBファイルは変換できる。
パワーシェルを用いる方法をこちらに記載している。
しかしAccess2.0は不明である。
しかし、Access2.0に至ると変換する方法がない。作成ができる以上変換もできそうなものだが。
またAccess97/95、Access2.0ではSQLでテーブルを作ることができずバグを起こして途中で止まってしまい、空のデータベースしか作成できない。

参考

Database.Version プロパティ (DAO)
DatabaseTypeEnum 列挙 (DAO)

おまけ

Access 95

[AC95] Access 95と以前のバージョンとの互換性について

Access 95 では、Access 1.1 と Access 2.0 のデータベースファイルを Access 95 形式のデータベースファイルへ変換することができます。
Access 2.0 のデータベースファイルは互換性が保証されていますが、Access 1.1 のデータベースファイルは互換性が保証されていません。
■CompactDatabase メソッドによるデータベース変換
以前のバージョンのデータベースを Access 95 のデータベースに変換するには、
[ツール] メニューの [データベース] をポイントし、[変換] をクリックしてください。データベース変換に CompactDatabase メソッドは使用できません。
CompactDatabase メソッドは、Jet データベースエンジンによって定義された
オブジェクトのみ変換することができます。

Access 2003

Access2.0 File Converter For Access 2003
Access 2003、Access 2002、または Access 2000 を使用して Access 2.0 データベースを変換する

Access 2007

Access 2.0 データベースを Access 2007 ファイルにインポートする