我用这种方法备份为什么恢复后数据会丢失

Question

var
i:string;
begin
i:=snedit1.Text;
opendialog1.FileName:=i;
self.Caption:= '正在备份数据....';
adoquery1.SQL.Clear;
self.ADOQuery1.SQL.Text:='backup database [食品] to disk = ' + '''' + opendialog1.FileName + '''';
self.ADOQuery1.ExecSQL;
self.Caption :='';
if messagedlg('备份成功！',mtConfirmation,[mbYes,mbNo],0)= mrYes then

Answer 1

CREATE proc backupDatabase 
create proc
@BackName varchar(50)
as
Declare @BackAllName varchar(100),@BackDeviceName varchar(100)
set @BackAllName=@backName
set @BackDeviceName=@backName+'_Full'
exec sp_addumpDevice 'disk',@BackDeviceName,@BackAllName
backup database DWeightToll to @BackDeviceName with init
GO
我试过了，备份后还原没有问题