如何判断当前的BDE是否已经有某个别名，以及如何动态创建别名？多多指教！

Question

如何判断当前的BDE是否已经有某个别名

Answer 1

如何判断当前的BDE是否已经有某个别名?

Answer 2

if session1.IsAlias('别名') then
begin
end

Answer 3

Session.IsAlias('MyAlias')var  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    with MyList do
    begin
      Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
      Add('USER NAME=MYNAME');
    end;
    Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
  finally
    MyList.Free;
  end;
end;

Answer 4

Session.IsAlias('MyAlias')var  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    with MyList do
    begin
      Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
      Add('USER NAME=MYNAME');
    end;
    Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
  finally
    MyList.Free;
  end;
end;

Answer 5

用session1.getalias(stringlist);
  if stringlist.find('xxx',inz) then 已经存在!
  else with s do
   begin
     将你要添加的别名的属性赋值,
     不同类型的数据库代码有所不同.
   end;
  Session1.AddAlias('NewIBAlias', '数据库', s);
  session1.savealias;