经典ASP错误:关闭对象时不允许操作

Question

我已经对这个问题的一些其他回答进行了巡航和实施,但我仍然没有运气.我仍然得到错误.

    If ((bReport And bIsDate And CheckPermissions("lotsales")) Or Request.QueryString("report")) Then
    OpenDB
    Dim oRs, sSQL, sSQL2, iCancellations, iSales, sDate, sInitDate, sEndDate, iPhaseID, iPhaseNumber, rowCount

    sInitDate = Request("startDate")
    sEndDate = Request("endDate")
    sSQL = "sp_get_lot_sales_test '" & sInitDate & "', '" & sEndDate & "', " & sPhase & ", '" & sReportView & "'"

    'response.write vbNewLine & "<!-- sql: " & sSQL & "-->" & vbNewLine
    'response.write sSQL
    'response.Flush
    Set oRs = ExecuteCommand(sSQL,1) 
End If

然后是错误发生的地方 -

If (oRs.EOF) Then <-- fails here
       Response.Write("<TR><TD ALIGN=""center"">There is no data to report on!</TD></TR>")
    Else
        Do While Not oRs.EOF

作为最后的手段,我将回到存储过程并解构它以确保一切都很好.有没有人知道为什么我可能会收到错误？我不会在任何地方发出任何关闭.

这是ExecuteCommand函数 -

Function ExecuteCommand(s,i)
    On Error Resume Next
    Set ExecuteCommand = oDBc.Execute(s, , i)
End Function

Answer 1

这可能是旧的,但我经常遇到该错误(当对象关闭时不允许操作).

我所做的是在存储过程中,我添加了以下内容:

设置NOCOUNT ON

设置ANSI_WARNINGS OFF

在程序中AS的正下方.

这就是我所做的一切,问题就消失了.

Answer 2

我正在为一个客户端维护一些旧的经典 ASP 代码，这些代码是我们从以前的开发人员那里接过来的，这个错误让我疯狂了 4 个小时。

我终于在关联的 SQL 存储过程中发现了一些 PRINT 语句，它们用于故障排除或检查值，但实际上并不返回行，但它们导致此操作失败：

Set cnContentDB = Server.CreateObject("ADODB.Connection")
cnContentDB2.Open sString

sSQL = "EXEC YourStoredProc"

Set oRS2 = Server.CreateObject("ADODB.Recordset")
oRS2.Open sSQL, cnContentDB

if not oR2.EOF then   'THIS WAS GIVING THE ERROR,
                      'EVEN THOUGH THE STORED PROC ALWAYS RETURNS RECORDS

我删除了 Print 语句，错误就消失了。