Acce 中引用的相对应的名称

文章作者 100test 发表时间 2007:09:06 11:39:43
来源 100Test.Com百考试题网

　　问题：

　　如何知道引用的相对应的名称?
　　我想引用在引用对话框没有的引用,但又不知道它的名称,不知有什么帮助呢?
　　如:microsoft Office 10.0 Object Library在对话框没有,那要浏览它,请问它相对应的名称是什么呢?
　　还有如果看到别的人数据库有些引用,而在我的数据库的引用对话框上找不到的呢?

　　回答：

　　用以下代码显示出现在已经引用的所有类库的名称

　　Function displayAllDll()
Dim r As Reference
On Error Resume Next
For Each r In References
Debug.Print "类库名：" &. r.name
Debug.Print "类库文件绝对路径：" &. r.FullPath
Debug.Print "是否内建：" &. r.BuiltIn
Debug.Print "类库版本号" &. r.Minor
Next
　　End Function

　　得到类库名后你可以直接使用“后引用”的方式来建立需要的对象，比如
　　Dim rs
　　Set rs = CreateObject("adodb.recordset")