Recuerdo cuando trabajé el tema de paradox... hace unos 10 años, que teniamos un solo programa para acceder a diferentes ambientes de la BD (Desarrollo, Calidad y Producción). La base de datos se enconraba en un "servidor" (carpetas compartidas)
Al iniciar se modificaba la variable Session.ProvateDir
y se cambiaba un parametro del
DatabaseEngine via codigo: 'NET DIR'...
el driver es uno solo y pueden ser diferentes alias...
Tengo en la memoria(usb) este fragmento de codigo:
Código Delphi
[-]var
vDriverParams: TStringList;
....
Try
Session.PrivateDir := 'Ruta local (caché)'
Except
end;
vDriverParams := TStringList.Create;
try
Try
if pLimpiar then
vDriverParams.Add('NET DIR=')
else
vDriverParams.Add('NET DIR='+vRutaDB);
Session.ModifyDriver('PARADOX',vDriverParams);
Session.SaveConfigFile;
Except
Result := 0;
end; finally
vDriverParams.Free;
end;
espero que te sirva