excel - 从 Excel VBA 连接到只读 Access db

Question

我一直是stackoverflow的长期访问者，但这是我的第一个问题。

我正在尝试在用户只有只读访问权限的文件夹中查询 Access 2010 数据库。

     strDBPath = <full path of accdb>

     Set myConn = New ADODB.Connection
     myConn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _ 
                 "Mode=Read; Data Source=" & strDBPath

     Set myRS = New ADODB.Recordset
     myRS.ActiveConnection = myConn     

myConn.Open 行给出“当前正在使用的文件”错误。如果我将 accdb 移动到用户可以编写的文件夹中，则代码运行良好。

提前感谢您的任何建议!

Answer 1

Wie 还与 Access DB 建立了连接，但我很确定我们也对该文件夹具有写入权限。

我们使用的代码在这里。

   Dim DB As DAO.Database
   Dim QRY As DAO.QueryDef
   Dim Rs As DAO.Recordset
   Public Ersteller As String

   'Prüft die Verbindung zur DB
   Public Function OpenDB() As Integer

      'Informationen über Database'
      Dim Database As Variant
      Database = Worksheets("Anträge").Range("B3").Value

      'Check Datenbank Verbindung
      On Error Resume Next
      Set DB = CreateObject("DAO.DBEngine.120").OpenDatabase(Database)
      If Err.Number <> 0 Then
          MsgBox "Keine Verbindung zur Datenbank möglich!"
      End If
      OpenDB = Err.Number

   End Function

也许它有帮助。 :)