十天了还没解决？先测试看看下面代码，如果可以备份，再自己分析为什么自己代码不可以，如果下面代码也不可以，那才奇怪。注意备份期间，其它程序不要占用该数据库。procedure TForm1.N7Click(Sender: TObject);var text:string;begin absdatabase1.Connected :=false
begin copyfile(pchar(ExtractFilePath(Application.ExeName) + DataBaseFileName), pchar('C:/A.MDB' ),false )
absdatabase1.connected:=true
end;end;
