本地access数据库备份和恢复

[qdmis33]

http://community.csdn.net/Expert/topic/3472/3472806.xml?temp=4.117984E-02

[qdmis33]

fhuibo(永远深爱一个叫“莎“的好女孩儿)

谢谢你，正解

[qdmis33]

各位大侠，200分了

[jpyc]

用文件拷贝的方法就可以了

[masterjames]

DBNAME := ’C:\'+FORMATDATETIME（’YYYY-MM-DD），NOW）
COPYFile（PCHAR（ORGDBNAME）,PCHAR(DBNAME),FALSE);//FALSE是覆盖，你可以用时间生成数据库名

[fhuibo]

procedure TFormMain.BackupDataClick(Sender: TObject);
var
MyFileName: string;
begin
MyFileName := '';
try
if SaveDialog1.Execute then
begin
MyFileName := SaveDialog1.FileName;
if MyFileName <> '' then
begin
if CopyFile(Pchar(ExtractFilePath(Application.ExeName) + 'HYTJ.mdb'), Pchar(MyFileName), false) then
begin
Application.MessageBox('数据备份成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据备份失败','提示',Mb_ok + mb_iconError);
end;
end;

[fhuibo]

procedure TFormMain.RestorDateClick(Sender: TObject);
var
MyFileName, aa: string;
begin
MyFileName := '';
try
if OpenDialog1.Execute then
begin
MyFileName := OpenDialog1.FileName;
if MyFileName <> '' then
begin
aa := ExtractFilePath(Application.ExeName) + 'HYTJ.mdb';
if CopyFile(Pchar(MyFileName),Pchar(aa), false) then
begin
DM.ADOConnect.Close;
DM.ADOConnect.Open;
Application.MessageBox('数据恢复成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据恢复失败','提示',Mb_ok + mb_iconError);
end;
end;