如何在数据控件断开所有的数据连接

文章作者 100test 发表时间 2007:11:14 12:59:11
来源 100Test.Com百考试题网

如果在代码中使用了数据控件如 dao， rdo， 或 ado， 在退出时应该关闭所有打开的 recordset， database，和 workspace 。 虽然对象能自动注销， 但是数据连接不会马上断开， 可能会导致一些内存不能被系统重新分配。

　　下面的代码可以关闭所有打开的 dao workspace， 并释放所占的内存。

private sub form_unload(cancel as integer)
on error resume next
’
dim ws as workspace
dim db as database
dim rs as recordset
’
for each ws in workspaces
for each db in ws.databases
for each rs in db.recordsets
rs.close
set rs = nothing
next
db.close
set db = nothing
next
ws.close
set ws = nothing
next
’
end sub