對象關閉時不允許操作（對象未關閉）

Question

以下代碼正在生成該錯誤。

Set getList = Server.CreateObject("ADODB.Command") 
getList.ActiveConnection=EV_WikiConn 
getList.Prepared = true 
getList.commandtext= "declare @Lookup table(Id int identity(1, 1) , SongTitle nvarchar(512)) 
insert into @Lookup(SongTitle)select * from (values ('Deuce')) as x(a) 
select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , S.SID , S.TheTime 
from Albums A inner join Songs S on A.AID = S.AID inner join @Lookup L on L.SongTitle = S.SongTitle order by L.Id" 
set rsList = getList.execute 
while not rsList.eof ' Error is on this line here. 

我這裏補充

Set getList = Server.CreateObject("ADODB.Command") 
getList.ActiveConnection=EV_WikiConn 
getList.Prepared = true 
getList.commandtext= "declare @Lookup table(Id int identity(1, 1) , SongTitle nvarchar(512)) 
insert into @Lookup(SongTitle)select * from (values ('Deuce'),('Strutter'),('Parasite')) as x(a) 
select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , S.SID , S.TheTime 
from Albums A inner join Songs S on A.AID = S.AID inner join @Lookup L on L.SongTitle = S.SongTitle order by L.Id" 
set rsList = getList.execute 
If rsList.State <> adStateOpen Then 
While rsList.State <> adStateOpen 
Set rsList = rsList.NextRecordset 

rsList.movenext 
wend 
end if 

這段代碼這使得運行，但是，我只得到一個記錄，而不是10就是在實際的形式。所以，這是行不通的，但想顯示我迄今爲止所嘗試的。

Answer 1

好的，明白了。下面是在代碼中使用的代碼，以及代碼中的一些註釋，以顯示我所做的工作。

Set getList = Server.CreateObject("ADODB.Command") 
getList.ActiveConnection=EV_WikiConn 
getList.Prepared = true 
getList.commandtext = _ 
    "SET NOCOUNT ON " & _ 
    "declare @Lookup table(Id int identity(1, 1) , " & _ 
    "SongTitle nvarchar(512)) " & _ 
    "insert into @Lookup(SongTitle)select * from " & _ 
    "(values ('Hotter_Than_Hell'), ('Firehouse'), ('She'), " & _ 
    "('Parasite'), ('Nothin''_To_Lose')) as x(a) " & _ 
    "select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , " & _ 
    "S.SID , S.TheTime from Albums A inner join " & _ 
    "Songs S on A.AID = S.AID inner join " & _ 
    "@Lookup L on L.SongTitle = S.SongTitle order by L.Id" 

' the SET NOCOUNT ON, was added, but did not resolve the issue, I just left it in. 
' The next 3 lines is what fixed the issue. 
While rsList.State <> adStateOpen 
    Set rsList = rsList.NextRecordset 
Wend 
While Not rsList.EOF%> 

<%=rsList("SongTitle")%> 

<%rsList.movenext 
wend 
rsList.Close 
set rsList = nothing 

Answer 2

無論什麼樣的OP認爲這是

ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed

重複如果我們分析original code revision（忽略硬包將在VBScript中導致錯誤）

Set getList = Server.CreateObject("ADODB.Command") 
getList.ActiveConnection=EV_WikiConn 
getList.Prepared = true 
getList.commandtext= "declare @Lookup table(Id int identity(1, 1) , SongTitle nvarchar(512)) 
insert into @Lookup(SongTitle)select * from (values ('Deuce')) as x(a) 
select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , S.SID , S.TheTime 
from Albums A inner join Songs S on A.AID = S.AID inner join @Lookup L on L.SongTitle = S.SongTitle order by L.Id" 
set rsList = getList.execute 
while not rsList.eof ' Error is on this line here. 

你可以看到原來的問題是缺少

SET NOCOUNT ON; 

停止關閉ADODB.Recordset對象正在返回初始INSERT操作。

隨後的編輯OP使得混淆問題，在此之前添加SET NOCOUNT ON;將可以解決問題而不需要進一步的更改。

的next revision就是混淆開始（再次，忽略硬包將在VBScript中導致錯誤）

Set getList = Server.CreateObject("ADODB.Command") 
getList.ActiveConnection=EV_WikiConn 
getList.Prepared = true 
getList.commandtext= "declare @Lookup table(Id int identity(1, 1) , SongTitle nvarchar(512)) 
insert into @Lookup(SongTitle)select * from (values ('Deuce'),('Strutter'),('Parasite')) as x(a) 
select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , S.SID , S.TheTime 
from Albums A inner join Songs S on A.AID = S.AID inner join @Lookup L on L.SongTitle = S.SongTitle order by L.Id" 
set rsList = getList.execute 
If rsList.State <> adStateOpen Then 
While rsList.State <> adStateOpen 
Set rsList = rsList.NextRecordset 

rsList.movenext 
wend 
end if 

就讓我們仔細分析這部分

If rsList.State <> adStateOpen Then 
While rsList.State <> adStateOpen 
Set rsList = rsList.NextRecordset 

rsList.movenext 
wend 
end if 

首先If和While循環做同樣的事情接受While重複做它，直到條件得到滿足，使得If完全無關。 While循環檢查ADODB.Recordset的當前狀態，其中無SET NOCOUNT ON;返回爲adStateClosed（由於INSERT操作）。這是不錯，但由

while not rsList.eof 

改變While環路

While rsList.State <> adStateOpen 

的條件已經改變，While不再檢查rsList.EOF當我們歷數ADODB.Recordset這將是這種情況目的。但是，現在只是檢查.State的rsList，其中一旦調用.NextRecordset將退出循環，因爲已打開ADODB.Recordset對象已被返回。由於條件已滿足，循環只會運行一次，只會調用.MoveNext一次且只返回一條記錄。

因此，要總結使用

SET NOCOUNT ON; 

最初會否定這整個方案，但嘿"I don't understand the code"明顯。