设置DBE Alias

Question

必须使用BDE函数,去看BDE的帮助
dbiAddalias:
必定有一个数据库类型的参数
(错了别怪我，最近记忆力衰退)

Answer 1

那要看你用的Delphi什么版本!1.0的话就比较麻烦,4.0的话比较简单
查查BDE函数帮助,保证OK!我以前在1.0下做过,得找找才行!

Answer 2

利用TDataBase 
DataBase.DriveName:=MSACCESS
DataBase.DataBaseName:='别名';
DataBase.USER NAME=
DataBase.OPEN MODE=READ/WRITE
DataBase.LANGDRIVER=
DataBase.SYSTEM DATABASE=
DataBase.PASSWORD=

Answer 3

下面是一个设interbase的别名的函数，改改就成；
‘interbase' 换成msaccess
注意 password换成自己的。function setdbalias(const aliasname, servername:string):boolean;
var
  paramlist:tstringlist;
begin
  result:=true;
  paramlist:=tstringlist.Create;
  try
    paramlist.Clear;
    paramlist.Add('SERVER NAME='+servername);
    paramlist.add('USER NAME=SYSDBA');//access 的user name 无所谓
    paramlist.add('PASSWORD=masterkey');//要换成access mdb的
    if session.IsAlias(aliasname) then
    begin
      session.ModifyAlias(aliasname,paramlist);
    end else
    begin
      session.AddAlias(aliasname,'intrbase',paramlist);  //换成msaccess
    end;
    session.SaveConfigFile;
  except
    result:=false;
  end;
  paramlist.free;
end;

Answer 4

另外，我用的是delphi3.0 设置access别名时，需要更改bde admin中的access的dll版本否则连接access 97有问题。