Sql 还原失败 之 “因为数据库正在使用,所以未能获得对数据库的排它访问权”的处理

     之前没有太在意，这两天在程序中添加备份还原模块，发现备份没为题，还原时出现“因为数据库正在使用,所以未能获得对数据库的排它访问权”，放狗搜了一下，看到遇到类似情况地同志还不少，看了帖子中给出解决的办法是：

      1、使用两个TAdoConnection，还原时将要还原数据库的Adoconnection1断开链接，将Adoconnection2链接到Master数据库，但经我多次试验，似乎也不能成功；2、使用存储过程，这个应该能实现，大段的代码我没仔细看，稍显啰嗦。

    最后说说我的处理办法，单用一个AdoConnection，没用存储过程，直接上代码吧，一目了然：

procedure TBackupOrRevertFrm.SpeedButton1Click(Sender: TObject); var sFdir: string; List:TListItem; begin if RadioButton1.Checked=True then //备份数据 begin if MessageDlg('您确认要备份数据吗?',mtCustom,[mbYes,mbNo],0)=mrYes then begin if Trim(Edit1.Text) = '' then begin MessageBox(Handle,'备份文件名不能为空！','信息提示',MB_ICONWARNING + MB_OK); exit; end; if Copy(DirectoryListBox1.Directory,Length(DirectoryListBox1.Directory),1)='/' then sFdir := DirectoryListBox1.Directory+Edit1.Text+'.MqBk' else sFdir := DirectoryListBox1.Directory+'/'+Edit1.Text+'.MqBk'; try AdoBkRs.Connection := DmFrm.ADOConnection1; AdoBkRs.Close; AdoBkRs.SQL.Clear; AdoBkRs.SQL.Text := 'Backup database MeterInfo To Disk= '''+sFdir+''''; AdoBkRs.ExecSQL; AdoBkRs.Close; except on e:exception do begin MessageBox(Handle,'备份失败！','信息提示',MB_ICONWARNING + MB_OK); end; end; List:=ListView1.Items.Add; List.ImageIndex:=0; List.Caption:=Edit1.Text+'.MqBk'; MessageBox(Handle,'备份成功！','信息提示',MB_ICONINFORMATION + MB_OK); end; end; if RadioButton2.Checked then //还原数据库 begin if MessageBox(Handle, PChar('请谨慎进行此项操作，还原后可能造成部分数据丢失，确定要还原吗？'), '询问', MB_ICONWARNING + MB_OKCANCEL + MB_DEFBUTTON2) = IDOK then begin if ListView1.Items.Count=0 then //如果为空没有记录卡 begin ShowMessage('对不起没有发现备份卡,无法恢复数据.'); Exit; end else //如果存在记录卡 begin if Files='' then //没有选择恢复文件 begin ShowMessage('对不起,请重新选择要恢复的备份文件'); Exit; end end ; //开始恢复 if Copy(DirectoryListBox1.Directory,Length(DirectoryListBox1.Directory),1)='/' then sFdir := DirectoryListBox1.Directory+Files else sFdir := DirectoryListBox1.Directory+'/'+Files; try Screen.Cursor := crHourGlass; AdoBkRs.Connection := Dmfrm.ADOConnection1; AdoBkRs.Close; AdoBkRs.SQL.Clear; AdoBkRs.SQL.Add('use master'); AdoBkRs.SQL.Add('ALTER DATABASE MeterInfo SET OFFLINE WITH ROLLBACK IMMEDIATE'); AdoBkRs.SQL.Add('Restore Database MeterInfo From Disk= '''+sFdir+''' with REPLACE '); AdoBkRs.SQL.Add('ALTER DATABASE MeterInfo SET ONLINE WITH ROLLBACK IMMEDIATE'); Application.ProcessMessages; AdoBkRs.ExecSQL; AdoBkRs.Close; Screen.Cursor := crDefault; except on e: exception do begin MessageBox(Handle,'还原失败！','信息提示',MB_ICONWARNING + MB_OK); Screen.Cursor := crDefault; exit; end; end; MessageBox(Handle,'还原成功！','信息提示',MB_ICONINFORMATION + MB_OK); end; end; end;

核心部分就是这几句：

        AdoBkRs.SQL.Add('use master');
        AdoBkRs.SQL.Add('ALTER DATABASE MeterInfo SET OFFLINE WITH ROLLBACK IMMEDIATE');
        AdoBkRs.SQL.Add('Restore Database MeterInfo From Disk= '''+sFdir+''' with REPLACE ');
        AdoBkRs.SQL.Add('ALTER DATABASE MeterInfo SET ONLINE WITH ROLLBACK IMMEDIATE');

另外，使用如今方式亦可（未试验）：

用single userEXEC sp_dboption 'dababasename','single user', 'TRUE'
RESTORE DATABASE databasename  FROM DISK = 备份文件名  with REPLACE
EXEC sp_dboption 'dababasename','single user', 'false