___在执行完“恢复数据库”的语句后，再执行SQL查询语句___提示

Biner

在执行完“恢复数据库”的语句后，再执行SQL查询语句___提示“连接失败”

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  s:string ;
begin
    try

      if OpenDialog1.Execute then
        begin
           s:=OpenDialog1.FileName ;
           with DataModule2.ADOCommand1 do
           begin
              //数据库恢复的代码
              CommandText := 'alter database 尊雅丽锦·网上服装商城 set offline with rollback immediate'  ;     //让数据库离线
              Execute ; //执行
              CommandText := 'restore database 尊雅丽锦·网上服装商城 from disk = '''+s+''' with replace ' ;    //恢复
              Execute ; //执行
              CommandText := 'alter database 尊雅丽锦·网上服装商城 set online with rollback immediate' ;       //数据库重新上线
              Execute ; //执行
           end;
           ShowMessage('数据库恢复成功...');

           // 重新显示数据表    -------------执行这里的代码是提示 “连接中断 ” ，该怎么解决。
           with DataModule2.ADOQuery1 do
           begin
               SQL.Clear ;
               SQL.Add('select * from 尊雅服装来源表') ;
               Open ;
           end;      
        end;
    except
       ShowMessage('在恢复数据库时发生了不可预知的异常，请与软件开发人员联系');
    end;
end;

可以确定的是，我恢复数据库的语句是正确的。

这个问题对我很重要，请知道的大哥大姐帮我看看哦！  谢谢了哦

Biner

问题已经解决了

dfdgfdgfdgh

谢谢分享哈~！~

dfdgfdgfdgh

谢谢分享哈~！~

dfdgfdgfdgh

谢谢分享哈~！~