برای بازیابی دیتابیس جاری را Closeو به Master متصل شوید


 

 

   BackupCon.Connected:=False;

   Dm.ModiranFarmerCon.Connected:=False;

   While Dm.ModiranFarmerCon.Connected Do ;

   BackupCon.Database:='master';

   BackupCon.Username:='sa';

   BackupCon.Password:='Pass';

   'Server':=Dm.ModiranFarmerCon.Server;

   BackupCon.Connect;

   While Not BackupCon.Connected Do ;

   QBackup.SQL.Text:= 'RESTORE DATABASE ['+Dm.ModiranFarmerCon.Database+']FROM DISK = '+QuotedStr(OpenDialog1.FileName);

   Try

      QBackup.Execute;

      MsgList.Items.Add('اتمام');

   Except

      Tools.ShowMsg('خطا');

   End;