缺貨存儲器微軟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

回答

相關問題