各位好,    Timer1的OnTimer每10分鐘執行以下動作: with ADOQuery1 do begin if not Connection.Connected then Connection.Connected := True; if Active then Requery() else Open; end; 假設我在9分59秒時將網路斷線30秒後又將其恢復連線, 此時執行ADOQuery1.Open便會出現connection failure錯誤, 而且往後每次觸發Timer1.OnTimer都一直是相同錯誤. 可是Connection.Connected已經是True了耶?! p.s. DataBase : SQL Server 2000

star您好, 多加一個ADOQuery.Active判斷看看 if (not Connection.Connected) and (not Active) then Connection.Connected := True;

star 你好

Begin
  with ADOQuery1 do begin
    try
    if not Connection.Connected then Connection.Connected := True;
    Except
    End;
    // 誰能保證Connection.Connected := True; 之後一定能連結成功呢?
    If Connection.Connected Then Begin  // 所以加個判斷
    if Active then Requery()
    else Open;
    End;
    // 連結不成功則10 分鐘後再重試
  End;
end;
或
Var
  i : Integer ;
Begin
  i := 0;
  with ADOQuery1 do begin
    // 試著連線10 次不成功才算失敗
    While i < 10 Do Begin
      Try
        Connection.Connected := True;
        Break;
      Except
        Inc(i);
        Sleep(100); // 稍作延遲
      End;
    End;
    If i < 10 Then 
     if Active then Requery()
     else Open;
    End;
  End;
end;    

發表人 - chance36 於 2004/04/12 19:41:50

引言: star 你好 [code] Begin with ADOQuery1 do begin try if not Connection.Connected then Connection.Connected := True; Except End; // 誰能保證Connection.Connected := True; 之後一定能連結成功呢? If Connection.Connected Then Begin // 所以加個判斷 if Active then Requery() else Open; End; // 連結不成功則10 分鐘後再重試 End; end;

***// 誰能保證Connection.Connected := True; 之後一定能連結成功呢?*** -->不好意思, 這點我沒表達清楚, 我是trace到此處時, 顯示connected是true, 但是又不能open, 才覺得奇怪... 另外, 我試用了第一個方法, 結果如下: If Connection.Connected Then Begin //網路線無論拔掉與否,Connceted都是True if Active then Requery() //無法requery,因為沒有寫except所以有錯誤訊息產生 else Open;//無法open,因為沒有寫except所以有錯誤訊息產生

star 你好     剛剛試了一下，也順便看了help，發現幾個問題 1.當AdoConnection.KeepConnection= True;時(一般常用的)只要一次連線成功後,其Connected永遠等於True，即使伺服器早已掛了也一樣，表示連線狀況有所改變時，Connected值不會跟著改變。 2.當AdoConnection.KeepConnection= False;時剛好你的程式碼就可以正常運作了(當然在開啟或Requery時要用Try except包起來) 3.當AdoQuery的Connection設定為AdoConnection的話,只要Adoquery要須要AdoConnection會自動的開啟連結,故你的程式碼可簡化成

  Try
    If AdoQuery1.Active Then
      AdoQuery1.Requery()
    Else
      AdoQuery1.Open;
  Except
    //未連線的處理
  End;

是的, 不要keepconnection就可以了. 奇怪,昨天我也試過改以不要keepconnection, 可是沒看到正確的結果, 可能試太多方法, 陰錯陽差... 經由前輩您的指點, 簡化之後, 成功了, 謝謝您鼎力相助.