原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:7 来源：未知

---

如果在代码中使用了数据控件如 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 神童教程第二章第五节——单选与复选控件 • VB 神童教程第二章第八节——组合框控件 • 算法从哪学起（VB篇） • 使VB的网格控件具有输入功能 • 在VB中运行Microsoft Access报表的好方法 • 如何取得中英混合字符串的长度 • 从DAO转换到ADO • 获取鼠标在屏幕上的位置 • (空字串)、Null、Empty、与 Nothing 的区别 • ADO控件和DATA控件的冲突（不能共存）的解决

• 数据库(拷贝或移动列表框或组合框中的内容) • 在VB中引用.dbf及索引文件 • 在VB中直接用ODBC API访问数据库 • 如何用VB访问外来数据库 • VB 神童教程第二章第十五节——窗体 • VB 神童教程第四章第二节——综合示例七 • VB 编程经验点滴 • VB6中用DataReport做报表 • 一个简单例子(使用数据控件控制数据库)---V • ADO简介

---

本文章所属分类：首页 → VB