[分享]关闭所有的数据连接

huangqinyong

关闭所有的数据连接

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

赵国辉

关闭所有的数据连接
占位学习

kippon

学习。收藏。谢谢。。。一