如何用DELPHI做一个ACCESS数据库自动备份程序 ( 积分: 100 )

我需要用delphi编一个access数据库自动备份程序，不知道该怎么做，请各位大虾给点建议或者相关代码，谢谢各位了！

access是文件型的，复制文件就可以了！

文件复制啊

function tdatamd.datacopy(tablefilename1:string;tablefilename2:string):boolean;
var
cPath:string;
file1,file2char;
begin
result:=false;
cPath:=extractFilePath(application.ExeName);
try
getmem(file1,80);
getmem(file2,80);
strpcopy(file1,cpath+tablefilename1);
strpcopy(file2,cpath+tablefilename2);
if copyfile(file1,file2,false)=false then
raise einouterror.Create('文件传送发生错误!')
else
result:=true;
finally
freemem(file1);
freemem(file2);
end;
end;

我不知道如何实现自动备份，能不能指点一下。

上面代码不是给你了吗?其实就是文件复制

备份,就是文件复制;
Uses ShellAPI;
function Win_XCOPY(fFROM,fTO:String):boolean;
var FData : TShFileOpStruct;
begin
Fdata.pFrom := PChar(fFrom+#0#0); //设立数据源路径和文件、目录名,支持(?, *通配符)
fdata.pTo := PChar(fTo+#0#0); //设立目标路径
fdata.wFunc := FO_COPY ; //设立操作方式
//FO_COPY 拷贝操作 相当于 XCOPY
//FO_MOVE 移动操作 相当于 MOVE
//FO_DELETE 删除操作 相当于 DELTREE
FData.Wnd := Application.Handle ;
fData.lpszProgressTitle := 'Wait'; //设立提示窗标题
fData.fFlags := FOF_ALLOWUNDO OR FOF_NOCONFIRMMKDIR; //设定操作选项
result:=ShFileOperation( FData ) = 0 ;
end;
文件复制还可以用dos命令,速度好像是最快的

自动?
你就写注册表进行计时吧,隔一定时间备份一次就行了.

真无聊。。。

自动备份嘛,哈哈,加在任务计划里面,定期拷贝文件到备份目录

这个问题是在access未工作（未打开文件，未连接文件）的情况下，系复制文件就可以了。

多人接受答案了。