Меняем псевдоним прямо во время выполнения программы


var
d : TDatabase;
begin
d := TDatabase.Create(Application);
d.DataBaseName := ′TEST_ALIAS′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=C:DBDEMOS′);
d.Connected := True;
end;



Опубликовал admin
11 Мар, Вторник 2008г.



Программирование для чайников.