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

        昨天在敲下面一个一段代码的过程中遇到了点小麻烦,实时错误'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、一定要注意细节,要有耐心。

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页