我想制作一个数据库的备份同时加入进度条
程序如下
procedure tfom1.button1click(sender: tobject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('backup database wly to disk='+#39+'c:/hdp.bak'+#39);
adoquery1.exexsql;
end;
procedure tform1.adoquery1fetchprogress(dataset;tcustomadodataset;progress,maxprogress: integer;eventstatus; teventstatus);
begin
progressbar1.position:=progress*100 div maxprogress;
application.processmessage;
end;
end.
其中wly为所要备份的数据库名
我用了一个datasource,adoconnection,和一个adoquery和一个progressbar控件
datasource的dataset设为adoquery1 ,adoquery1的sql属性设为
select * from wo;其中wo为wly数据库中的一个表
但程序完成后prrgressbar进度条的进度是获得wo表的数据是的进度而不是被分数据库
wly的进度
后来我将adoquery1的sql属性改为backup database wly to disk='c:/hdp.bak';
但delphi并不支持这种设置 
请大家帮忙一下下 
先表感谢