Perdida de Conexión con TADOConnection

[adripugliesso]

Buenos días, tengo una aplicación que se conecta a una base de datos SQL Server 2005 a través del un componente TADOConnection, el problema es que cuando la aplicación por algún motivo pierde la conexión con la Base de Datos (problemas de LAN, etc) empieza a tirar "Error en Vinculo de Comunicación" y no para hasta que cierro la aplicación y la vuelvo a abrir. Hay alguna manera de trabajar sobre ese error, evitar ese mensaje, que avise que no tiene conexión desde la aplicación y poder aguardar a que la conexión vuelva??

[[AgustinOrtu]]

Revisa la propiedad KeepConnection y los eventos OnDisconnect, BeforeDisconnect, AfterDisconnect y BeforeConnect

[adripugliesso]

No lo puedo hacer funcionar con esos eventos.-

[Casimiro Notevi]

Empezado por adripugliesso

No lo puedo hacer funcionar con esos eventos.-

¿Por qué?



.

[adripugliesso]

Estuve haciendo pruebas y cuando se pierde la conexión TCP del componente TADOConnetion la aplicación tira el error y se traba, use los eventos OnDisconnect, BeforeDisconnect, AfterDisconnect y BeforeConnect pero no hacen nada cuando se corta la conexión aparece este error: "Proveedor de TCP: Se ha forzado la interrupción de una conexión existente por el host remoto" y se traba todo.-

[ecfisa]

Hola adripugliesso.

Sin saber como está configurada la conexión y ni siquiera una línea de código, es muy difícil poder sugerirte algo.

Saludos

[adripugliesso]

En una LAN común, una de las PC tiene el SQL server 2005, entonces desde la otra la accedo con una aplicación básica 1 form con un TADOConnection, y una consulta con un TADOQuery a la PC con el SQL, conecto el ADOConnection en el evento ONSHOW del form y a través de un TButtom actualizo el TADOQuery haciendo un (CLOSE/OPEN), teniendo el cable de red conectado anda todo perfecto, pero cuando saco el cable de red de la PC y presiono el TButton para actualizar el TADOQuery tira el siguiente error: "Proveedor TCP: Se ha forzado la interrupción de una conexión existente por el host remoto" y se traba la aplicación. Lo que yo quiero es evitar eso y que simplemente me muestre un Showmessage diciendo que se perdió conexión con la DB y que vuelva a intentar mas tarde y luego al conectarle el cable de red el sistema siga funcionando normalmente.-

[adripugliesso]

SOLUCIONADO:

Agrege un TApplicationEvents y en USES ComObj;

y luego en el evento OnException del TApplicationEvents

Código Delphi [-]
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
var
  EO:EOLEException;
begin
  if E is EOLEException then
  begin
    EO:=EOLEException(E);
    if (EO.ErrorCode = -2147467259) then
      //error de conexion (disconnected)
      begin
        try
          try
            ADOConnection1.Close;
          except;
          end;
          ADOConnection1.Open;
          ShowMessage('FALLA EN LA CONEXION A LA BASE DE DATOS - Reestableciendo, vuelva a intentar!');
        except
          on E:Exception do
            ShowMessageFmt('FALLA EN LA CONEXION A LA BASE DE DATOS!.  '
            + 'Por favor, intente luego!.'#13'Error message: %s', [E.Message]);
          end;
      end
      else
        ShowMessage(E.Message + ' ' + IntToStr(EO.ErrorCode));
    end
  else
    ShowMessage(E.ClassName + #13 + E.Message);

end;

[Casimiro Notevi]

Muy bien, pero una curiosidad: ¿por qué le quitas el cable de red?

[adripugliesso]

para simular cortes de red y probar de esta manera si la aplicación funciona ante un corte.-