Создание псевдонима базы данных с указанием пути к каталогу с базой

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Александр

WEB-сайт: http://delphibase.endimus.com

{ **** 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;

{/codecitation}

Добавить комментарий