断开所有的数据连接

 

 

如果在代码中使用了数据控件如 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外来数据库
下一个：处理Select语句中的单引号