从存储过程 ASP Classic 返回值 [重复]

Question

我在使用 SQL Server 和 ASP Classic 输出存储过程的结果时遇到问题。如果我在程序中有一个简单的SELECT，它就可以正常工作。但是使用这里显示的代码，我得到一个错误。

我在 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

以及 ASP Classic 中的这段代码

 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

我收到此错误：

ADODB.Recordset 错误“800a0e78”
对象关闭时不允许操作。
/Atendimento/testestoreprocedure.asp，第 18 行

Answer 1

默认情况下，SQL Server 在INSERT 语句之后返回DONE_IN_PROC (rowcount) 消息，ADO 经典返回封闭/空结果集。这些必须在SELECT 查询结果可用之前通过调用NextRecordset 方法来使用。

为了避免额外的编码，请养成在存储过程中指定SET NOCOUNT ON; 的习惯，以抑制那些不需要的结果。将其添加到 proc 代码的开头以避免错误。