不确定这是否是问题所在,但可能并非所有记录集和连接都始终关闭......当我们过去遇到类似问题时,我们最终得到了以下例程......(请注意,这只是一个显示片段一个记录集关闭,实际过程实际上会检查 15 个不同的记录集,看看它们是否需要关闭.. )。
然后 总是在页面末尾,重定向之前,内部错误处理等调用modCloseObjects()程序...
' subroutine will close and set the objects to Nothing. '
' Close Recordsets and then the Connection '
sub modCloseObjects()
'Close the record sets one by one '
If ucase(TypeName(oRS)) = "RECORDSET" then
if oRS.state <> adStateClosed then
oRS.close
Set oRS = Nothing
end if
end if
' if you have other recordSet objects, add them to the rourtine here: '
' Close the connection '
If ucase(TypeName(objConn)) = "CONNECTION" then
if objConn.state <> adStateClosed then
objConn.close
Set objConn = Nothing
end if
end if
end sub
如果您没有 adovbs.inc ,则还需要以下常量:
Const adStateClosed = &H00000000