用于与 ODBC 连接的 VBA 宏，用于在 excel 中检索数据

Question

我尝试用 excel 检索一些 SQL 数据。它适用于通常的查询（数据->其他来源->微软查询。）

我尝试为此创建一个宏，但实际上我被连接/识别阻止了。

下面是我的一段宏：

Sub Test()

'Declare a Connection object
Dim cnDB As New ADODB.Connection

'Declare a Recordset Object
Dim rsRecords As New ADODB.Recordset
cnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;DSN=ServiceNow;User ID=test;Password=testtest;"

调试说cnDB.Open不好：“执行错误'-2147418113（8000ffff）'灾难性失败”。我已经尝试了很多方法来解决这个问题，但我没有找到.. 感谢您的帮助。

Answer 1

我为 SQL Server 2012 Express 创建了 ODBC DSN 然后我在 MS EXCEL 2010 中录制了一个宏（使用开发人员选项卡）。 没有问题。

我的连接信息如下所示：

“ODBC;DSN=sqlSrvr2012;UID=mysorian;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=HODENTEKWIN7;DATABASE=Northwind;”

看起来您正在从 MS ACCESS 获取数据。应该没有什么不同，也许您的 MS Access 数据库需要正确的身份验证信息。完整代码在我的 G+

Answer 2

您要从中检索数据的数据库是什么？

这可能会有所帮助 - http://www.connectionstrings.com