No me saca error en particular, aun desconociendo Plimpiar, mas bien creo yo que puede ser desconocimiento del código (Codigo GataSoft).De todas formas les dire que hago, cree un aplicativo aparte que simulara lo que pretendo, tiene un DataModule conteniendo una tabla (común para ambas empresas), un combobox para empresa1 y empresa2, un Dbgrid que me lista los datos, sea de empresa1 o empresa2, aclaro en el registro del sistema tengo una vble que almacena la ruta de la B.D., corro el aplicativo y me lista los datos de la empresa1, elijo la empresa2 para que me liste estos datos y me sigue mostrando los de la empresa1, Nuevamente corro el aplicativo y ahi si me muestra los datos de la empresa2.
Código Delphi
[-]
var
vDriverParams: TStringList;
....
Procedure TForm1.FormActivate(Sender:TObject);
begin
vDriverParams := TStringList.Create;
end;
Procedure TForm1.ComboBox1Change(Sender:TObject);
Begin
DataModule1.TEmpresas.Active := False;
DataModule1.TEmpresas.Close;
if (ComboBox1.Text = "Empresa1") then
begin
With Session Do
Begin
DeleteAlias('Bdempresas'):
AddStandardAlias('Bdempresas','C:\empresa1\','Paradox');
vDriverParams.Add('NetDir=C:\empresa1\');
ModifyDrive('Paradox',vDriverParams);
SaveConfigFile;
End;
End;
if (ComboBox1.Text = "Empresa2") then
begin
With Session Do
Begin
DeleteAlias('Bdempresas'):
AddStandardAlias('Bdempresas','C:\empresa2\','Paradox');
vDriverParams.Add('NetDir=C:\empresa2\');
ModifyDrive('Paradox',vDriverParams);
SaveConfigFile;
End;
End;
DataModule1.TEmpresas.Active := True;
DataModule1.TEmpresas.Open;
Les agradezco la ayuda que me puedan ofrece y me disculpan por el código.