如何使用 VBA 检查是否安装了 OLEDB 提供程序?

如何使用 VBA 检查是否安装了 OLEDB 提供程序?

我有一个 Excel 工作簿,它使用 OraOLEDB.Oracle 提供程序来更新 Oracle 数据库中的各种表。该工作簿很可能会分发给未安装 Oracle 驱动程序的人。如何在 VBA 中检查提供程序是否已安装,以便我可以向尝试在没有驱动程序的情况下进行更新的人提供一条友好的错误消息?

答案1

我认为这只是一个临时答案,因为我没有办法测试它。但我找到了一篇旧帖子(真的很旧)这里基本上是说测试错误 3706。我不知道这是否是我的特定错误的当前错误编号,但无论如何,执行以下操作都应该有效:

On Error Resume Next
Application.RefreshAll
If Err.Number <> 0 Then
    MsgBox "Need to install driver"
    Err.Clear
Else
    <Process data assuming successful refresh>
End If    
On Error GoTo 0

相关内容