conexion a Firebird

[ecfisa]

Hola.

Pone el TDataModule en Autocreate-forms y de esta forma te tiene que conectar. (Siempre que sean correctas la ruta y la contraseña)

Código Delphi [-]
...
implementation 
{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  IBDatabase1.DatabaseName:= RutaBdFb;
  IBDatabase1.LoginPrompt:= False;
  IBDatabase1.Params.Clear;
  IBDatabase1.Params.Add('user_name=sysdba');
  IBDatabase1.Params.Add('password=masterkey');
  try
    IBDatabase1.Open;
    IBTransaction1.DefaultDatabase:= IBDatabase1;
    IBTransaction1.Active:= True
  except
    raise Exception.Create('No se puede establecer la conexión con la base de datos');
    Application.Terminate
  end
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  if IBDatabase1.TestConnected then
    IBTransaction1.Commit
end;
end.

Saludos.