Sql server 从存储过程返回值

使用SQL Server和ASP Classic从存储过程输出结果时遇到问题。如果我在程序中有一个简单的

选择
，它可以正常工作。但是使用这里显示的代码，我得到了一个错误

我在SQL Server中有以下存储过程：

ALTER PROCEDURE [dbo].[Sp_Teste]
    @data varchar(8)
AS
BEGIN
    --DROP TABLE IF EXISTS #TempSubs
    
    DECLARE @TempSubs TABLE
                      (
                           PedidoID Int, 
                           NumeroPedido Varchar(20), 
                           SubstituidoPor Varchar(8000)
                      )
    
    INSERT INTO @TempSubs (PedidoID, NumeroPedido, SubstituidoPor) 
        SELECT 
            P.ID, P.NumeroPedido, 
            STRING_AGG(CAST(IPA.Quantidade AS varchar(5)) + 'X ' + Pd.Nome, ', ') + ' por ' + STRING_AGG(CAST(IPA.Quantidade AS varchar(5)) + 'X ' + Pd2.Nome, ', ') AS SubstituidoPor
        FROM 
            Pedidos P, Clientes C, Produtos Pd, ItensPedidosAjustado IPA, Produtos Pd2
        WHERE 
            P.ID = IPA.PedidoId
            AND P.ClienteId = C.ID
            AND Pd.ID = IPA.ProdutoId
            AND Faltante = 1
            AND CONVERT(Date, P.DataPedido, 103) = CONVERT(Date, @data, 103)
            AND (IPA.ProdutoSubstituidoId <> 0)
            AND Pd2.ID = IPA.ProdutoSubstituidoId
            AND ((P.StatusPedido <> 'Pause' AND P.StatusPedido <> 'PULOU ENTREGA' AND P.StatusPedido <> 'Pedido Cancelado') OR P.StatusPedido IS NULL)
        GROUP BY 
            P.ID, P.NumeroPedido, IPA.ProdutoSubstituidoId
    
    SELECT
        (SELECT STRING_AGG(Indisponibilidade, ', ') 
         FROM @TempIndis A 
         WHERE A.PedidoID = P.ID) AS Indisponibilidade,
        (SELECT STRING_AGG(SubstituidoPor, ', ') 
         FROM @TempSubs A 
         WHERE A.PedidoID = P.ID) AS Substituicao        
    FROM 
        Pedidos P, Clientes C, ItensPedidosAjustado IPA
    WHERE 
        P.ID = IPA.PedidoId
        AND P.ClienteId = C.ID
        AND Faltante = 1
        AND CONVERT(Date, P.DataPedido, 103) = CONVERT(Date, @data, 103)
        AND ((P.StatusPedido <> 'Pause' AND P.StatusPedido <> 'PULOU ENTREGA' AND P.StatusPedido <> 'Pedido Cancelado') OR P.StatusPedido IS NULL)
        AND P.PedidoCancelado = 0
    GROUP BY 
        P.ID, P.NumeroPedido, C.Nome, C.Email, P.TipoAssinatura
    ORDER BY 
        numeropedido
END

我得到这个错误：

ADODB.记录集错误“800a0e78”

对象关闭时不允许操作。

/ATendmento/testestoreprocedure.asp，第18行

默认情况下，SQL Server在
INSERT
语句之后返回（rowcount）消息，ADO classic将返回一个关闭/空的结果集。在
SELECT
查询结果可用之前，必须通过调用
NextRecordset
方法来使用这些数据

为了避免额外的编码，请养成在存储过程中指定的习惯，以抑制那些不需要的结果。将其添加到程序代码的开头以避免错误。
您不需要先打开连接吗？请不要使用
，
加入suntax，它已被弃用多年。请注意：您不应该在存储过程中使用
sp_u
前缀。微软已经这样做了，而且你确实有可能在将来的某个时候发生名称冲突。最好只是简单地避免使用
sp.
并使用其他东西作为前缀，或者根本不使用前缀！这个问题已经被问得死去活来了，说真的，我们为什么需要这样做呢？@user692942，我用谷歌做了一个粗略的搜索，我没有找到前两个结果的答案，这些结果在_PROC
消息中发出了
done_，这个问题也可以由客户端代码处理。完全同意在微软发布了糟糕的ADO经典API 20年后，这个问题变得普遍起来。
 db_conn = "Provider=SQLNCLI11;Server=xxxx;Database=BaseGaia;Uid=sqlserver;Pwd=xxxxx;"
    set conn = server.createobject("adodb.connection")
    set Cmd = Server.CreateObject("ADODB.Command")
    '-------------------------------------------------------
    conn.open (db_conn)
    '-------------------------------------------------------
    set rs = Server.CreateObject("ADODB.RecordSet")  
    sSQL = "EXEC Sp_Teste @data = '20210301'"
    
    set rs = conn.execute (sSQL)

    response.write rs.eof