Question

在我的主Access 2016数据库中，使用VBA，我想在磁盘上创建一个SEPARATE临时Access 2016数据库。使用CSV中的数据在临时数据库中创建一个表，然后在我的主数据库中创建一个链接到临时数据库中新创建的表。现在我应该能够在临时数据库表上运行查询。

整件事情有点令人难以置信。到目前为止，我有以下代码用于创建数据库，但它提供了＃34;类没有注册＆＃34;行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

使用VBA代码创建Access 2016 DB

1 个答案: