SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: seba_m en Miércoles 25 de Enero de 2006, 19:21

Título: Como Elimianr Culquier Objeto Activo,
Publicado por: seba_m en Miércoles 25 de Enero de 2006, 19:21
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
Título: Re: Como Elimianr Culquier Objeto Activo,
Publicado por: cpmario en Miércoles 25 de Enero de 2006, 19:54
Usa este código
Código: Text
  1. Sub UnloadAllForms()
  2.    Dim Frm As Integer
  3.    Frm = Forms.Count
  4.  
  5.    Do While Frm > 0
  6.       Unload Forms(Frm - 1)
  7.       If Frm = Forms.Count Then Exit Do
  8.       Frm = Frm - 1
  9.    Loop
  10. End Sub
  11.  
  12.  
:comp:
Título: Re: Como Elimianr Culquier Objeto Activo,
Publicado por: seba_m en Jueves 26 de Enero de 2006, 18:09
Joya, pero pregunto, si algun recordset de algun formulario estaba activo o abierto, lo elimina también P?


GRacias
Título: Re: Como Elimianr Culquier Objeto Activo,
Publicado por: cpmario en Jueves 26 de Enero de 2006, 18:35
Cierra todo, pero si te quieres asegurar de cerrar todas bases de datos antes de cerrar ventanas usa esto:
Código: Text
  1. Sub CloseAllDatabases()
  2.     ' Close out db objects
  3.     ' and release all memory    '
  4.     On Error Resume Next
  5.     Dim wsObject As Workspace
  6.     Dim dbObject As Database
  7.     Dim rsObject As Recordset
  8.    
  9.     For Each wsObject In Workspaces
  10.         For Each dbObject In wsObject.Databases
  11.             For Each rsObject In dbObject.Recordsets
  12.                 rsObject.Close
  13.                 Set rsObject = Nothing
  14.             Next
  15.             dbObject.Close
  16.             Set dbObject = Nothing
  17.         Next
  18.         wsObject.Close
  19.         Set wsObject = Nothing
  20.     Next
  21.  End Sub
  22.  
  23.  
Lo uso con DAO, no sé si funciona con ADO.
 :comp:
Título: Re: Como Elimianr Culquier Objeto Activo,
Publicado por: seba_m en Viernes 27 de Enero de 2006, 19:28
Gracias, lo voy a probar con ADO