Unload 窗体后怎么样释放内存空间
我的程序里面的一个窗体里有一个adodc和datagrid控件,在执行查询后,会占用很大的内存。问,在Unload 窗体后怎么样释放该窗体内存空间。
我已经试了adodc.recordset.close 和set datagrid.datasorce=nothing了,但是没有效果。
请大家帮忙解决。。
我已经试了adodc.recordset.close 和set datagrid.datasorce=nothing了,但是没有效果。
请大家帮忙解决。。
...全文
请发表友善的回复…
发表回复
blueboy123 2003-04-10
- 打赏
- 举报
vb好像不支持adodc使用set adodc.recordset=nothing;;但是支持adodb的recordset的
set Rs=nothing。
我试着使用adodb,因为需要和datagrid绑定,所有使用了如下代码:
strSql = "select * from edict where eid<2000"
Set Myconn = New ADODB.Connection
Myconn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False”
Set myRS = New ADODB.Recordset
myRS.Open strSql, Myconn, adOpenKeyset, adLockOptimistic, adCmdTable
Set DataGrid2.DataSource = myRS
DataGrid2.Refresh
但是查询时它说from语句出错,如果使用adCmdUnknown则查询有结果,但是不能绑定datagrid。
请帮忙。。。
set Rs=nothing。
我试着使用adodb,因为需要和datagrid绑定,所有使用了如下代码:
strSql = "select * from edict where eid<2000"
Set Myconn = New ADODB.Connection
Myconn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False”
Set myRS = New ADODB.Recordset
myRS.Open strSql, Myconn, adOpenKeyset, adLockOptimistic, adCmdTable
Set DataGrid2.DataSource = myRS
DataGrid2.Refresh
但是查询时它说from语句出错,如果使用adCmdUnknown则查询有结果,但是不能绑定datagrid。
请帮忙。。。
s6w6k 2003-04-09
- 打赏
- 举报
Private Sub Form_Unload(Cancel As Integer)
adodc1.recordset.close
set adodc1.recordset=nothing
rs.close
set Rs=nothing
End Sub
把资源释放!
adodc1.recordset.close
set adodc1.recordset=nothing
rs.close
set Rs=nothing
End Sub
把资源释放!
dslbat 2003-04-09
- 打赏
- 举报
Private Sub Form_Unload(Cancel As Integer)
adodc1.recordset.close
set adodc1.recordset=nothing
adodc1.Enabled =False
End Sub
adodc1.recordset.close
set adodc1.recordset=nothing
adodc1.Enabled =False
End Sub
tianaz 2003-04-09
- 打赏
- 举报
adodc1.recordset.close
set adodc1.recordset=nothing
adodc1.close
end '一定可以的。
set adodc1.recordset=nothing
adodc1.close
end '一定可以的。
chenyu5188 2003-04-08
- 打赏
- 举报
Private Sub Form_Unload(Cancel As Integer)
adodc1.recordset.close
set adodc1.recordset=nothing
End Sub
adodc1.recordset.close
set adodc1.recordset=nothing
End Sub
jeansure 2003-04-08
- 打赏
- 举报
是不是还要 unload form
rainstormmaster 2003-04-08
- 打赏
- 举报
我想应该是记录集占用了大量的内存,这样吧:
adodc.recordset.close
set adodc.recordset=nothing
adodc.recordset.close
set adodc.recordset=nothing
csdnbanqiliao 2003-04-08
- 打赏
- 举报
我也想知道 waiting....
renjunjun 2003-04-08
- 打赏
- 举报
我这样想,你试试吧!
renjunjun 2003-04-08
- 打赏
- 举报
set Form=nothing
饮水需思源 2003-04-08
- 打赏
- 举报
Private Sub Form_Unload(Cancel As Integer)
Set adodc.recordset = Nothing
Set form = Nothing
End Sub
Set adodc.recordset = Nothing
Set form = Nothing
End Sub
Xait9525 2003-04-08
- 打赏
- 举报
up
csdnbanqiliao 2003-04-08
- 打赏
- 举报
有FREE函数吗?
佛的光辉 2003-04-08
- 打赏
- 举报
set Rs=nothing
lihonggen0 2003-04-08
- 打赏
- 举报
set Rs=nothing
把资源释放!
把资源释放!
hjb111 2003-04-08
- 打赏
- 举报
我也出了这样的问题!
rainstormmaster 2003-04-08
- 打赏
- 举报
不一定要unload form,随便定义一个函数即可