引言: 你有沒有用Try Except來處理例外事件ㄋ??

引言: PS:我這段程式, 有的客戶有InterNet, 有的沒有, 所以我不能強制寫在程式中 一定要connect, 所以建置一個按鈕讓user去connection 謝謝!

引言: [blue] 如果沒有InterNet的客戶你資料要連接哪裡ㄋ?? 我建議你用二個ADOconnection,一個給有InterNet的用->ADOconnection1,一個給沒有InterNet的用->ADOconnection2,然後用 Try ADOconnection1.Connected:=True; except ADOconnection2.Connected:=True; end;

引言: 我剛看過 TADOQuery / TADOCustomDataSet 有關 SQL / Command Text 的部份，好像沒去自動 Connect 耶? 其中 CheckInactive 都只是那本身是不是 Active 也沒去 Connect... 建議你將 ADODB.PAS 抄到你那個 DataModule Unit 的 folder, 之後就可以進入去 Debug 和設定 break point 了，看看實則是那行出了問題，甚至改改源程式試試。 我自己沒有用 ADO (連 ADO 頁也全都刪了)所以沒去試試。

引言: 的確, 在我想來, 變更 SQL內容, 不應該是會有Connect行為, 但我實測的情況 1.先將 ADOconnection 關閉(false) 2.到 ADOquery SQL property 中寫 select ........ 語法, 按確定後 3.回到 ADOconnection元件上看, 竟然變為 True, 也就是已connect上 所以我才會有這樣的疑問, 這是ADO的特性嗎, 還是??? 我使用InterBase似乎沒有這樣的問題呢!

引言: 是會這樣子! 在指定或變更 TADOQuery 的 SQL 的內容時 它似乎會去檢查或做一些動作, 可能是編譯 SQL, 檢查 Field, Parameter 之類的 所以它會自動將 Connected 設 True. 既然這樣, 那有辦法在真地要執行 SQL 的動作時 再去指定或變更 SQL 的內容嗎？ --- Have you ever wondered what it would be like?

try
   IBDataBase:=....
   IBquery1.SQL.Text:= 'select ...... where no= :ino order by ....';
except
    ....
end;    在 button地方
  IBQuery1.ParamByName('no').Value:= .....
就樣就好了    
比對一下, 同樣 button, 以 ADOquery時的寫法
try
   ADOconneciton:= True;
   try
      ADOquery.Close;
      ADOquery.SQL.Text:= 'select ...... where no= :ino order by ....';
   except
      ......
   end;
except
   .....
end;    

引言: 小弟測試結果, 如 hagar 所言: ADOQuery.ParamCheck := False , ADOConnection 就不會自動 connect. 壞處是 ADOQuery.Parameters property 都不會自動 add TParameter, 必須 run-time 手動處理. ADOConnection.ConnectionTimeout 把它放小不知有沒有用 ?... 自欺欺人, 呵呵 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=7540183&CC=168637"> 發表人 - Mickey 於 2003/04/01 19:51:27

引言: 想到一個不知行不行？ 就是在指定或變更 SQL 值之前 先將 TADOQuery.Connection 這個屬性值拿掉 --- Have you ever wondered what it would be like?

     SQLparm1:= 'Provider='                  trim(readINI('EPA','Prov')) 
                'Password='                  CL_Decrypt(trim(readINI('EPA','Pass'))) 
                'Persist Security Info='     trim(readINI('EPA','Pers')) 
                'User ID='                   CL_Decrypt(trim(readINI('EPA','User'))) 
                'Initial Catalog='           CL_Decrypt(trim(readINI('EPA','Dat1'))) 
                'Data Source='               CL_Decrypt(trim(readINI('EPA','Sour'))) 
                'Locale Identifier='         trim(readINI('EPA','Iden')) 
                'Connect Timeout='           trim(readINI('EPA','Time')) 
                'Use Procedure for Prepare=' trim(readINI('EPA','Prep')) 
                'Auto Translate='            trim(readINI('EPA','Tran')) 
                'Packet Size='               trim(readINI('EPA','Size')) 
                'Workstation ID='            trim(readINI('EPA','Work'));
     ADOcust.ConnectionString:= SQLparm1;
     tbl1:= CL_Decrypt(trim(readINI('EPA','Tbl1')));  // car
     sql1:= 'select CAR_NO, CAR_TYPE, OWNER_NAME, ' 
            'ADDR, BRAND, CC, ENGINE_NO, OP_DATE, ISSUE_DATE ' 
            'from ' tbl1 ' where CAR_NO= :iCAR_NO';

原先還有一列是
     ADOquery_Cust.SQL.text:= sql1;
但就是如果InterNet是offline 會造成在這行停住死當, 就算超過5分鐘, 
系統也跳不下來    

begin
  ADOQuery1.Connection := nil;
  ADOQuery1.SQL.Text := '...';
end;

begin
  ADOQeury1.Connection := ADOConnection1;
  ADOQuery1.Open;
end;

引言: 小弟的意思是在指定或變更 TADOQuery 的 SQL 屬性前 然後直的要 Open TADOQuery 的時候, 再指定 TADOQuery 的 Connection 屬性, 例:

begin
  ADOQeury1.Connection := ADOConnection1;
  ADOQuery1.Open;
end;

引言: 有辦法先比較新的 SQL 與舊的 SQL 是否不同 若不同再做變更 SQL 的動作呢？ --- 每個人都是一本書