在本地数据库中如Paradox，如何动态添加数据库别名？

Question

可以直接将databasename指向存放该表的文件夹位置。
如：databasename:='c:\data';

Answer 1

可能下面的方法能解决你这个问题
 本地数据库中如Paradox 可以不需添加别名，因为
 database 的 databasename 属性 即可以输入数据库别名也可以输入目录（如：c:\jjtj）

Answer 2

// 过程：创建数据库别名
procedure TMyForm.CreateDBAlias;
var
  sAlias: String;
  sDatabasePath: String;
  ssnSession: TSession;
begin
  sDatabasePath := 'C:\MYDB';  // 数据库的路径
  sAlias := 'MYTEST';          // 数据库的别名  ssnSession := TSession.Create(Self);
  ssnSession.SessionName := 'MYSESSION';  // 在BDE配置中增加指定的数据库别名
  ssnSession.AddStandardAlias(sAlias,sDatabasePath,'PARADOX');
  // 保存BDE配置
  ssnSession.SaveConfigFile;      ssnSession.Free;
end;