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

2018-06-17 17:15:21来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VisualBasic2005中的My功能

下一篇:多用户应用程序中应注意的其它问题(2)--多客户环境下VB数据库编