本地数据的备份和回复，请详细回答，好吗。（100分）(100分)

我想备份本地数据，如 在data内的数据，想备份到databak内，而且恢复的时候，
从databak内恢复覆盖data内的数据。请高手给我一个详细的解答好吗。谢谢。
（d6+paradox）

不太熟本地數據庫
將數據文件全Copy下來呢

[]文件复制，拷贝就可以实现。

希望能给出详细的代码啊，如果分少的话，可以加啊。

procedure TForm1.BitBtn1Click(Sender: TObject);
Var S:String;
begin
copyfile('D:/6_20Books/数据库/MYNEWBOOKS.DB','D:/6_20Books/数据库/MYNEWBOOKSBackUp.DB',False);
If FileExists('D:/6_20Books/数据库/MYNEWBOOKSBackUp.DB') Then
Begin
S:='D:/6_20Books/数据库/MYNEWBOOKSBack.DB';//
If RenameFile('D:/6_20Books/数据库/MYNEWBOOKSBackUp.DB',S) Then
End;
end;

batchmove 组件，把数据库备份，然后可以覆盖

备份：


CREATE PROCEDURE khgl_backup
@databasename varchar(20),@backup_device varchar(100)
AS
begin
backup database @databasename to disk=@backup_device with init
end

恢复数据：


CREATE PROCEDURE restore_data
@databasename varchar(20),@backup_device varchar(100),@logical_name varchar(100),@path_name varchar(100),
@logical_log varchar(100),@path_log varchar(100)
as
begin
restore database @databasename from disk =@backup_device
with move @logical_name to @path_name,
move @logical_log to @path_log,replace
end

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON


GO

恢复日志：


CREATE PROCEDURE restore_logical
@backup_device varchar(100)
as
begin
restore filelistonly from disk =@backup_device
end



GO

不过你在恢复数据时要现把数据恢复到其他库里，再把数据倒回来，直接在本地苦恢复将提示正在使用！也可以试试其他办法，只要被恢复的库没有被使用即可！