请教如何通过ADO+LISP获取MDB的所有表名 （已解决）

cheng5276

泣血求教，恳请大侠们指点

在ACCESS中，可以直接通过"SELECT MSysObjects.Name FROM MsysObjects" sql语句来取得所有表名的列表
但是当通过LISP+ADO的以下两种方法时，都提示无此权限，恳请老大们指点！
(setq SqlString  "SELECT MSysObjects.Name FROM MsysObjects"）
1、方法一   (vlax-invoke-method RSObject "open" SqlString DBConnection nil nil adok-adcmdtext)
2、方法二   (vlax-invoke-method DBConnection "Execute" SqlString nil -1)


这个是网上的一段VB代码，本想参照这个改写
3、方法三  (setq rs (Vlax-Invoke-Method DBConnection "OpenSchema" adSchemaTables))  提示“无效的参数数目”

1. 
   
2. Private   Sub   Form_Load()
   
3. Dim   adoCN   As   New   ADODB.Connection               '定义数据库的连接存放数据和代码Dim   rstSchema
   
4. Dim   strCnn   As   New   ADODB.Recordset
   
5.             
   
6.     str1   =   "Provider=SQLOLEDB.1;Password=sa;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=wktrade;Data   Source=net5 "
   
7.     adoCN.Open   str1
   
8.         
   
9.     Set   rstSchema   =   adoCN.OpenSchema(adSchemaTables)
   
10.    
    
11.     Do   Until   rstSchema.EOF
    
12.             out   =   out   &   "Table   name:   "   &   _
    
13.                 rstSchema!TABLE_NAME   &   vbCr   &   _
    
14.                 "Table   type:   "   &   rstSchema!TABLE_TYPE   &   vbCr
    
15.             rstSchema.MoveNext
    
16.     Loop
    
17.     rstSchema.Close
    
18.    
    
19.     adoCN.Close
    
20. Debug.Print   out
    
21. End   Sub
    
22. 
    

<br /> Private   Sub   Form_Load() <br /> Dim   adoCN   As   New   ADODB.Connection               '定义数据库的连接存放数据和代码Dim   rstSchema <br /> Dim   strCnn   As   New   ADODB.Recordset <br />             <br />     str1   =   "Provider=SQLOLEDB.1;Password=sa;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=wktrade;Data   Source=net5 " <br />     adoCN.Open   str1 <br />         <br />     Set   rstSchema   =   adoCN.OpenSchema(adSchemaTables) <br />     <br />     Do   Until   rstSchema.EOF <br />             out   =   out   &   "Table   name:   "   &   _ <br />                 rstSchema!TABLE_NAME   &   vbCr   &   _ <br />                 "Table   type:   "   &   rstSchema!TABLE_TYPE   &   vbCr <br />             rstSchema.MoveNext <br />     Loop <br />     rstSchema.Close <br />     <br />     adoCN.Close <br /> Debug.Print   out <br /> End   Sub <br /> <br />

cheng5276

折腾了一个晚上终于找到原因了，现贴出方法如下：
（方法一、二均可以，以下为方法二的源码。虽然这种方法成功了，毕竟需要一个事先设置权限的步骤，还是恳请大侠能够指点下方法三的写法，在此拜谢）


;ADO取得所有表名

;不成功的原因：默认的情况admin对MSysObjects没有任何权限！包括查询
;所以必须修改admin对MSysObjects的权限设置
;1、access2003 (工具 -> 选项 -> 视图 -> 隐藏对象、系统对象 前面的勾选上;
;2、工具 -> 安全 -> 用户与组的权限 设置其权限其权限MSysObjects
;3、access2007  (Office按钮 再点"Access选项"-->"当前数据库"==>"导航" ）-》修改权限。
;4、设好权限后，为简洁可再将系统表进行隐藏。

(DEFUN CHENG5276-ADO-get-tablenames (DBConnection / lst recordlst rsobject sqlstring)
(setq SqlString "SELECT MSysObjects.Name FROM MsysObjects") ;检索所有表的SQL语句（含系统表）
(setq rsObject (vlax-invoke-method DBConnection "Execute" SqlString nil -1));核心函数，引自明总
(setq recordlst (car (vlax-safearray->list (vlax-variant-value (vlax-invoke-method rsObject "GetRows" -1)))))
(cheng5276-ADO-CloseRecordset rsObject);关闭
(setq lst (mapcar 'vlax-variant-value recordlst))
)