Jparra
07-08-2007, 00:26:17
Hola,
Necesito manejar una excepcion al tratar de conectarme a una Base de datos:
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.
Necesito manejar una excepcion al tratar de conectarme a una Base de datos:
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.