Cerrar todos los TIBquery de una aplicacion

[mjjj]

Hola gente del foro, un problemita.

Tengo una aplicación que tiene alrededor de unos 150 formularios. En la mayoria de estos existen TIBQuery. Utilizo Delphi 2006

El problema es que se me quedo algun Query abierto, y cada vez que trato de compilar el programa me arroja el error de que el la existe la BD.

En el componente IBDataBase, el databasename lo tengo sin nada, ya que una vez que se ejecuta el programa se escoge la forma de como conectarse.

Lo que necesito, es que al crearse el Form principal (Form1), cheque todos los componentes de la aplicación, inclusive si estan en otro formulario, y en caso de que sea un TIBQuery, lo cierre.

Como puedo hacer esto.

Saludos

[manuc]

Hola mjjj,

Una solución podrías ser recorrer, con un bucle for, todos los formularios de tu aplicación y todos los componentes de cada formulario. Comprobar si es un tibQuery y cerrarlo en caso de que esté abierto.

Otra solución más simple puede ser esta:

Código Delphi [-]
IBDatabase1.CloseDataSets

Por otro lado, si cierras el componente de conexión, lo normal es que se destruyan todos los cursores abiertos en la base de datos.

Espero que te sirva.

Un saludo.