MSysObjects中取得表名

三山客

如何从MSysObjects系统表中获得所有数据库表名

andymark

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.ParentId)=251658241) AND ((MSysObjects.Type)=1) AND ((Left([MSysObjects].[Name],4))<>"MSys"));

三山客

谢谢andymark,我将SQL用在如下(VB),被告知在MSysObjects上没有读取数据权限,如何解决此权限问题
    Dim Rs_Table As New ADODB.Recordset
    Rs_Table.CursorLocation = adUseClient
    Rs_Table.Open "SELECT MSysObjects.Name FROM MSysObjects WHERE MSysObjects.ParentId=251658241" & _
            "AND MSysObjects.Type=1 AND Left([MSysObjects].[Name],4)<> 'MSys'", _
             myConn, adOpenDynamic, adLockReadOnly
当然读取表名可以用OpenSchema(adSchemaTables)方法

三山客

在access中，工具 -> 安全 -> 用户与组的权限，在对象名称中选定MSysObjects ，然后对权限“读取数据”打勾，问题解决。