Создать Access 2016 DB с кодом VBA

Question

В моем основном доступе 2016 БД, используя VBA, я хочу создать временный диск Access OPTION SEPARATE 2016 на диске. Создайте таблицу внутри temp db, используя данные, которые у меня есть в CSV, а затем создайте ссылку в моем основном db для этой недавно созданной таблицы в temp db. Теперь я должен иметь возможность запускать запросы в таблице temp db.

Все это немного ошеломляет. Пока у меня ниже код для создания db, но он дает ошибку «Class not registered» в строке Catalog.Create dbConnectStr, также этот код создает файл mdb вместо файла accdb. Это проблема?

Dim dbConnectStr As String 
Dim Catalog As Object 
Dim cnt As ADODB.Connection 
Dim dbPath As String 

dbPath = "C:\TempDB.mdb" 
dbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";" 

'Create new database 
Set Catalog = CreateObject("ADOX.Catalog") 
Catalog.Create dbConnectStr 
Set Catalog = Nothing 

'Connect to database and insert a new table 
Set cnt = New ADODB.Connection 
'' create table here 
Set cnt = Nothing 

Answer 1

Ниже приведен пример создания новой БД без ее открытия в текущем рабочем экземпляре Access.

Sub CreateMeANewDatabasePlease(dbPathAndName As String) 

Dim aApp As Access.Application 

    Set aApp = New Access.Application 
    aApp.NewCurrentDatabase dbPathAndName, acNewDatabaseFormatUserDefault 
    aApp.Quit 

End Sub 

Sub StartHere() 
    CreateMeANewDatabasePlease ("SomePath\TheDB.accdb") 
End Sub