古风和服男神群像:用VB实现关闭所有数据库对象

来源：百度文库 编辑：偶看新闻 时间：2024/05/07 03:43:11

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

发布时间：2008-04-03 10:37:12  来源：编程爱好者网站  作者：编程爱好者网站  点击：332

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

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实现向远程数据库写入的问题 sql数据库如何发布啊?(用vb程序自动实现) vb如何实现调用数据库的功能 vb如何实现数据库查找工能？ 在VB中若要判断数据库库查找（FIND）数据是否成功，可通过访问记录集对象的什么属性实现？？ 在VB中若要判断数据库库查找（FIND）数据是否成功，可通过访问记录集对象的什么属性实现？？ 用VB编程,实现用按钮关闭QQ或者定时自动关闭QQ,怎么弄? 用VB连接数据库 (加急)ASP,NET中,用vb开发实现验证数据库的登陆界面,谁会?? 用VB跟SQL Server,如何实现将数据库中的记录存放在数组中 VB提示:对象关闭时 操作不被允许? 要求用VB实现 vb+access数据库编程中,对象变量什么时候用new,什么时候用set,这两个关键字到底有什么涵义 VB中怎样用程序实现数据库中字段的增减？ 怎么实现对数据库的查询（vb）？？ 在VB里如何实现数据库的动态处理 VB 里如何实现动态创建、删除ACCESS数据库 VB怎么样才能实现DataGrid查看数据库功能 VB如何实现SQL数据库备份与恢复? VB如何实现远程操作数据库？急，大侠帮忙 请问怎样用vb语言实现access数据库记录的拷贝？ vb中如何实现与数据库的动态链接!