Cita:
Empezado por egostar
Si se ejecuta el programa en el mismo servidor uso esto:
|
El servidor tambien debe usar rutas de red, en caso contrario puedes obtener fallos de indices al entrar simultaneamente con el "servidor" y "clientes"
Para el alias, puedes hacerlo en tiempo de ejecución tranquilamente:
Código Delphi
[-]
with session do
begin
if not isAlias('mialias') then
AddStandardAlias ('Mialias',rutabasedatos,'Paradox' );
config := cmAll;
SaveConfig; end;
.
Una vez creado el alias, debes asignarselo a todas las tablas y querys que tengas, si le has cambiado el nombre, pues debes actualizarlo:
Código Delphi
[-]
DtbPPal.Session.Open;
DtbPPal.Connected := True;
for i := 0 to pred(ComponentCount) do
if (components[i] is TTable) then
TTable(components[i]).DatabaseName := Alias
else if (components[i] is TQuery) then
TQuery(components[i]).DatabaseName :=Alias;
Yo al menos lo he hecho así, puede que haya otras formas...nu sé.
Saludos