断开所有的数据连接

页面导航:首页 > 软件编程 > vb.net > 断开所有的数据连接

断开所有的数据连接

来源: 作者: 时间:2016-02-05 12:32 【

如果在代码中使用了数据控件如 DAO, RDO, 或 ADO, 在退出时应该关闭所有打开的 recordset, database,和 workspace 。 虽然对象能自动注销, 但是数据连接不会马上断开, 可能会导致一些

 

 

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

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <