学步园

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

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

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

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