bde+paraoxd怎么备份数据库

wanglipeng 2004-08-20 08:38:57

请各位大侠们。急急急。。。求数据库备份的实现方法。

...全文

173 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

qizhanfeng 2004-08-21

打赏
举报

copyfile

ztenv 2004-08-21

打赏
举报

在程序中先断开所有的数据库连接，然后用copyfile()API，把所有的数据库文件copy到另外的文件夹中，就可以了

zhlwyy 2004-08-21

打赏
举报

procedure TMainForm.btnBackupCreatClick(Sender: TObject);
var
filePath,fSQLStr:string;
begin
filepath:='';
backupdialog.Title:='备份到';
if backupdialog.Execute then filepath:=backupdialog.FileName+'.bak';
if length(filepath)<4 then exit;
fSQLStr := 'BACKUP DATABASE ' + fDB_name +
' TO DISK = ' + '''' + filepath + ''''+'with init';
if Ado_BackUp.Active then Ado_BackUp.Close;
Ado_BackUp.SQL.Clear;
Ado_BackUp.SQL.Add(fSQLStr);
Try
Ado_BackUp.ExecSQL;
Except
MessageDlg('数据库备件失败.',mtwarning,[mbOk], 0);
exit;
end;//try
MessageDlg('数据库备件成功.',mtinformation,[mbOk], 0);
end;

fDB_name是数据库的名称

莫名 2004-08-21