Programación General > Visual Basic 6.0 e inferiores

 Como Elimianr Culquier Objeto Activo,

(1/1)

seba_m:
Hola a todos, alguien sabria decirme como puedo saber que objetos estan aun activos para poder eliminarlos antes de salir de la aplicación, o lo que seria mejor como eliminar cualquier objerto que este actuvo sin importar cual.

Gracias

cpmario:
Usa este código

--- Código: Text ---Sub UnloadAllForms()   Dim Frm As Integer   Frm = Forms.Count    Do While Frm > 0      Unload Forms(Frm - 1)      If Frm = Forms.Count Then Exit Do      Frm = Frm - 1   LoopEnd Sub   :comp:

seba_m:
Joya, pero pregunto, si algun recordset de algun formulario estaba activo o abierto, lo elimina también P?


GRacias

cpmario:
Cierra todo, pero si te quieres asegurar de cerrar todas bases de datos antes de cerrar ventanas usa esto:

--- Código: Text ---Sub CloseAllDatabases()    ' Close out db objects    ' and release all memory    '    On Error Resume Next    Dim wsObject As Workspace    Dim dbObject As Database    Dim rsObject As Recordset        For Each wsObject In Workspaces        For Each dbObject In wsObject.Databases            For Each rsObject In dbObject.Recordsets                rsObject.Close                Set rsObject = Nothing            Next            dbObject.Close            Set dbObject = Nothing        Next        wsObject.Close        Set wsObject = Nothing    Next End Sub  Lo uso con DAO, no sé si funciona con ADO.
 :comp:

seba_m:
Gracias, lo voy a probar con ADO

Navegación

[0] Índice de Mensajes