excel - 记录无法读取； 'MSysObjects' 没有读取权限

Question

我正在尝试使用 Excel VBA 从 Access 2007 ACCDB 格式数据库获取所有表的列表。

我关注了这篇文章:

How can I get table names from an MS Access Database?

使用:

SELECT MSysObjects.Name AS table_name
FROM MSysObjects
WHERE
        (((Left([Name],1))<>"~")
    AND ((Left([Name],4))<>"MSys")
    AND ((MSysObjects.Type) In (1,4,6)))
order by MSysObjects.Name

但我收到此错误。

Record cannot be read; no read permission on 'MSysObjects'

我希望能够仅使用 SQL 语句而不是 OpenSchema 方法获取表名称。

我认为问题出在 Access 上。我不确定。

有人知道吗？

Answer 1

由于您的数据库是 ACCDB 格式，因此您将以用户管理员身份工作。您可以在“立即”窗口中确认该点。 (使用 Ctrl+g 前往那里)

? CurrentUser()
Admin

由于Admin没有对MSysObjects的读取(SELECT)权限，因此执行DDL语句来授予Admin 该许可。

strDdl = "GRANT SELECT ON MSysObjects TO Admin;"
CurrentProject.Connection.Execute strDdl