Para inicializar una base de datos paradox esto es lo que yo hago en tiempo de ejecución y sin usar Alias de la base de datos, es obvio que se requiere que el BDE esté instalado:
1. Crear una Archivo INI con el nombre de tu aplicacion (y en el mismo directorio) de esta forma:
Cita:
Aplicación = Menu.exe
Archivo INI = Menu.INI
|
2. Dentro del INI pones lo siguiente:
Código:
[Datos]
RutaRed=\HOST
RutaLocal=C:\Desarrollo\TDelphi\egostar\
Ruta=Tables\
Ruta PrivateDir=Private\
Ruta net=Network\
Servidor=SI
3. En un DataModule mete este código (en el evento OnCreate).
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
ruta,servidor,rutaprivate,rutanet,rutaRed,rutaLocal : string;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
rutaRed := readstring ('Datos', 'RutaRed', '');
rutaLocal := readstring ('Datos', 'RutaLocal', '');
servidor := readstring ('Datos', 'Servidor', '');
if uppercase (servidor) <> 'NO' then begin
ruta := rutaLocal + readstring ('Datos', 'Ruta', '');
rutanet := rutaLocal + readstring ('Datos', 'Ruta net', '');
rutaprivate := rutaLocal + readstring ('Datos', 'Ruta PrivateDir', '');
end
else begin
ruta := rutaRed + readstring ('Datos', 'Ruta', '');
rutanet := rutaRed + readstring ('Datos', 'Ruta net', '');
rutaprivate := rutaRed + readstring ('Datos', 'Ruta PrivateDir', '');
end;
finally
end;
with DataBase1 do begin
with Session1 do begin
NetFileDir := rutanet;
PrivateDir := rutaprivate;
end;
Params.Clear;
Params.Add('LOCAL SHARE=FALSE');
Params.Add('PATH=' + RUTA);
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE SCHEMA CACHE=TRUE');
Params.Add('ENABLE BCD=FALSE');
Connected := true;
end;
end;
Tal vez eso te solucione el problema inmediato, pero ten muy en cuenta lo que te comenta
[Al González] (Con acento
)
Salud OS