如何用按钮备份恢复sqlserver2000的数据库（马上给分）

Question

我想用delphi中的按钮来备份和恢复sqlserver2000数据库，请问具体该如何处理。

Answer 1

with adoquery1 do  //备份数据库到edit1中的路径
begin
 close; 
 sql.clear;
 sql.text := 'backup database yourdatabasename to disk = :1';
 parameters.parambyname('1').value := edit1.text;
 execsql;
end;

Answer 2

with adoquery1 do  //从edit1中的备份中恢复数据库；
begin
 close; 
 sql.clear;
 sql.text := 'restore database yourdatabasename from disk = :1';
 parameters.parambyname('1').value := edit1.text;
 execsql;
end;