Cambiar MSG de Error al no conectarse a una base de datos

[ecfisa]

Hola.

Un ejemplo de como podrías implementarlo:

Código Delphi [-]
...

implementation

{$R *.dfm}

uses Unit2 {DataModule (dmConnect) };

procedure TForm1.btConnectClick(Sender: TObject);
const
   ERCONNECT = 'No se pudo conectar con la base de datos.' + #10 +
              'Consulte con el administrador del programa.';
begin

  // Se supone a dmConnect ya creado

  dmConnect.IBDatabase.Connected    := False;
  dmConnect.IBDatabase.DatabaseName := 'NOMBRE_DE_TU_BD';
  dmConnect.IBDatabase.Params.Clear;
  dmConnect.IBDatabase.LoginPrompt  := False;
  dmConnect.IBDatabase.Params.Add('user_name=' + edUserName.Text);
  dmConnect.IBDatabase.Params.Add('password='  + edPassword.Text);
  try
    dmConnect.IBDatabase.Open;
  except
    raise Exception.Create(ERCONNECT);
  end;
end;

El resultado:


Saludos

[mRoman]

Ok. Gracias eficsa por contestar.

Lo aplicaré...

Muchas gracias,