Office中国论坛/Access中国论坛

标题: MSysObjects中取得表名 [打印本页]

作者: 三山客 时间: 2007-10-27 21:05
标题: MSysObjects中取得表名
如何从MSysObjects系统表中获得所有数据库表名

作者: andymark 时间: 2007-10-27 21:34
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.ParentId)=251658241) AND ((MSysObjects.Type)=1) AND ((Left([MSysObjects].[Name],4))<>"MSys"));

作者: 三山客 时间: 2007-10-28 09:37
谢谢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)方法

作者: 三山客 时间: 2007-10-28 16:32
在access中，工具 -> 安全 -> 用户与组的权限，在对象名称中选定MSysObjects ，然后对权限“读取数据”打勾，问题解决。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)