如何还原数据库备份？

Question

请问在DELPHI里怎么对SQL2000进行备份呢？

Answer 1

       if saveDialog1.Execute then
          begin
            data.DataModule1.que_back.Close;
            data.DataModule1.que_back.SQL.Clear;
            data.DataModule1.que_back.SQL.Add('backup database schdb to disk='''+savedialog1.FileName+'''');
            data.DataModule1.que_back.ExecSQL;
            application.MessageBox('数据库备份成功','备份数据库',mb_ok+64);
           end;

Answer 2

//-------------备份----------------------------
procedure TForm_main.ac_db_backupExecute(Sender: TObject);
begin
  if form_backup.showmodal= mrOK then begin
    {----开始备份----}
    with Database1 do begin
      try
        Close;
        Execute('BACKUP DATABASE l_CLQC TO DISK = '''+dir1+'\'+ DateToStr(now)+ '.bak''');
        sbar_main.SimpleText :='备份完毕';
        MessageDlg('备份完毕!',mtInformation,[mbOK],0);
      except
        sbar_main.SimpleText :='备份失败';
        MessageDlg('备份失败，请重试！',mtError,[mbOK],0);
      end;
      Open;
    end;  end;
end;
//----------------------恢复----------------  //First connect to Database master,Omitted....注意with Replace参数
with Database1 do begin//[
          Execute('use master');
          Execute('RESTORE DATABASE l_clqc FROM DISK ='''+ s +''''+' with Replace ');
end;

Answer 3

//First connect to Database master,Omitted....注意with Replace参数
这句不明白，所以测试时没有成功,强烈关注!!!
另：保存时后缀名可以任意设置吗??