Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access懒人工具】用VBA代码重新引用ADO

时 间:2013-12-05 09:56:44
作 者:麥田   ID:11  城市:上海  QQ:3002789054点击这里给麥田发消息
摘 要:用VBA代码重新引用ADO
正 文:

一、 功能描述:

     上回版友 Bobby 发布了 用VBA代码重新引用DAO方法

http://www.accessoft.com/article-show.asp?id=8915

     由于DAO与ADO都是常用的Access里面技术,有网友电脑上经常会出现ADO未引用的提示,不想手动方式去引用,也想用代码自动判断方式,这里根据上次文章代码改成了自动引用ADO代码,供参考。


二、解决方案:

    Dim REFE As References    '声明REFE为引用
    Dim strFileName As String    '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If rf.Name = "ado" Then    '如果名字为ADO就移动ADO的引用
            Application.References.Remove rf    '移除
            Exit For    '退出循环
        End If
    Next
    strFileName = "C:\Program Files\Common Files\System\ado\msado15.dll"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用ADO



Access软件网QQ交流群 (群号:297018933)       access源码网店

最新评论 查看更多评论(4)

2013/12/5 11:54:27韩志
在MDE中应该不能用,只能在MDB中用吧。

2013/12/5 11:53:38韩志
这不是我写的吗,哈哈。

2013/12/5 10:58:50杜威
好啊

2013/12/5 10:28:30麥田
主要是懒人工具  为了解脱手动引用一项一项查找的麻烦.

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助