缺货存储器微软VBScript运行时错误800a0007
问题描述:
Microsoft VBScript运行错误 '800a0007'缺货存储器微软VBScript运行时错误800a0007
在对存储器的: 'TheDB.Execute'
page.asp,线232
数据库:Mysql
Public Sub SET_L(RAZA)
Flag=0
sel = "SELECT id,unit,pindate FROM tbl_users where id='" & RAZA & "' and pindate =NOW()-INTERVAL 1 DAY"
Set rs2 = TheDB.Execute(sel) <<--- line 232
If Not rs2.EOF = True Then
Flag=1
LSD=LSD+rs2("unit")
end if
End Sub
Public Sub SET_R(RAZA)
Flag=0
sel = "SELECT id,unit,pindate FROM tbl_users where id='" & RAZA & "' and pindate =NOW()-INTERVAL 1 DAY"
Set rs2 = TheDB.Execute(sel)
If Not rs2.EOF = True Then
RSD=RSD+rs2("unit")
end if
End Sub
无法找出原因...... :(
答
这可能是由于没有正确关闭记录集和连接对象并将它们的引用设置为空。确保每次使用这些对象时都这样做:
myRecordset.close
myConnection.close
set myRecordset = nothing
set myConnection = nothing
+1
我已经尝试过了,但没有运气 – MRRaja
这些过程在你的ASP页面中是如何使用的,它们是否在循环中运行?我们在问题中没有看到你如何使用它们,'RAZA'从哪里来?“,至少[mcve]会帮助我们更好地理解。 – Lankymart
雅我有1000000行和循环此代码 – MRRaja
哇,你想知道为什么你会得到'内存不足'错误?!所以你正在执行1000000个查询*(怀疑它会在它发生变化之前就已经到达了)*,而不是一个好主意。我仍然不明白为什么你需要一个循环,我回到我原来的问题,'RAZA'包含什么,它来自哪里? – Lankymart