从 Access VBA 发送 SQL 查询时停止运行

Question

我有一个在 SQL Server 14.0 中运行查询的访问 vba 代码。然而，它需要大约 20 分钟才能停止查询并移至我的 vba 代码的下一行。

如果我将代码直接复制到 SQL 中并在那里运行它，它可以正常运行，没有任何问题。我最初认为这是由于连接或命令超时造成的，但通常这应该会生成一条错误消息（即便如此我已将超时设置为 0 以强制它们无限期运行）。

请在下面找到我的代码，它使用 Cursor 循环遍历一系列表以完成相同的任务。此任务涉及循环执行 Do While 直到满足条件。此时循环应该完成并从下一张桌子开始。

它确实完成了 3 个游标循环，但随后开始下一个，然后就停止了。

希望代码有意义，它的访问时间很长，我不得不使用换行符将其全部拆分，以使我的 SQL 字符串更易于破译和（尝试）调试。

''...Declare all relevant variables above...

On Error GoTo 0

SQL_STR1 = "DECLARE @STRSQL AS Varchar(max) " & vbCrLf & _
           "DECLARE @TableName VARCHAR(50) " & vbCrLf & _
           "DECLARE LoopVal CURSOR FOR SELECT TableName_ FROM [DBASE_NAME].[dbo].[a_Base_Year_Matrices] " & vbCrLf & _
           "OPEN LoopVal " & vbCrLf & _
           "FETCH NEXT FROM LoopVal INTO @TableName " & vbCrLf & _
           "WHILE @@FETCH_STATUS = 0 " & vbCrLf & _
           "BEGIN " & vbCrLf & _


SQL_STR2 = "SET @STRSQL = " 

          '...Create Some Tables...

           "WHILE (@COUNTT < 1959 AND @COUNTTER < 150)" & vbCrLf & _
           "BEGIN" & vbCrLf & _

          '...Runs loops to meet conditions, once met drop unneeded tables and create final output...


SQL_STR3 = "EXEC(@STRSQL) " & vbCrLf & _
           "FETCH NEXT FROM LoopVal INTO @TableName " & vbCrLf & _
           "END " & vbCrLf & _
           "CLOSE LoopVal " & vbCrLf & _
           "DEALLOCATE LoopVal "

SQL_ALL = SQL_STR1 + SQL_STR2 + SQL_STR3

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

'Set SQL Server Location
cnn.ConnectionTimeout = 0
cnn.Open "Driver={SQL Server};Server=" & ServerName & ";Trusted_Connection=Yes;"
Set rs.ActiveConnection = cnn

DoCmd.SetWarnings False
cnn.CommandTimeout = 0

''Code to check to paste directly into SQL
''Debug.Print SQL_ALL

rs.Open SQL_ALL, cnn, adOpenForwardOnly

Next b

Next a

End Sub

Answer 1

使用 SET NOCOUNT ON; 语句开始您的 SQL 脚本；

这将抑制所有服务器消息传递并允许结果集进入您正在打开的记录集。

....
SQL_STR1 = "SET NOCOUNT ON; " & vbCrLf & _
           "DECLARE @STRSQL AS Varchar(max) " & vbCrLf & _
           "DECLARE @TableName VARCHAR(50) " & vbCrLf & _
           "DECLARE LoopVal CURSOR FOR SELECT TableName_ FROM [DBASE_NAME].[dbo].[a_Base_Year_Matrices] " & vbCrLf & _
           "OPEN LoopVal " & vbCrLf & _
           "FETCH NEXT FROM LoopVal INTO @TableName " & vbCrLf & _
           "WHILE @@FETCH_STATUS = 0 " & vbCrLf & _
           "BEGIN " & vbCrLf & _
....

SET NOCOUNT ON 在任何 DML 之后抑制“​​xx 行受影响”消息。这是一个结果集，在发送时，客户端（在本例中为您的 ADO 记录集）必须对其进行处理。简而言之，记录集对象不处理这些服务器消息——它需要一个游标来表示基表中的记录、查询结果或以前保存的记录集。当您的记录集返回服务器消息时，它只会给您一个空记录集。我猜你的 VBA 并不期待一个空的记录集，并且当这种情况发生时，你有一些代码块会卡住？很难说没有看到所有的 VBA。

将 NoCount 设置为 ON 会使服务器跳到好东西 - 在这种情况下是查询的结果 - 记录集对象打算处理。