如何在数据控件断开所有的数据连接
如果在代码中使用了数据控件如DAO，RDO，或ADO，在退出时应该关闭所有打开的recordset，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->
下面的代码可以关闭所有打开的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->
- 上一篇：如何用VB访问外来数据库
- 下一篇：Excel、Access、VB的结合应用
精彩图集
精彩文章