實時錯誤'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 '創建數據庫連接
objCn.Open
每次運行時都會在“objCn.Open上出現黃色的背景色(我想每一個寫程序的人都不希望自己敲的代碼上出現這樣的顏色吧),加上一個矩形的彈出框顯示著”實時錯誤'3706'未找到提供程序。改程序可能未正確安裝。“
後來在網上找了找說是MDAC有問題需要修改注冊表。
可在以下項中找到版本信息:
HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer
要檢查注冊表,請按照下列步驟操作:
- 在“開始”菜單上,單擊“運行”。
- 在“打開”文本框中,鍵入 regedit,然後單擊“確定”;這將啟動注冊表編輯器。
- 在導航窗格中,向下瀏覽到以下路徑:
HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess
- 在“詳細信息”窗格的“名稱”列中,查找“FullInstallVer”和“Version”。其中的每個注冊表項在“數據”列中都有相應的版本信息。將兩項分別改成”2.82.3959.0“和”2.82.3959.0“。
- 完成後,單擊“注冊表”菜單上的“退出”,關閉注冊表編輯器。
當我修改完後發現我的問題不是這樣的,錯誤照常出現,於是唿我又把代碼重敲了一遍,就解決了(當然又出現了一些無關緊要的問題)。
從這件事中我明白了,出現了問題1、要冷靜對待,多在網上找找資料。
2、不要盲目否定書上的代碼,仔細看看是不是自己出現了問題。
3、一定要注意細節,要有耐心。
最後更新:2017-04-03 18:52:06