Pregunta: | 1902 - COMO CERRAR LAS BASES DE DATOS AL FINALIZAR LA APLICACION |
Autor: | Xavi |
Como puedo cerrar todas las bases de datos al finalizar mi aplicación. |
Respuesta: | Xavi |
Este código lo he sacado de una página de Internet. Si estas usando objetos de acceso a datos tales como (DAO, RDO, o ADO), debes asegurarte de cerrarlos y destruirlos antes de abandonar tu aplicación. Supuestamente todos los apuntadores a estos objetos son destruidos por el sistema operativo una vez que termine tu aplicación, sin embargo, esto no ocurre inmediatamente y la memoria usada por ellos queda bloqueada, de manera que Windows no podrá reasignarla. Evita este inconveniente con el siguiente código que puedes poner en el evento Form_Unload: Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Dim ws As Workspace, Db As Database, 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 Espero que te sirva. |