Progama para varias empresas

[marcoszorrilla]

No dices con qué motor y tablas trabajas, pero si fuera con Paradox + BDE una opción fácil sería la creación de un alias, que cargará la dirección a la que apunta de forma dinámica, es decir despues de que el usuario haya elegido la empresa, de esta manera tendríamos; Unas tablas comunes en una carpeta y luego las particulares de cada empresa en una carpeta reservada para dicha empresa.

La misma idea podría aplicarse a otros sistemas, más o menos en la línea que ya te han indicado David y Lepe.

Un Saludo.

[Viky]

Empezado por marcoszorrilla

No dices con qué motor y tablas trabajas, pero si fuera con Paradox + BDE una opción fácil sería la creación de un alias, que cargará la dirección a la que apunta de forma dinámica, es decir despues de que el usuario haya elegido la empresa, de esta manera tendríamos; Unas tablas comunes en una carpeta y luego las particulares de cada empresa en una carpeta reservada para dicha empresa.

La misma idea podría aplicarse a otros sistemas, más o menos en la línea que ya te han indicado David y Lepe.

Un Saludo.

Cómo configuro dinámicamtente el BDE??, me podrias explicar con mas detalle la creación del alias que mencionaste???
Muchas Gracias
Viky

[[pepon386]]

Prueba lo siguiente:

Código Delphi [-]
  if not Session.IsAlias(ALIAS_APP) then with Session do
  begin
    ConfigMode := cmSession;
    try
      AddStandardAlias(ALIAS_APP, Ruta, 'PARADOX');
    finally
      ConfigMode := cmAll;
    end;
  end;
  Database.AliasName := ALIAS_APP;
  Database.TransIsolation := tiDirtyRead;
  Database.Open;

[Viky]

Hola a todos, les paso a detallar mi problemita: Necesito configurar dinámicamente el BDE desde una aplicación en delphi 6.
Desde la aplicación se elegirá la empresa con cuál trabajar, las bases de datos de las distintas empresas, están ubicadas en distintas carpetas, por ello es necesario configurar dinámicamente el BDE, para que apunte a distintas rutas según la empresa elegida. Las tablas de la BD están en Paradox.

[marcoszorrilla]

Código Delphi [-]
with DataModuleDatos.DbMicalluch do
begin
Params.Clear;
Params.Add('PATH = ' + Path);
Params.Add('DEFAULT DRIVER = PARADOX');
Params.Add('ENABLE BCD = FALSE');
end;

Si utilizas un componente TDataBase, puedes variar el lugar en donde están los datos es decir una u otra empresa de la manera que ves.

Un Saludo.