En Bdatos.ini
Cita:
[BD]
path="192.168.1.34:C:\Maestros1\MAESTRO.IB"
|
En Delphi:
Código Delphi
[-]procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
BaseDeDatos: String;
ElIniFile: TIniFile;
begin
ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
BasedeDatos := ElIniFile.ReadString('BD','Path','');
If BasedeDatos = '' then
ShowMessage('Error al cargar Base de Datos') else
ibdatabase1.DatabaseName:=BasedeDatos; ibtablaclientes.Active:=true;
end;
end.
En propiedades del Database1
en Dabatabasename=C:\Maestros1\Maestro.ib