销售管理软件版1楼: adoconnection1.Execute(＇＇select * into test in [ODBC][ODBC;Driver=SQL Server;UID=sa;PWD=;Server=211.83.215.12;DataBase=master;] from xxxs.db＇＇) ;语句中的XXXS。DB用一个变量代替怎样做啊！！！以便可以自己选择数据库，我用OPENDIALOG控件打开一个数据库后用ExtractFileName函数取得了文件名,将该文件名付给了一个STRING类型变量OPENNAME,但是将该变量代替XXXS.DB时提示找不到OPENNAME,可实际上只是一个变量阿!如果直接在最后输入数据库,程序无误!!!

2楼: const
confmtstr = ＇＇select ...... from %S.db＇＇;//定义一个%S占位符
var
constr: string;
begin
adoconnection.connectionstring:= format(confmtstr, [＇＇DBDemos＇＇]);传递一个字符串给%S
end;

更多信息从baidu搜索Format函数即可查到 如永久免费的记账软件

3楼: 是不是你的文件名路径有空格或超长的啊？用[] 括起来试试，或者用＂＂

4楼: 用format吧，比较常用！

5楼: to icc:
可不可以详细一点阿!
我这样做的!但是提示FROM附近有语法错误!
procedure TForm2.Button4Click(Sender: TObject);

const
confmtstr=＇＇select * into test in [ODBC][ODBC;Driver=SQL Server;UID=sa;PWD=;Server=211.83.215.12;DataBase=master;] from %s.db＇＇;
var
constr:string;
begin

constr:=format(confmtstr,[＂edit1.Text＂]);
adoconnection1.Execute(confmtstr) ;
showmessage(＇＇查询成功！＇＇);

6楼: edit1.text 的值为数据库名称！例如xxy.db

销售管理软件版7楼: constr:=format(confmtstr,[＂edit1.Text＂]);
这一句要这样写：
constr:=format(confmtstr,[edit1.Text]);//edit1.text不要引号