Pérdida conexion adoconnection

[elrodrix]

Empezado por Neftali

La captura de errores de hacer de la forma estandard (try..except); En las capturas tendrás que averiguar los errores pertenecientes a ADO/MySQL (para ello puedes utilizar la clases de la excepción, ya que las de ADO son EOLEException) y en ese caso derivar el tratamiento a un procedimiento para que dependiendo del código de error (que te proveen las EOLEException) sepas cueles son por problemas de conexión del resto de errores.

Muchas gracias.

Trato de hacer algo asi, en el evento BeforeOpen de un AdoStoredProc:

Código Delphi [-]
procedure TDM1.SPoffconsulta1BeforeOpen(DataSet: TDataSet);
begin
  try
            AdoConnection1.Connected:=True;
          except
            on E: Exception do
              begin
                ShowMessage(E.ClassName + ' Ocurrio un error : ' + E.Message);
              end;
          end;
end;

Pero no consigo ningun resultado. Sigue enviando mensajes de error MYSQL



Seguire investigando y probando. Gracias y saludos

[elrodrix]

Listo, pude solucionar este pequeño problema, agregando un TApplicationEvents en el Form Principal y con el siguiente codigo en el evento On Exception

Código Delphi [-]
//procedimiento para capturar las fallas en la perdida de conexion de la base de datos
//agregar ComObj en uses del FORM
procedure TFMain.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
            DM1.ADOConnection1.Close;
          except;
          end;
          DM1.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;

Espero que les sirva. Gracias y Saludos