首页 > > 程序设计 > VB >

如何在数据控件断开所有的数据连接

2008-02-23 06:55:06来源：互联网阅读 ()

如果在代码中使用了数据控件如 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访问外来数据库
下一篇：关于数据报表的打印设置

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有