Foros Club Delphi - Manejo de una excepcion EDBEngineError

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Manejo de una excepcion EDBEngineError (https://www.clubdelphi.com/foros/showthread.php?t=46697)

Manejo de una excepcion EDBEngineError

Hola,

Necesito manejar una excepcion al tratar de conectarme a una Base de datos:

Código:

try

    DataModule1.PixelSQLbase.Connected := True;

    Result := True;

except

  Conectar := False;  

 On EDBEngineError do

     Begin

       DataModule1.PixelSQLbase.Connected := False;

       ShowMessage('ERROR 1:');

     End;

 On EDatabaseError do ShowMessage('ERROR');

     End;

end;

Pero este codigo aun me :mad:"EXPLOTA":mad: y cuando vuelvo a ejecutar el proyecto si me tira el mensaje que puse.

He inteentado encontrar un Haddle que pueda funcionar pero no he tenido suerte.

Esto puede deberse a que ejecutas el proyecto desde el IDE y tienes activada la opción "Stop on Delphi Exceptions" del cuadro Debugger Options (Ficha language exceptions).

Si tal es el caso, no debes preocuparte, porque al correr el programa fuera del ide, sólo se verá tu mensaje.

// Saludos