Delphi备份/还原数据库

----备份数据库 BACKUP DATABASE KCBusMag to disk = 'E:/SoftCode/AWork/车载/智卡/通用版YJ/BusMag/db/BusManager080701151536.Bak' With Name = 'KCBusMag 备份'

----还原数据库 方法《一》 use master alter database library set offline WITH ROLLBACK IMMEDIATE RESTORE DATABASE KCBusMag from disk = 'E:/SoftCode/AWork/车载/智卡/通用版YJ/BusMag/db/BusManager080701144457.Bak' alter database library set online with rollback immediate

 

----还原数据库 方法《二》 procedure TForm1.Button1Click(Sender: TObject); begin with  AdoCommand1  do begin        CommandText:='use  Master';        Execute;        CommandText:='execute  KillSPID';--自己写的存储过程        Execute  ;        CommandText:='Restore  database  Test  From  disk='''+'E:/123'+'''  with    replace';        Execute  ;        CommandText:='Use Test ';        Execute  ; end; end; ****************************存储过程KILLSPID--该过程放在Master中

Create Proc KillSPID With EnCryption As DECLARE ProcessID CURSOR    FOR    Select Spid From Master..SysProcesses Where Dbid=db_id('Test') OPEN ProcessID DECLARE @Spid sysname FETCH NEXT FROM ProcessID INTO @Spid WHILE (@@FETCH_STATUS <> -1) BEGIN    EXEC ('Kill ' + @Spid)    FETCH NEXT FROM ProcessID INTO @Spid END CLOSE  ProcessID DEALLOCATE ProcessID