缺货存储器微软VBScript运行时错误800a0007

-5

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

无法找出原因...... :(

来源

2017-03-17 MRRaja

这些过程在你的ASP页面中是如何使用的，它们是否在循环中运行？我们在问题中没有看到你如何使用它们，'RAZA'从哪里来？“，至少[mcve]会帮助我们更好地理解。 – Lankymart

雅我有1000000行和循环此代码 – MRRaja

哇，你想知道为什么你会得到'内存不足'错误？！所以你正在执行1000000个查询*（怀疑它会在它发生变化之前就已经到达了）*，而不是一个好主意。我仍然不明白为什么你需要一个循环，我回到我原来的问题，'RAZA'包含什么，它来自哪里？ – Lankymart

这可能是由于没有正确关闭记录集和连接对象并将它们的引用设置为空。确保每次使用这些对象时都这样做：

myRecordset.close 
myConnection.close 
set myRecordset = nothing 
set myConnection = nothing

来源

2017-03-20 02:37:35

我已经尝试过了，但没有运气 – MRRaja

缺货存储器微软VBScript运行时错误800a0007

回答

相关问题