Hola a todos nuevamente, !! Lo logré !! con esfuerzo lo logré muchas gracias a todos.
Este es mi codigo final
Código Delphi
[-]
Procedure TForm1.ComboBox1Change(Sender:TObject);
Begin
DataModule1.TEmpresas.Active := False;
DataModule1.TEmpresas.Close;
DataModule1.Tempresas.DataBaseName := "";
if (ComboBox1.Text = "Empresa1") then
begin
With Session Do
Begin
DeleteAlias('Bdempresas'):
AddStandardAlias('Bdempresas','C:\empresa1\','Paradox');
Close;
Open;
SaveConfigFile;
End;
End;
if (ComboBox1.Text = "Empresa2") then
begin
With Session Do
Begin
DeleteAlias('Bdempresas'):
AddStandardAlias('Bdempresas','C:\empresa2\','Paradox');
Close;
Open;
SaveConfigFile;
End;
End;
DataModule1.Tempresas.DataBaseName := "Bdempresas";
DataModule1.TEmpresas.Active := True;
DataModule1.TEmpresas.Open;
Como ven lo que ,e hacia falta era nada, abrir y cerrar la seccion asi como definir en el databese de la tabla el nuevo alias, muchas gracias nuevamente a todos por su colaboracion, aahhhh y disculpen por el codigo no se como subrayarlo.
Chao