无法通过Excel VBA连接到SQL数据库。

Posted 2023-01-09

我无法使用VBA连接到我的数据库。

Sub testSub()
    Dim cn As Object
    Dim cnStr As String
    cnStr = "DRIVER=SQL Server;SERVER=myServerName;Database=myDbName;Trusted_Connection=Yes"
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .ConnectionString = cnStr
        .ConnectionTimeout = 10
        .Open
        If .State = 1 Then
            'rest of code
        End If
    End With
End Sub

代码在.Open行失败，并出现错误信息。

没有问题通过SSMS连接到这个数据库。此外，使用上述VBA连接到其他一些数据库也没有问题。请问有什么办法，为什么不让我通过ExcelVBA连接，如何解决这个问题？

答案

使用新的 适用于SQL Server的微软OLE DB驱动程序 甚至新 适用于SQL Server的微软ODBC驱动程序.

见 使用 ADO 与 OLE DB 驱动程序为 SQL Server 服务 以获得更新 VB、VBA 和 ASP.OLD 应用程序以使用新驱动程序的指导。