关闭所有的数据连接

[ 来源: | 作者: | 时间:2007-06-26 | 收藏 | 推荐 ] 【大中小】

广告位出租

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

（阅读次数：）

广告位出租

上一篇：VB应用小集----访问VB外来数据库下一篇：锁住数据库中的表

网友评论

[以下评论为网友观点，不代表本站。请自觉遵守互联网相关政策法规，所有连带责任均有评论者自负。]

其它同级分类：

关闭所有的数据连接

网友评论

推荐文章

热门文章