VBA Excel - SQL "execute"方法触发的查询超时已过期

Question

这与Excel VBA中的问题不同：ODBC SQL Server驱动程序查询超时已过期

触发了以下代码行：

[Microsoft][ODBC SQL Server Driver]查询超时在30秒后过期。

代码：

Dim conn As ADODB.Connection 
Dim rs As ADODB.Recordset
Set rs = conn.Execute(WOString)

我的问题是，如何延长Execute方法的超时时间？CCD_ 2或CCD_。

如果它有任何重要性，我使用标准连接字符串(但连接工作没有任何问题(：

Driver={SQL Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

Answer 1

CommandTimeout工作正常。参见repro:

----------测试.vbs---------

Sub testSub()
Dim cn 'As Object
Dim cnStr 'As String
cnStr = "DRIVER=SQL Server;SERVER=localhost;Database=master;Trusted_Connection=true"
Set cn = CreateObject("ADODB.Connection")
With cn
.ConnectionString = cnStr
.ConnectionTimeout = 10
.CommandTimeout = 100
.Open
If .State = 1 Then
.Execute("waitfor delay '00:01:00'")
End If
End With
End Sub
testSub()

然后运行

cscript .test.vbs