Cerrar conexión al cerrar formulario

[arantzal]

Buenas, tengo un problema con las conexiones.

Me han pasado un código que hace lo siguiente:

En el show de un formulario:

//crea el TADOCOnnection
Copia:= TAdoconnection.create(nil);
copia.connectionstring:= cadconremota;
copia.loginprompt:= false;
 
//pasa las conexiones a los ADOQuerys
QProducto.connection:= copia;
QRela.connection:= copia;
 
//los abre
 
QProducto.open;
QRela.open;

Lo que no consigo es cerrar la conexión.

En el close del formulario lo he intentado con cerrando la conexión (copia), cerrando los AdoQuerys y nada.... No se cierra hasta que no cierro la aplicación y necesito que se cierre al cerrar el formulario.

Alguna idea????

Saludos.
Gracias.

[vtdeleon]

No se cierra hasta que no cierro la aplicación...

y necesito que se cierre al cerrar el formulario.

Eeh? Cómo?

Por decir algo..., utiliza el evento OnCloseQuery.

[luisgutierrezb]

y si pruebas despues de cerrar la conexion, hacerla "nil"?

[arantzal]

Buenas,

lo que me pasa es que yo compruebo las conexiones abiertas con:

select HostName, program_name, net_library, login_time, last_batch from master.dbo.SysProcesses where Program_name = 'Productos'

Y me gustaría cerrarlas en los close de los formularios.
Lo he intentado haciendo close de la connection y nada.

Alguna idea?

Saludos y gracias.

[vtdeleon]

Saludod

No te funciona:
Adoconnection.Close;
ó
AdoQuery1.close
ó
AdoTable1.Close
?????????

No me queda clara tu duda aun. Pon algo de código, mas detalles.

[arantzal]

Buenas,
lo que me pasa es que no consigo controlar el cierre de las conexiones.

En el vento onclose del formulario pongo:

copia.free;

y no me cierra la conexión.

Alguna idea?

Saludos