VB中关闭所有的数据连接

跳转到页

世界如此多姿，发展如此迅速，窥一斑未必还能知全豹。但正如万花筒一样，每一个管窥都色彩斑斓。

本文对应知识领域

VB中关闭所有的数据连接
作者：未知申领版权
2010年11月14日共有 833 次访问【添加到收藏夹】【我要附加题目】

受欢迎度：

    关闭所有的数据连接

    如果在代码中使用了数据控件如 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做定时断线程序 VisualBasic中的界面设计原则和编程技巧 VB6.0与Windows API 间的呼叫技巧制作可以自动隐藏的弹出式菜单 ListBox中的字符串超长显示的解决方法 VB中的Unicode 和 Ansi 格式优化程序显示速度 Visual Basic 产生渐层的 Form 背景用VB实现客户——服务器（TCP/IP) 用VB制作注册软件的方法

题目筛选器

日期：
类型：
状态：
得分：	<= 分
分类：
作者：
职业：
关键字：
搜索