Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   mantener vivos los datos de un TAdoQuery (https://www.clubdelphi.com/foros/showthread.php?t=84749)

DarkBlue 30-11-2013 00:35:21

mantener vivos los datos de un TAdoQuery
 
Hola companeros me he dado cuenta que si mantienes abierta una conexion (tadoconetion) eventualmente el tiempo de vida de la conexion expirara(aun no se cuanto tiempo tengo de vida de conexion). Para evitar este problema intente cerrar la conexion una ves ejecutando la consulta pero los datos de la query se borran y necesito mostrarlos en un grid(se borran del grid de igual manera).

PREGUNTA

que puedo hacer para evitar este problema ?

muchas gracias comunidad les deseo un buen dia

ecfisa 30-11-2013 17:54:13

Hola DarkBlue.

No uso ADO para mis desarrollos por lo que no se me ha presentado una situación similar. Pero según leo de lo que comentas, pareciera que ya sea por fallos de comunicación, energía, tiempo de inactividad, etc en ocasiones, el TADOConnection pierde la conexión con el servidor.

Se me ocurren dos opciones pero lamento no tener la experiencia necesaria con ADO como para asegurar que funcionen, así que vas a tener que probarlas...

Usar el evento AfterDisconnect:
Código Delphi [-]
procedure TForm1.ADOConnection1AfterDisconnect(Sender: TObject);
begin
  ADOConnection1.Connected := True;
end;

Usr un TTimer (esta solución sería mas pobre ya que realiza pooling cada un minuto):
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000*60; 
  Timer1.Enabled := True;
end;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with ADOConnection1 do
    if not Connected then
      Open;
end;

Saludos :)

DarkBlue 05-12-2013 19:24:21

excelente
 
hola estimado amigo muchas gracias por responder me has dado mas ideas, en estos momentos estare probando tu solucion y te contare los resultados:D


La franja horaria es GMT +2. Ahora son las 04:45:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi