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

Question

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;可以确定的是，我恢复数据库的语句是正确的。这个问题对我很重要，请知道的大哥大姐帮我看看哦！  谢谢了哦数据库sqlselect

Answer 1

恢复后可以再动态创建一个ADOConnection，重新连接，不用原来的connection了。

Answer 2

DataModule2.ADOQuery1.ADOConnection1.Close;
DataModule2.ADOQuery1.ADOConnection1.Open;