| 订阅 | 在线投稿
分享
 
 
 

Access 中引用的相对应的名称

来源:互联网网民  宽屏版  评论
2006-12-16 17:32:45

问题:

如何知道引用的相对应的名称?

我想引用在引用对话框没有的引用,但又不知道它的名称,不知有什么帮助呢?

如: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")

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
问题: 如何知道引用的相对应的名称? 我想引用在引用对话框没有的引用,但又不知道它的名称,不知有什么帮助呢? 如: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")
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有