新規mdbファイルの作成

新規mdbファイルの作成

Sub mdbファイルの作成()
Dim myCat As ADOX.Catalog, conStr As String, DBName As String

'新規カタログオブジェクトと新規データベス名、接続文字列を作成
Set myCat = New ADOX.Catalog
DBName = ThisWorkbook.Path & "\mdb\newDB.mdb"
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName

myCat.Create conStr

Set myCat = Nothing

End Sub

新規にmdbファイルを作成したり、新規にテーブルを作成するには、ADOX(Microsoft
AcriveX Data Objects Extensions for Data Definition
Language and Security)を利用する。

mdbファイルを作成
Catalogオブジェクト.Create 接続文字列

実行結果

同名ファイルを作成しようとした時のエラーメッセージ