无法识别的数据库格式（opendatabase错误）

Question

我正在尝试使用DAO.database / DAO.recordset从新的Excel vba工作簿访问ms访问表。

但是，我在opendatabase（“ path.accdb”）行中得到了“无法识别的数据库格式”。

Dim a As DAO.Database
Dim b As DAO.Recordset
Set a = OpenDatabase("C:\Users\Sweety\Desktop\Database2.accdb")
Sql = "SELECT Name1,Age FROM Table2 "
Sql = Sql & "WHERE City = 'Berkeley' "
Set b = a.OpenRecordset(Sql)
Sheet1.Range("A1").CopyFromRecordset b

Answer 1

通常的解决方法是对数据库C:\Users\Sweety\Desktop\Database2.accdb进行压缩和修复。较小的损坏问题经常在Access后端发生，这将（通常）解决此问题。

注意：

1. 此后检查Conversion Errors或MSysCompactErrors表以查看是否存在未解决的损坏错误
2. 最好定期执行此操作，因为它会缩小Access文件的大小