VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 关闭所有的数据连接
发表评论(0)作者:, 平台:, 阅读:15943, 日期:2000-03-12
关闭所有的数据连接

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