Ver Mensaje Individual
  #5  
Antiguo 05-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
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; // guardar de forma persistente el alias. 
// equivale a guardarlo desde el  Bde Administrator
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita