Создание псевдонима базы данных с указанием пути к каталогу с базойDelphi , Базы данных , AliasСоздание псевдонима базы данных с указанием пути к каталогу с базой
Автор: Александр { **** UBPFD *********** by delphibase.endimus.com **** >> Создание псевдонима базы данных с указанием пути к каталогу с базой Данная процедура создает нужный псевдоним (Alias), если он не существует, для базы данных, прописывает путь к базе данных. Если такой псевдоним существует, то проверяется его соответствие заданным параметрам. Зависимости: DBTables Автор: Александр, rda@im.net.ua, Мелитополь Copyright: Help Delphi Дата: 28 апреля 2002 г. ***************************************************** } procedure Create_Alias; var AParams: TStringList; Dir: string; begin Dir := ExtractFilePath(ParamStr(0)) + 'BASE'; //Путь к базе. В данном случае //это \Каталог программы\BASE AParams := TStringList.Create; if not Session.IsAlias('cssm') then //Проверка существования псевдонима //cssm begin Session.AddStandardAlias('cssm', Dir, 'PARADOX'); end else try begin AParams.Clear; AParams.Add('PATH=' + Dir); Session.ModifyAlias('cssm', AParams); Session.SaveConfigFile; end; finally AParams.Free; end; end; Статья Создание псевдонима базы данных с указанием пути к каталогу с базой раздела Базы данных Alias может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |