CreateAccessDataBase.ps1

# https://gallery.technet.microsoft.com/office/28a08699-7d60-492c-bc97-d6456a6c3739
# Set-ExecutionPolicy RemoteSigned -Scope Process -Force
# Success Windows 10 Access 2013(32bit)
# Microsoft Access データベース エンジン 2010 再頒布可能コンポーネントインストール済み
# QiiQ From Qiita
# CreateAccessDataBase.ps1
Function Check-Path($Db)
{
If(!(Test-Path -path (Split-Path -path $Db -parent)))
{
Throw "$(Split-Path -path $Db -parent) Does not Exist"
}
ELSE
{
If(Test-Path -Path $Db)
{
Throw "$db already exists"
}
}
} # Check-Path関数の終わり

Function Create-DataBase($Db)
{

$application =New-Object -ComObject Access.application
$application.NewCurrentDataBase($Db,10)
$application.CloseCurrentDataBase()
$application.Quit()
} # Create-DataBase関数の終わり

Function Invoke-ADOCommand($Db, $Command)
{
$connection = New-Object -ComObject ADODB.Connection
# $connection.Open("Provider= Microsoft.Jet.OLEDB.4.0;Data Source=$Db")
$connection.Open("Provider= Microsoft.Ace.OLEDB.12.0;Data Source=$Db")
$connection.Execute($command)
$connection.Close()
} # Invoke-ADOCommand 関数の終わり

# *** スクリプトのエントリポイント***

$Db =  [Environment]::GetFolderPath('Desktop') + "\TEST2003.mdb"
$table = "MyTest"
$Fields = "F1 Counter, F2 Date, F3 Integer, F4 Text"
$command = "Create Table $table `($Fields`)"

Check-Path -db $Db
Create-DataBase -db $Db
Invoke-ADOCommand -db $Db -command $command

Access 2003 のMDBファイルは作成できる

以前、
Access 2016(64 bit +win10Home)でmdbファイルは開ける MS Access 2013 Later can Open mdb file
という記事がかなりアクセス数が多く、実は一番参照されているようだ。
今回は97は無理だが、2003はできた

今回のOSとAccessのバージョン

Access2013(32bit) + Windows 10
Access2016(64bit) + Windows 10
の2種類。というのも上記のパワーシェル版は2016は失敗するからだ。

Access2013は公式サイトの書き換えで成功する

上記のパワーシェルスクリプトは
Hey, Scripting Guy!　Windows PowerShell を使用して Office Access データベースを作成する方法はありますか
のものだが、1行書き換えないと動かなかった。
それは
$connection.Open("Provider= Microsoft.Jet.OLEDB.4.0;Data Source=$Db")
を
$connection.Open("Provider= Microsoft.Ace.OLEDB.12.0;Data Source=$Db")
に書き換えるという点である。

Access 2016 64 bitはVBAなら可能

しかし、このPowershell ScriptはAccess 2016 64bitではエラーになった。
しかもDao3.6に参照設定をすることができなくなっている。(下記：フィロの村note参照)
しかし、実際はその必要がないようだ。

VBAの場合は以下のライブラリに参照設定していること

Microsoft Office 2016 Access database engine object Library
C:\Program Files\Common Files\Microsoft Shared\Office16...
この先は読めない。どうも隠しフォルダのようだ。エクスプローラーで開いても見えない。
この参照設定で作成できる
そして以下のコードでE:\にtest36.mdbができる
このMDBファイルはAccess 2002-2003形式である

CreateDao36Db

Sub test()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim DE As DAO.DBEngine
Set ws = DBEngine.Workspaces(0)
Const DbName = "E:\test36.mdb"
ws.CreateDatabase DbName, dbLangJapanese, dbVersion40
End Sub

Access2016 AdoxでできるMDBファイル

次のAdoxへの参照設定がカギである

Microsoft ADO Ext. 6.0 for DDL and Security
C:\Program Files\Common Files\System\ado\msadox.dll

そのうえで以下のコードを実行する

上記のDaoより時間がかかる
しかしAccess2007-2016形式のmdbファイルが作成される

adoxtest2016

Sub adoxtest()
Dim Cat As ADOX.Catalog
Set Cat = New ADOX.Catalog
  Cat.Create "Provider= Microsoft.Ace.OLEDB.16.0;Data Source=F:\db216.mdb;Jet OLEDB:Encrypt Database=False;"
  Set Cat = Nothing
End Sub

Access2013

adoxtest2013

Sub adoxtest()
Dim Cat As ADOX.Catalog
Set Cat = New ADOX.Catalog
  Cat.Create "Provider= Microsoft.Ace.OLEDB.15.0;Data Source=F:\db213.mdb;Jet OLEDB:Encrypt Database=False;"
  Set Cat = Nothing
End Sub

Access2016 64Bitのエラーの原因をみていく

DAO

dbVersion40はdbVersion36のようにそれ以前のバージョンを指定するとエラーになる。
にすると「インストール可能なISAMドライバーが見つかりませんでした」
というエラーが出る。
しかし
Access 2000 でファイルをインポート、エクスポート、またはリンクすると、エラーメッセージ "インストール可能な ISAM ドライバが見つかりませんでした" が表示されるか、一部のファイルの種類が表示されない
にあるようなレジストリ
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
はJet以下がそもそもないためこのヘルプはWindows10では無効なようだ。
そこで、さらに手動で調べると、Windows10で以下が上記に対応するらしい
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\Jet 3.x
\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\ISAM Formats
このJet 3.ｘのレジストリの値からすると、C:\Program Files\Common Files\microsoft shared\OFFICE14\ACER3X.DLL
がJet臭いとしているが、参照設定はできない。
Access 2013 で廃止、変更された機能

Jet 3.x IISAM ドライバーのサポートが削除されたのは、このドライバーが提供されなくなったためです。

また
Microsoft Access データベースエンジン 2010 再頒布可能コンポーネントのインストールによって、Access2010の接続文字列Microsoft.Ace.OLEDB.12.0が使えるようになる。

ADOX

以下のような昔のADOXのVBAのコードの接続文字列ではJet.OLE.4.0というクラスがないというメッセージがでてエラーになる
ADOX で Access97 の暗号化されたデータベースを作成するには？
ADOXを用いてAccess2000形式のデータベースを作成する
"Provider=Microsoft.Jet.OLE.4.0;"DataSource=F:\Sample.mdb"
なのでMicrosoft.Jet.OLE.3.5.1などは当然だめで、書き換える必要がある。（下記フィロの村参照）

JET自体の対応はあるのだが再頒布可能コンポーネントが必要

Jet4.0の書き換えについては、
64bit版Windowsでの「Microsoft.Jet.OLEDB.4.0」について
にあるように
Access2013以降の64bit版は
Microsoft Access データベースエンジン 2010 再頒布可能コンポーネントのインストールをインストールしたうえで書き換える。この場合64bitと32bit両方のドライバが必要となる。32bitと64bitを共存させること。

まとめ

Microsoft Access データベースエンジン 2010 再頒布可能コンポーネントがインストールすると
Access2016 Access2013ともDaoを用いることでAccess 2002-2003のMDBファイルがつくれる
Access 2013 32BitではMSの公式のPowershellScriptを書き換えるとできる。しかしAccess2016 64bitではできない。
Access97形式のMDBファイルを作成する方法は見つからなかった。やはりISAMが削除された影響と考えられる。
ただしAccess97のMDBファイルを変換することはPowershellによって可能である。

参考

　Access2007以降、上記を残したまま、以下のライブラリが追加されました。
　「Microsoft Office XX.X Access Database Engine Object Library」
　※XX.XはExcelのバージョンで異なります。(2007→12.0, 2010→14.0, 2013→15.0)
「Microsoft DAO 3.6 Object Library」は、mdb形式への接続はAccessが32bitであれば動作するようですが、Accessが64bitだと動作しない(動作しないどころか参照の選択時にエラーとなる)ようです。
　また、accdb形式への接続の場合も動作しないようです。
これらのような場合は「Microsoft Office XX.X Access Database Engine Object Library」へ参照を変更する必要がありそうです。
(こちらであれば全て動くようなので、むしろ早めに移行したほうが無難な気がします)

Microsoft.Ace.OLEDB.12.0 は2007からのもの

実行時にMicrosoft.ACE.OLEDB.12.0プロバイダーはローカルコンピュータに登録されていませんが出てしまう
 2007 Office system ドライバ: データ接続コンポーネント
Office 2007 用はこちらからダウンロードするそれ以降は上記のものをダウンロードする
sp_addlinkedserver (Transact-SQL)