用ODBC连接的VBAmacros,用于在Excel中检索数据

我尝试用excel检索一些SQL数据。 它可以正常查询(data-> other sources-> microsoft query)。

我试图创build一个maccro,我实际上阻止连接/识别。

下面是我的一个macros:

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;" 

debugging说cnDB.Open不好:“执行错误”-2147418113(8000ffff)“灾难性故障”。 我已经尝试了很多方法来解决,但我没有find..感谢您的帮助。

我为SQL Server 2012 Express创build了ODBC DSN然后,我在MS EXCEL 2010(使用开发人员选项卡)中logging了一个macros。 没有问题。

我的连接信息如下所示:

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

看起来你正在从MS ACCESS获取数据。 它应该没有什么不同,也许你MS Access数据库需要正确的authentication信息。 完整的代码在我的G +

你想要从中检索数据的数据库是什么?

这可能有助于 – http://www.connectionstrings.com