delphi + ms Sqlserver 的数据备份问题。

Question

没人理我？？￥……—*（￥……—

Answer 1

可以直接用SQL命令
procedure BackupDatabase(FileName: string);
begin
  with TQuery.Create(nil) do
  try
    DatabaseName := 'mydatabase';
    SQL.Text := Format('BACKUP DATABASE dbname TO DISK=''%s'' WITH INIT', FileName);
    ExecSQL;
  finally
    Free;
  end;
end;FileName：如果服务器在本机，那可以用本机路径
不然要网络目录(\\machine\sharedir\filename.bak)