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

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