打印本文   关闭窗口

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

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:44:56  文章录入：杜斌  责任编辑：杜斌

如果在代码中使用了数据控件如 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

打印本文   关闭窗口