关于ACCESS备份数据库问题。

Question

adoconnection1.Connected:=false;
adoquery1.Active:=false;
deletefile('db1.mdb');
renamefile('dfdb1.mdb','db1.mdb');
adoconnection1.Connected:=true;
adoquery1.Active:=true;
我想以这种方式来还原我数据库为什么不行呢，他不删除那个db1.mdb数据库文件

Answer 1

adoconnection1.Connected:=false;
adoquery1.Active:=false;
Application.ProcessMessage;I:=0;
while (i<10) and (not deletefile('db1.mdb')) do
begin
 inc(i);
 Application.ProcessMessage;
end;重要的是，要保证你所有的连接断开了