♣

斑竹，帮帮忙！吃内存的问题，快疯掉了！

所属目录：Java | 类型：技术问答 | 时间：2007-05-21

问题：

我初学evb，用evb3。0写的读数据库的程序，很简单的操作，但是在程序运行时，他送占用内存不释放
在循环若干次后，内存被吃没了。就死机了。但我找不到错误在哪里，有些怀疑是不是我的evb runtime库有问题
我是在ppc 2003下运行，故从微软网上下了运行库。
麻烦各位，看看能不能帮帮小弟。

option explicit
private sub command1_click()
dim dbfilespec as string
dim conndb as adoce.connection
dim rs as adoce.recordset
dim recordcount as integer
dim arb1 as integer

dbfilespec = form1.text1.text
list1.clear

create a connection to the database
set conndb = createobject("adoce.connection.3.1")
conndb.connectionstring = "data source = " & dbfilespec
conndb.open

set rs = createobject("adoce.recordset.3.1")
rs.open "msystables", conndb, adopenkeyset, adlockoptimistic
recordcount = rs.recordcount
for arb1 = 0 to recordcount - 1
list1.additem rs.fields("tablename").value
rs.movenext
next
rs.close
set rs = nothing

set conndb = nothing

end sub

private sub command2_click()
timer1.enabled = true
end sub

private sub form_okclick()
app.end
end sub

private sub timer1_timer()
command1_click
end sub

单独执行command1_click结果正确,但会吃掉一部分内存,而不释放.这样timer循环下去内存占用回不断的增加,直到系统内存out.程序关闭后内存才回释放.不知是什么原因,斑竹,帮帮忙!!!!!急....

· 网友精彩回答：

处理 SSI 文件时出错