用VB實現關閉所有數據庫對象

如果你在程序中使用了任何數據庫對象（DAO,RDO,或者ADO),在退出程序之前，你必須確認已經關閉掉了所有已經打開的記錄、數據庫和數據工作台（recordsets,databases,andworkspaces）。雖然退出程序時這些對象的指針都被自動施放了，但是如果你自己又不能確認是否真正地釋放了打開的數據庫對象，那麼就有可能數據庫連接沒有馬上被釋放掉，從而被這些對象所占用的內存就再也不能被操作系統再次分配。

----下面有一段放在Form_Unload事件（或者其他退出模塊中）中的一小段代碼例子，它演示了關閉所有打開的DAO工作台、數據庫和記錄並釋放了被這些對象占用的內存。當你退出FORM時，不論在有一個、100個甚至沒有數據庫連接時都可以使用下面代碼。

PrivateSubForm_Unload(CancelAsInteger)
　　
　　'關閉數據庫對象並且釋放內存
　　
　　OnErrorResumeNext
　　
　　DimwsAsWorkspace
　　DimdbAsDatabase
　　DimrsAsRecordset
　　
　　ForEachwsInWorkspaces
　　ForEachdbInws.Databases
　　ForEachrsIndb.Recordsets
　　rs.Close
　　Setrs=Nothing
　　Next
　　db.Close
　　Setdb=Nothing
　　Next
　　ws.Close
　　Setws=Nothing
　　Next
　　EndSub->