数据备份

Question

怎么用DELPHI语言编写一个后台的数据备份程序，就象触发器那样的形式。
就备份表里面的数据就可以了。
用SQL-SERVER又怎么写。谢谢！！

Answer 1

用BATCHMOVE组件，模式设为batcopy，然后就是你去看它的相关帮助文件了

Answer 2

sql is :
restore database{database_name|@database_name_var}
<file_or_filegroup>[,...n]
[from<backup_device>[,...n]]
[with
  [RESTRICTED_USER]
  [[, ]FILE=file_number]
  [[, ]PASSWORD={password|@password_variable}]
  [[, ]REPLACE]
  [[, ]RESTART]
  [[, ]STATS[=percentage]]
]

Answer 3

建议用TBatchMove控件，但需要BDE支持。如果自己写代码备份数据，效率比较低。

Answer 4

procedure TMainFrm.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    DataBase1.Close;
    DataBase1.AliasName := 'tsg';
    DataBase1.DatabaseName := 'tsg';
    DataBase1.Params.Clear;
    DataBase1.Params.Add('USER NAME=sa');
    DataBase1.Connected := true;
    Query1.DatabaseName := 'tsg';
    try
      with Query1 do
      begin
        Close;
        UnPrePare;
        SQL.Clear;
        SQL.Add('Backup DataBase tsg to disk = :disk');
        Params[0].AsString := OpenDialog1.FileName;
        PrePare;
        ExecSQL;
      end;
    except
      ShowMessage('备份失败');
      Exit;
    end;
  end;
  Application.MessageBox('恭喜您，数据备份成功','提示',MB_OK + MB_ICONINFORMATION);
end;