关闭所有连接

时　间:2008-04-30 08:51:35
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:关闭所有连接
正　文:

关闭所有的数据连接
    如果在代码中使用了数据控件如 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