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

核心提示：如果在代码中使用了数据控件如DAO，RDO，如何在数据控件断开所有的数据连接，或ADO，在退出时应该关闭所有打开的recordset，可能会导致一些内存不能被系统重新分配，下面的代码可以关闭所有打开的DAOworkspace，database，和workspace

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

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

PRivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext
'
DimwsAsWorkspace
DimdbAsDatabase
DimrsAsRecordset
'
ForEachwsInWorkspaces
ForEachdbInws.Databases
ForEachrsIndb.Recordsets
rs.Close
Setrs=Nothing
Next
db.Close
Setdb=Nothing
Next
ws.Close
Setws=Nothing
Next
'
EndSub->