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

时间：2021-04-18 00:56:12

        昨天在敲下面一个一段代码的过程中遇到了点小麻烦，实时错误'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                          '创建数据库连接
<span style="background-color: rgb(255, 255, 51);">objCn.Open </span>

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

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

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

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer

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

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

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess

  1. 在“详细信息”窗格的“名称”列中，查找“FullInstallVer”和“Version”。其中的每个注册表项在“数据”列中都有相应的版本信息。将两项分别改成”2.82.3959.0“和”2.82.3959.0“。
  2. 完成后，单击“注册表”菜单上的“退出”，关闭注册表编辑器。
当我修改完后发现我的问题不是这样的，错误照常出现，于是呼我又把代码重敲了一遍，就解决了（当然又出现了一些无关紧要的问题）。
从这件事中我明白了，出现了问题1、要冷静对待，多在网上找找资料。
                                                            2、不要盲目否定书上的代码，仔细看看是不是自己出现了问题。
                                                            3、一定要注意细节，要有耐心。

标签：

相关文章