关于使用adoconnection访问sql数据库而数据库关闭时产生异常的问题

Question

try
            Server:=Reg.ReadString('');
            ADOConnection1.LoginPrompt :=False;          ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated'+
             ' Security=SSPI;Persist Security Info=False;InitialCatalog'+
             '=ZhuYuan;Data Source='+server;
             ShowMessage('haha');
            ADOConnection1.COnnected:=True;
            DBServerconnected:=1;
          except
            begin
              ShowMessage('hehe');
              ADOConnection1.Close ;
              DBServerconnected:=0;
            end;
          end;
当关闭远程sql数据库服务器后，执行到这里，产生一个弹出对话框"haha"，然后出现一个系统的警告对话框，内容大致是“字符串属性无效”，我问的是怎么样才能使它不自动弹出系统的警告对话框，就是说当远程sql数据库服务器关闭后，就关闭adoconnection1而不做其他动作。thx

Answer 1

try
            Server:=Reg.ReadString('');
            ADOConnection1.LoginPrompt :=False;          ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated'+
             ' Security=SSPI;Persist Security Info=False;InitialCatalog'+
             '=ZhuYuan;Data Source='+server;
            ADOConnection1.COnnected:=True;
            DBServerconnected:=1;
           ShowMessage('haha');//<--------
          except
       on e:exception do  //<-------
            begin
              ShowMessage('hehe');
              ADOConnection1.Close ;
              DBServerconnected:=0;
            end;
          end;
试试看