设置DBE Alias

[zoozhou]

如何在程序中创建Access类型的数据库别名？

[渤海海峡]

下面是一个设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;

[渤海海峡]

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

[hephaestus]

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

[kola]

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

[LaoZheng]

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

[LaoZheng]

Session.AddAlias()