SQL Server的数据备份问题

Question

//备份
with ADOCommand do
begin
  CommandText:='backup database DBName to disk=''' + FileName + ''' with init'; 
  Execute;
end;//恢复
with ADOCommand do
begin
  CommandText:='Restore database DBName from disk=''' + FileName + ''''; 
  Execute;
end;

Answer 1

RESTORE database 学校管理 FROM DISK = 'd:\test.bak' with replace ,stats//还原backup database databasename to disk='d:\server\jun.bak'  with  init   //备分

Answer 2

Exec sp_addumpdevice 'disk','Test_Backup',''//server/www/ww.dat'
BACKUP DATABASE TEST TO Test_Backup

Answer 3

Exec sp_addumpdevice 'disk','Test_Backup',''//server/www/ww.dat'
BACKUP DATABASE TEST TO Test_Backup

Answer 4

procedure Tbak.BitBtnOkClick(Sender: TObject);
var i : Tfilename;
    s: string;
begin
 if saveDialog1.Execute then
  begin
  i := saveDialog1.FileName;
   Animate1.Active := true;
     label1.Caption := '正在备份数据.......';                    s  :=    'use master'+#13+
                             'declare @dbname sysname'+#13+
                             'declare @logicalname sysname'+#13+
                             'declare @phslname sysname'+#13+
                             'set @dbname=''ypdate'''+ #13+
                             'set @logicalname=''database'''+#13+
                             'set @phslname= '''+i+''''+#13+
                             'if exists (select * from master.dbo.sysdevices where name = @logicalname)'+#13+
                             ' begin'+#13+
                             ' EXEC sp_dropdevice  @logicalname'+#13+
                             ' end'+#13+
                             ' EXEC sp_addumpdevice ''disk'',@logicalname,@phslname'+#13+
                             ' BACKUP DATABASE @dbname to @logicalname with INIT';
  ADOCommand1.CommandText:= s;
  ADOCommand1.Execute;
     Animate1.Active := False;
  label1.Caption := '备份完毕!';
  end;

Answer 5

RESTORE database ypdate FROM DISK = @phslname  with replace ,stats';
//恢复

Answer 6

//备份
if SaveDialog1.Execute then
  with ADOCommand do
  begin
    CommandText:='backup database DBName to disk=''' + SaveDialog1.FileName + ''' with init'; 
    Execute;
  end;//恢复
if OpenDialog1.Execute then
  with ADOCommand do
  begin
    CommandText:='Restore database DBName from disk=''' + OpenDialog1.FileName + ''''; 
    Execute;
  end;

Answer 7

//备份
if SaveDialog1.Execute then
  with ADOCommand do
  begin
    CommandText:='backup database DBName to disk=''' + SaveDialog1.FileName + ''' with init'; 
    Execute;
  end;//恢复
if OpenDialog1.Execute then
  with ADOCommand do
  begin
    CommandText:='Restore database DBName from disk=''' + OpenDialog1.FileName + ''''; 
    Execute;
  end;

Answer 8

var
     
     filename:string;//目标库文件名
     source,target: TFileStream;
     
begin
     
     source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名；
     try
       target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
       try
         if target.CopyFrom(source,source.Size)=source.Size then
           ShowMessage('成功备份到'+filename+'!!!');
       finally
         target.Free;
       end;
     finally
       source.Free;
     end;