精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>动态添加BDE别名[摘自kingron主页]

主题:动态添加BDE别名[摘自kingron主页]
发信人: teleme(PassWord)
整理人: teleme(2001-06-15 17:59:06), 站内信件
procedure SetAlias; { 设置当前数据的别名(PARADOX) }
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    with MyList do
    begin
      Add('PATH=你的数据库的路径');
      Add('ENABLE BCD=FALSE');
    end;
    Session.AddAlias('你的数据库别名', 'PARADOX', MyList);
  finally
    MyList.Free;
  end;
end; { SetAlias }
 
其他数据库的一样 



----
fire engine   

    

[关闭][返回]