用VBA代码自动引用ADO（Windows64位环境）

时　间:2024-12-27 08:01:23
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:用VBA重新引用Windows64位环境下的ADO源代码分享。
正　文:

一、 功能描述：
      由于DAO与ADO都是常用的Access里面技术，有网友电脑上经常会出现ADO未引用的提示，不想每次换了电脑环境后，都用手动方式再次去重新引用一次，也想用代码自动判断方式，这里提供一个自动引用ADO代码，供参考。

二、解决方案：（以下代码针对Windows64位环境下的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 (x86)\Common Files\System\ado\msado15.dll"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用ADO

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店