Question

在delphi中使用table组件能静态连接数据库，用table组件能实现动态连接吗？如果能，怎样动态连接？

我要交作业，请各位帮帮忙呀！谢谢啦

Answer 1

用动态建立别名的方法，然后把Table的DatabaseName指向它就可以了

var
BDEList : TStringList ;
．．．
begin
．．．
BDEList := TStringList.Create () ;
try
Session.GetAliasNames(BDElist) ; // 获取系统所有BDE别名列表
if BDEList.IndexOf('DragonPC')= -1 then begin // 如果没有我们的BDE别名"DragonPC"
BDEList.Clear ;
BDEList.Add('SERVER NAME=' + 'SQLServerName')); // 数据库服务器名称
BDEList.Add('DATABASE NAME=master') ; // 默认数据库
BDEList.Add('USER NAME=sa'); // 用户名
Session.AddAlias('DragonPC', 'MSSQL', BDEList) ; // 添加一个MSSQL类型的BDE别名
ShowMessage('系统即将建立BDE别名！') ;
Session.SaveConfigFile() ; // 存储BDE配置
end;
finally
BDEList.Free ;
end;

调用的时候：
Table1.Active := False;
Table1.databasename := 'DragonPC';
Table1.TableName := '你的表';
Table1.Active := True;