Показать сообщение отдельно
  #5  
Старый 13.05.2008, 21:29
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

Да в принципе можно, только проще наверное создать разные псевдонимы.
А сделать можно так. Хотя я не очень смыслю в BDE, но думаю должно получиться.
Код:
var
  Param: TStringList;
  path:String;
begin
  path:='D:\Delphi project\BD_Game\Tables';//Путь к таблицам
  Param := TStringList.Create;
  Param.Add('PATH='+path);
  Session.ModifyAlias('STANDARD1',Param);//STANDARD1 - имя псевдонима
  Session.SaveConfigFile;
  Param.Free;
  Session.OpenDatabase('STANDARD1'); //открываем базу данных
  datamodule2.Firms.Open; //открываем соответствующие таблицы в БД (Firms - имя таблицы)
end;
Ответить с цитированием