63.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

关闭程序中所有创建的数据库连接。   
    
    你编过数据库应用程序吗？无论你是用DAO、 RDO还是ADO，在你退出程序时，你必须写代码将你所创建并打开操作的Recordset、Database和Workspace，否则，数据库连接不会马上关闭，你的数据可能会丢失，连接所占用的内存再也不会被释放了(除非Restart)。
如果你在工程中打开多个数据库的连接，那可能个每一个连接写关闭代码是一件很头疼的事，甚至会遗漏某些连接。我们还是利用VB中对象的优势，只需几行语句，就可以将程序中所打开的所有数据库连接对象全部关闭并释放它们所占用的内存--无论你是打开了1000个连接，还是一个都没有。
下面是代码：
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
你可以将代码放在Form的Unload事件中，或是其它一些终止程序的模块中。