sql-server - ADODB 通过 Excel 连接到 SQL-Server

Question

我之前打开了一个类似的问题，但无济于事:
'https://stackoverflow.com/questions/58408918/vba-runtime-error-when-connection-to-sql-database
但由于已经尝试了一些事情，我想我会再试一次。
问题出在“打开”命令”。我收到运行时错误 80040e4d 用户“XXXX”登录时出错
我查看了一个有类似问题的堆栈链接，不幸的是也没有帮助:
VBA Runtime Error when connection to SQL Database
我还尝试使用 Excel 中的连接向导，它工作正常，所以我的连接数据似乎是正确的。我想在我的模块中使用 excel 用于我的代码的连接字符串，但提供程序的主要区别是“Microsoft.Mashup.OleDb.1”并没有真正改变任何东西。
这是我的代码:
'''

Sub DBCOnnectII()
   Dim cnConn As ADODB.Connection
   Set cnConn = New ADODB.Connection
   With cnConn
       .Provider = "SQLOLEDB.1"
       .CursorLocation = adUseClient
       .ConnectionTimeout = 0
       .Properties("Data Source").Value = "VMSQL19"
       .Properties("Password").Value = "XXXX"
       .Properties("User ID").Value = "XXXX"
       .Properties("Initial Catalog").Value = "AuswertungenTest"
       .Open
   End With
   End Sub

'''

Answer 1

在这里尝试这种更简化的方法。确保添加正确的引用以使用 ADO 库。

Private Sub NonRecordset()
    Dim vbSql As String, cnnstr as String
    Dim cnn As ADODB.Connection
    Dim rs As New ADODB.Recordset

    vbSql = vbSql & "SQL STATEMENT" 
    Debug.Print ; vbSql
    Set cnn = New Connection
    cnnstr = "Provider=SQLOLEDB;Data Source=YOURSERVER;Initial Catalog=YOURDATABASE;User ID=USERNAME;Password=PASSWORD; Trusted_Connection=No"
    cnn.Open cnnstr
    ' cnn.Execute vbSql 'use this if just executing statement
    ' rs.Open vbSql, cnn 'use this if needing recordset
    ' if needing a recordset you'lll have to do something with said recordset:
    ' ThisWorkbook.Sheets("Sheet1").Range("A1").CopyFromRecordset rs
    
    cnn.Close
    Set cnn = Nothing
    
End Sub