|
Aquí va de nuevo
Prueba con este código, a mi me funciona a las mil maravillas. Lo incluyes en tu Datamodule Cita:
....
resourcestring
errConnectBD = 'Error conectando con la base de datos.'#13#13'Mesaje de error: '#13'%s'
var
DataBases: TDataBases;
implementation
{$R *.dfm}
function TDataBases.Connect: boolean;
begin
Result := true;
// Si estamos conectados, nos desconectamos
if IBDatabase1.Connected then
IBDatabase1.Connected := false;
try
IBDatabase1.Connected := true;
except
on E: Exception do
begin
ShowMessage(Format(errConnectBD, [E.Message]));
//el E.Message contiene el Mensaje de Error
Result := false;
end;
end;
end;
para llamar la función lo puedes hacer en el archivo .dpr de tu proyecto despues que se crea el formulario para el datamodule de la siguiente manera:
Cita:
if not Databases.Connect then
begin
FreeAndNil(Databases);
Exit;
end;
Espero que te funcione y Suerte.
|