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.