运行更高级查询时关闭对象时不允许操作答案

【问题标题】：operation not allowed when the object is closed when running more advanced query运行更高级查询时关闭对象时不允许操作
【发布时间】：2023-02-04 02:45:05
【问题描述】：

当我尝试在 ASP 页面上运行更高级的 SQL 查询时，出现此错误：

对象关闭时不允许操作

当我运行此代码时，它正在运行：

...
sql = "SELECT distinct team FROM tbl_teams"
rs.open sql, conndbs, 1, 1
...

但是当我运行这段代码时（如果我在 Microsoft SQL Server Management Studio 中运行这段代码，它就可以工作），我得到了错误...

...
sql = "DECLARE     @cols AS NVARCHAR(MAX),     @query  AS NVARCHAR(MAX),     @orderby nvarchar(max),     @currentYear varchar(4)  select @currentYear = cast(year(getdate()) as varchar(4))  select @cols   = STUFF((SELECT  ',' + QUOTENAME(year([datefrom]))            from tbl_teams            group by year([datefrom])            order by year([datefrom]) desc             FOR XML PATH(''), TYPE             ).value('.', 'NVARCHAR(MAX)')         ,1,1,'')  select @orderby = 'ORDER BY ['+cast(year(getdate()) as varchar(4)) + '] desc'  set @query = 'SELECT team, Won = [1],                 Lost=[2], Draw = [3]' + @cols + ', Total             from             (               select                 team,                 new_col,                 total                from               (                 select team,                   dt = year([datefrom]),                   result,                   total = count(*) over(partition by team)                 from tbl_teams               ) d               cross apply               (                 select ''dt'', dt union all                 select ''result'', case when dt = '+@currentYear+' then result end               ) c (old_col_name, new_col)             ) x             pivot             (                 count(new_col)                 for new_col in ([1], [2], [3],' + @cols + ')             ) p '+ @orderby  exec sp_executesql @query"
rs.open sql, conndbs, 1, 1
...

这是查询的更好概述：

DECLARE 
    @cols AS NVARCHAR(MAX),
    @query  AS NVARCHAR(MAX),
    @orderby nvarchar(max),
    @currentYear varchar(4)

select @currentYear = cast(year(getdate()) as varchar(4))

select @cols 
  = STUFF((SELECT  ',' + QUOTENAME(year([datefrom])) 
           from tbl_teams
           group by year([datefrom])
           order by year([datefrom]) desc
            FOR XML PATH(''), TYPE
            ).value('.', 'NVARCHAR(MAX)') 
        ,1,1,'')

select @orderby = 'ORDER BY ['+cast(year(getdate()) as varchar(4)) + '] desc'

set @query = 'SELECT team, Won = [1], 
                Lost=[2], Draw = [3]' + @cols + ', Total
            from 
            (
              select 
                team,
                new_col,
                total  
              from
              (
                select team, 
                  dt = year([datefrom]),
                  result,
                  total = count(*) over(partition by team)
                from tbl_teams
              ) d
              cross apply
              (
                select ''dt'', dt union all
                select ''result'', case when dt = '+@currentYear+' then result end
              ) c (old_col_name, new_col)
            ) x
            pivot 
            (
                count(new_col)
                for new_col in ([1], [2], [3],' + @cols + ')
            ) p '+ @orderby

exec sp_executesql @query

我是否需要以另一种方式运行查询或者此代码有什么问题？

【问题讨论】：

三个词给你 SET NOCOUNT ON，没有它 ADODB 会将计数视为一个单独的封闭记录集。

标签： sql sql-server asp-classic

【解决方案1】：

这是一个常见问题，原因是在将 ADODB 与 SQL Server 一起使用时，行数被解释为存储过程的输出。

为避免这种情况，请记住设置

SET NOCOUNT ON;

在你的存储过程中，这将停止 ADODB 返回一个关闭的记录集，或者如果出于任何原因你不想这样做（不知道为什么你总是可以使用 @@ROWCOUNT 来传回行数），你可以使用

'Return the next recordset, which will be the result of the Stored Procedure, not 
'the row count generated when SET NOCOUNT OFF (default).
Set rs = rs.NextRecordset()

如果 ADODB 检测到存储过程返回一个，则返回下一个 ADODB.Recordset（在处理多个 ADODB.Recordset 对象时最好检查 rs.State <> adStateClosed）。

【讨论】：