Question

需要从vba创建和使用ms access数据库。我的机器中未安装Access。但我几乎可以肯定它可以使用喷气发动机。我使用DAO引用创建了一个数据库。以下示例。

C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEDAO.DLL
Microsoft Office 14.0 Access database engine Object Library

以下是示例代码

Dim DBFile As String
Dim ws As Workspace
Dim db As Database
Dim fso As New FileSystemObject

DBFile = Application.ActiveWorkbook.Path & "\db_1.accdb"
If Not fso.FileExists(DBFile) Then
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.CreateDatabase(DBFile, dbLangGeneral)
    Set db = ws.OpenDatabase(DBFile)
End If

现在我想使用常规ADODB连接来使用它来使用下面的引用

创建表

 C:\Program Files\Common Files\System\ado\msado28.tlb
 Microsoft ActiveX Data Objects 2.8 Library

我在下面试过

Dim ConStr As String
Dim Con As New ADODB.Connection
   ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.ActiveWorkbook.Path & "\db_1.accdb" & ";Persist Security Info=False"
   Con.Open ConStr, , , 0
   Set Connect = Con

但是我在con.open中遇到了自动化错误。这样可能吗？未安装访问是否会导致错误？请建议除安装Office之外的任何解决方法

没有安装的ms访问数据库 - vba

0 个答案: