Question

如何用VB实现关闭所有数据库对象

Answer 1

如果你在程序中使用了任何数据库对象（DAO, RDO, 或者 ADO), 在退出程序之前，你必须确认已经关闭掉了所有已经打开的记录、数据库和数据工作台（recordsets, databases, and workspaces）。虽然退出程序时这些对象的指针都被自动施放了，但是如果你自己又不能确认是否真正地释放了打开的数据库对象，那么就有可能数据库连接没有马上被释放掉，从而被这些对象所占用的内存就再也不能被操作系统再次分配。 　　---- 下面有一段放在Form_Unload 事件（或者其他退出模块中）中的一小段代码例子，它演示了关闭所有打开的DAO 工作台、数据库和记录并释放了被这些对象占用的内存。当你退出FORM时，不论在有一个、100个甚至没有数据库连接时都可以使用下面代码。 　　Private Sub Form_Unload(Cancel As Integer) 　　' 关闭数据库对象并且释放内存