請問ADO的錯誤訊息攔截要如何撰寫,BDE有EBDEnginerror Object Support,那ADO呢? 謝謝!

參考李維 ADO 那本書, 有詳細說明。

Hi,Hager 李維那本書已看過，那個範例在Delphi6.0 Run會有些問題,須再做一些宣告才能Run,我的問題出現在 "adoErrors:=adoConnection1.Errors" 找不到Errors 相關定義, 我該怎麼做？Thanks!

這樣可不可以？

uses ADODB;
  
var
  adoErrors: Errors;
begin
  adoErrors := adoConnection1.Errors;
  // ...
end;

謝謝,Hager. 我將delphi/source/VCL的ADO相關檔案COPY至測試路徑,就可以RUN了.但是還是無法攔截錯誤訊息,經程式測試發現以下問題 1. FOR 迴路的ADOERRORS.COUNT值為0 2. LOCATE 一個不存在資料也無任何反應 請大家幫忙指正謝謝 ！ unit fADOErrorsMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, Db, ADODB, StdCtrls, DBTables; type TForm4 = class(TForm) ADOConnection1: TADOConnection; ADODataSet1: TADODataSet; ADODataSet1emp_id: TStringField; ADODataSet1fname: TStringField; ADODataSet1minit: TStringField; ADODataSet1lname: TStringField; ADODataSet1job_id: TSmallintField; ADODataSet1job_lvl: TWordField; ADODataSet1pub_id: TStringField; ADODataSet1hire_date: TDateTimeField; DataSource1: TDataSource; DBNavigator1: TDBNavigator; DBGrid1: TDBGrid; lbADOErrors: TListBox; btnSearchField: TButton; edtFieldName: TEdit; edtFieldValue: TEdit; procedure ADODataSet1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure btnSearchFieldClick(Sender: TObject); private { Private declarations } procedure ShowADOErrors; public { Public declarations } end; var Form4: TForm4; implementation {$R *.DFM} procedure TForm4.ADODataSet1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin //開始處理ADO的Errors物件 ShowADOErrors; end; procedure TForm4.btnSearchFieldClick(Sender: TObject); var bResult : Boolean; begin try bResult := ADODataSet1.Locate(edtFieldName.Text, edtFieldValue.Text, [loCaseInsensitive , loPartialKey]); ShowADOErrors; except on E : Exception do ShowMessage(E.Message); end; end; procedure TForm4.ShowADOErrors; var adoErrors : Errors; adoError : Error; iCount : Integer; begin adoErrors := ADOConnection1.Errors; showMessage(inttostr(adoerrors.count)); for iCount := 0 to adoErrors.Count - 1 do // Iterate begin adoError := adoErrors.Item[iCount]; lbADOErrors.Items.Add('Error Number : ' IntToStr(adoError.Number)); lbADOErrors.Items.Add('Error Source : ' adoError.Source); lbADOErrors.Items.Add('Error Description : ' adoError.Description); lbADOErrors.Items.Add('Error HelpFile : ' adoError.HelpFile); lbADOErrors.Items.Add('Error SQLState : ' adoError.SQLState); lbADOErrors.Items.Add('Error NativeError : ' IntToStr(adoError.NativeError)); end; // for end; end.

引言: procedure TForm4.btnSearchFieldClick(Sender: TObject); var bResult : Boolean; begin try bResult := ADODataSet1.Locate(edtFieldName.Text, edtFieldValue.Text, [loCaseInsensitive , loPartialKey]); ShowADOErrors; // 這一行應該放在 Except 下 except on E : Exception do ShowMessage(E.Message); end; end;

另外, 書上不是說 Error 有分 Provider 的 Error 跟什麼的 Error 嗎？ (書沒在身邊, 所以 ...) 您的 OnPostError 是什麼 Error 呢？

請參閱以下程式,我測試結果ADOERRORS.COUNT值為0,所以無任何錯誤訊息會被顯示出來,我想請問一下是程式撰寫有誤,還是call errors本身的vcl 有問題. procedure TForm4.ShowADOErrors; var adoErrors : Errors; adoError : Error; iCount : Integer; begin adoErrors := ADOConnection1.Errors; for iCount := 0 to adoErrors.Count - 1 do // Iterate begin adoError := adoErrors.Item[iCount]; lbADOErrors.Items.Add('Error Number : ' IntToStr(adoError.Number)); lbADOErrors.Items.Add('Error Source : ' adoError.Source); lbADOErrors.Items.Add('Error Description : ' adoError.Description); lbADOErrors.Items.Add('Error HelpFile : ' adoError.HelpFile); lbADOErrors.Items.Add('Error SQLState : ' adoError.SQLState); lbADOErrors.Items.Add('Error NativeError : ' IntToStr(adoError.NativeError)); end; // for end;

這麼說好了, 您在 OnPostError 所觸發的 Error 不一定是 ADO 類的 Error。 所以有可能即使發生 Error, 但 ErrorCount 值還是 0。

請問用delphi去修改資料,在未更新前用sql將同一資料改為另一個值,再到delphi去做更新動作產生錯誤 ,請問這是那一種error?

to Hagar, 我弄懂了. Thanks!

引言: to Hagar, 我弄懂了. Thanks!

真的嗎？ 小弟那天回家後, 趕緊拿了那本書來翻 結果發現您寫的跟書上的應該一樣 所以實在不知道為什麼達到預期的結果 可以說一下您試的結果嗎？ 至於 Locate 的問題, 書上也說了 是 Delphi 的原始碼漏了一行, 補上去就行了 -- Everything I say is a lie.