救急！！！

[zhizunbao0488]

小弟近日课设遇到数据库的备份与恢复问题，小弟使用的是Access，有什么好的方法实现它的备份与恢复？最好是同步备份或动态备份。

[koh_hou]

procedure TFormMain.SBackupClick(Sender: TObject);
var
dbe:olevariant;
begin

DM.ADOC.Connected := False;
tempstring := FormatDateTime('yyyymmdd',Date)+FormatDateTime('hhmm',Time)+'.dat';
dbe := CreateOleObject('dao.DBEngine.36'); //or 'dao.DBEngine.35'
dbe.CompactDatabase('.\db\QiQuanDB.mdb','.\backup\'+tempstring,'',0,'');

Showmessage('数据库备份完成,文件名为 '+tempstring);
WriteLog('数据库备份完成,文件名为'+tempstring);
end;

[koh_hou]

这是我的代码，不知道是不是合你的意思。试试看吧

dbe.CompactDatabase('.\db\QiQuanDB.mdb','.\backup\'+tempstring,'',0,'');中QiQuanDB是你的数据库名。
忘了定义tempstring为string;

[koh_hou]

不过备份完是 .dat文件
要恢复就手工改成 .mdb文件

[LazyMan]

直接用程序另存一份就行了

[koh_hou]

或者在 tempstring := FormatDateTime('yyyymmdd',Date)+FormatDateTime('hhmm',Time)+'.dat'; 里把最后的改为 .mdb

就可以直接备份为Access文件了

[zhizunbao0488]

谢谢大家，不知道有没有动态（增量）备份的方法