如果数据库联接不上反复连接!!!
procedure TForm1.Timer1Timer(Sender: TObject);
label 10;
begin
 10:
   begin
     try
       {....连接数据库语句...}
     except
       goto 10;
     end;
   end;
end;

解决方案 »

  1.   

    不用goto也能反复连接。
    Timer1.inteval:=500; //0.5秒连接一次
    procedure TForm1.Timer1Timer(Sender: TObject);
    //label 10;
    begin
     //10:
       begin
         try
           {....连接数据库语句...}
         except
          // goto 10;
         end;
       end;
    end;
      

  2.   

    liangyong007a(梦里有云,心中有天地) ( ) 
    谢谢,两码事儿
      

  3.   

    用while循环,sleep控制间隔时间也可
      

  4.   

    建议不要用goto语句,用其他语句控制
      

  5.   

    谢谢 hellolongbin(一个人) ( ) 信誉:100 我只是当网络断了以后,不出现错误,反复连接,直到连同为止,和时间没有关系
      

  6.   

    谢谢   liangyong007a(梦里有云,心中有天地) ( ) 信誉:96 太夸张!!!难道就没有好的办法么!我用vb一直是返回错误号怎么知道返回的错误号是什么呢???
      

  7.   

    连接不上
    你也不应该反复连接啊
    你应该在timer中设置一个限制
    如果超过一定时间后还连接不上就应该信息提示退出来了
    不然哪里是尽头啊:)
      

  8.   

    谢谢    Kshape(伟大的大伟/给我个支点/我就能翘起整个地球仪) ( )大家不要总是看 那个timer业务功能需要那个,和数据库不能连接,反复连接 不是一回事儿谢谢业务需要反复连接,一直到连上为止谢谢大家,
      

  9.   

    begin
      repeat  
        try
          //Connecting
        Fianlly
          //最好做个延时处理
        end;
      until Connection.Connected;   
    end;
      

  10.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      while not ADOConnection1.Connected do
      begin
        try
          ADOConnection1.Connected:=true;
        except
          ;
        end;
      end;
    end;