ADODB.Recordset 错误 '800a0e78' - 当我传递 2 个参数时出错 (ASP/MSSQL)

Question

当我将 2 个参数传递给我的 Exec 代码时，我的经典 ASP 页面出现错误 存储过程。基本上我想发送 1 个参数来覆盖我正在寻找的列 一个用于搜索词。例如纽约大学 imSchool。我对发送的数据以及记录集进行了数据检查。状态代码显示，每次我选择带有两个参数的 SQL 查询时，都会出现错误“对象关闭时不允许操作”。总是显示。 我尝试在“While Not rs.EOF”代码行打开该对象，但它出错了，但运气不佳。 我认为我的 SQLQuery 很糟糕，因为当我使用相同的输入在 MSSQL 中运行存储过程时，我每次都会得到一个返回表。 SQL Server 2008 R2 和经典 ASP。

这是我的带有 SQLQUERY 代码的 IF 语句（请记住第一个工作正常，并且数据是从数据库中选择的）

    SQLQuery = "Exec sp_vw_InternImport"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.CursorType = 3

    rs.Open SQLQuery, OBJdbConnection


    If filterColmn <> "" Then

    SQlQuery = "Exec sp_vw_InternImport_ColID @LookUpID=N'" + filterID + "'" + ", @LookUpCol=N'" + filterID + "'"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.CursorType = 3

    rs.Open SQLQuery, OBJdbConnection

    End If

这是我的存储过程代码

          SET ANSI_NULLS ON
            GO
            SET QUOTED_IDENTIFIER ON
             GO

           ALTER PROCEDURE [dbo].[sp_vw_InternImport_ColID]
            (
            @LookUpID nvarchar (255),
            @LookUpCol nvarchar (50)
            )

          AS 
       SET NOCOUNT ON
       BEGIN 

        IF @LookUpCol = 'imYear'
        SELECT * FROM v_InternImport WHERE imYear = @LookUpID

ELSE
IF @LookUpCol = 'imSchool'
SELECT * FROM v_InternImport WHERE imSchool = @LookUpID

ELSE
IF @LookUpCol = 'imDiscipline'
SELECT * FROM v_InternImport WHERE imDiscipline = @LookUpID

       IF @LookUpCol = 'imDegree'
       SELECT * FROM v_InternImport WHERE imDegree = @LookUpID
       END

Answer 1

直接将参数传递给存储过程时，不必“分配”参数。这样做可能会导致传递整个值（例如，@LookUpCol 将具有 @LookUpCol ='imYear' 的值），因此您的 SP 不会选择任何内容，并且您有空且关闭的记录集。

尝试使用这样的代码：

SQlQuery = "Exec sp_vw_InternImport_ColID '" & filterID & "', '" & filterID & "'"

Answer 2

您不能同时使用同一个对象两次（例如 rs），您必须将其命名为另一个名称，或者必须关闭它并重新开始。这应该有效：

SQLQuery = "Exec sp_vw_InternImport"
If filterColmn <> "" Then SQLQuery = "Exec sp_vw_InternImport_ColID @LookUpID=N'" + filterID + "'" + ", @LookUpCol=N'" + filterID + "'"

  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorType = 3
  rs.Open SQLQuery, OBJdbConnection
  rs.Close

或者在您的例如，如果您在继续下一个对象之前关闭第一个 rs 对象，这可能会有所帮助。

set rs = Nothing ...然后...set rs = server.createobject

像这样：

SQLQuery = "Exec sp_vw_InternImport"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.Open SQLQuery, OBJdbConnection

rs.Close ------ Close it before you re-open it

If filterColmn <> "" Then

SQlQuery = "Exec sp_vw_InternImport_ColID @LookUpID=N'" + filterID + "'" + ", @LookUpCol=N'" + filterID + "'"

rs.Open SQLQuery, OBJdbConnection
rs.Close ------ Always Close your Objects!

End If