断开所有的数据连接

来源： 作者： 出处：巧巧读书 2006-09-23 进入讨论组

• 关 键 词：

　　如果在代码中使用了数据控件如 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保留地址 http://www.qqread.com/vb/a231245.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：断开拨号网络的连接

较新的文章：断开与Internet的连接