实时错误'3706'未找到提供程序。改程序可能未正确安装

发布时间：2020-12-17 08:12:51 所属栏目：百科来源：网络整理

导读：昨天在敲下面一个一段代码的过程中遇到了点小麻烦，实时错误'3706'未找到提供程序。改程序可能未正确安装。 Dim strCn As StringDim strCn As String Set objCn = New Connection '实例化对象Connection对象objCn strCn = "Provider=Microsoft.Jet.OLEDB.4.0

昨天在敲下面一个一段代码的过程中遇到了点小麻烦，实时错误'3706'未找到提供程序。改程序可能未正确安装。

Dim strCn As String
Dim strCn As String
        Set objCn = New Connection                                '实例化对象Connection对象objCn
        strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
                                                          "Data Source=" & App.Path & "数据库实例5.mdb"
        objCn.ConnectionString = strCn                          '创建数据库连接
       objCn.Open

每次运行时都会在“objCn.Open上出现黄色的背景色（我想每一个写程序的人都不希望自己敲的代码上出现这样的颜色吧），加上一个矩形的弹出框显示着”实时错误'3706'未找到提供程序。改程序可能未正确安装。“

后来在网上找了找说是MDAC有问题需要修改注册表。

可在以下项中找到版本信息：

HKEY_LOCAL_MACHINESoftwareMicrosoftDataAccessFullInstallVer

要检查注册表，请按照下列步骤操作：

在“开始”菜单上，单击“运行”。
在“打开”文本框中，键入 regedit，然后单击“确定”；这将启动注册表编辑器。
在导航窗格中，向下浏览到以下路径：

HKEY_LOCAL_MACHINESoftwareMicrosoftDataAccess

在“详细信息”窗格的“名称”列中，查找“FullInstallVer”和“Version”。其中的每个注册表项在“数据”列中都有相应的版本信息。将两项分别改成”2.82.3959.0“和”2.82.3959.0“。
完成后，单击“注册表”菜单上的“退出”，关闭注册表编辑器。

当我修改完后发现我的问题不是这样的，错误照常出现，于是呼我又把代码重敲了一遍，就解决了（当然又出现了一些无关紧要的问题）。

从这件事中我明白了，出现了问题1、要冷静对待，多在网上找找资料。

2、不要盲目否定书上的代码，仔细看看是不是自己出现了问题。

3、一定要注意细节，要有耐心。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

实时错误&#39;3706&#39;未找到提供程序。改程序可能未正确安装

实时错误'3706'未找到提供程序。改程序可能未正确安装