Manejar mas de una conexion con Paradox

[[egostar]]

Empezado por Coco_jac

Hola Lepe, mira la configuracion lo tengo en un datamodulo, mira hize una pruaba antes de eso de cambiar el alias en tiempo de ejecucion pero me salia error como si no refrescara la nueva ruta, luego tenia que cerrar y volver a ejecutar para ver recien los cambios, ya que la ruta lo guardo en un INI, y los actualizo ahi mismo. y los vuelvo a leer.
NO se tal vez hice algo incorrecto.

Espero sus comentarios

Si estas usando el proceso del articulo "Paradox en Red", estas usando archivos INI con la siguiente estructura

[Datos]
RutaRed = \\MOVIL\
RutaLocal = D:\DESARROLLO\SIH\
Ruta = Tables
Ruta PrivateDir = SIHPriv
Ruta net = SIHNet
Servidor = SI

En el DataModule yo uso lo siguiente:

rutaRed := readstring ('Datos', 'RutaRed', '');
rutaLocal := readstring ('Datos', 'RutaLocal', '');
servidor := readstring ('Datos', 'Servidor', '');

Si se ejecuta el programa en el mismo servidor uso esto:

ruta := rutaLocal + readstring ('Datos', 'Ruta', '');
rutanet := rutaLocal + readstring ('Datos', 'Ruta net', '');
rutaprivate := rutaLocal + readstring ('Datos', 'Ruta PrivateDir', '');

y si se ejecuta desde otra maquina de la red uso esto:

ruta := rutaRed + readstring ('Datos', 'Ruta', '');
rutanet := rutaRed + readstring ('Datos', 'Ruta net', '');
rutaprivate := rutaRed + readstring ('Datos', 'Ruta PrivateDir', '');

Entonces cuando creas la sesión ya no importa de que maquina se este ejecutando el programa

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');

Además de que no debes de usar la propiedad Alias del DataBase, usas solo la propiedad DriverName = STANDARD

Espero haber entendido tu pregunta y por supuesto contestado de manera explicita.

Saludos.