Ver Mensaje Individual
  #2  
Antiguo 19-07-2017
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Reputación: 21
gatosoft Va camino a la fama
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;//Try
 finally
   vDriverParams.Free;
 end; //Try


espero que te sirva
Responder Con Cita