BDE VS ADO數據庫中的錯誤處理

Question

我在BDE所有數據庫使用EDatabaseError

try 

//all database related operations 

Except 

on EDatabaseError do 
begin 
    showmessage(e.message) 
end; 

End; 

但ADO我有關的相關誤差修改可以處理工作的Delphi 7 +的SQLserver

嘗試不同的例子，我得到不同的錯誤，如EOleError/EDatabaseError/...

我嘗試了2點以下在ADO中引發錯誤，並且我得到了不同的錯誤

1）在sql server存儲過程中，我在第一行發生錯誤。當我執行該程序使用在德爾福TADOStoredProc我得到EOleError。

2）在TADOQuery我已經寫了錯誤的SQL語句，所以當我打開 TADOQUery我得到EDatabaseError。

所以現在我很困惑如何處理ADO錯誤。 我不想檢查所有的錯誤（EOleError，EDatabaseError，EAdoError ...）在每一個形式，所以我寫了2個例子， 請建議我哪一個是好的。如果兩者都不對，請給我一個很好的例子。

實施例1：
我在這裏僅示出一個示例形式中的Delphi所以程序HandleErrors和功能GetErrorDescription可能看起來笨。我不想在所有表格中編寫相同的 代碼。當涉及到真正的場景我要保留德爾福程序處理錯誤和函數GetErrorDescription在不同的單位，並在整個應用程序中使用該單位。

type 
    TForm1 = class(TForm) 
    ADOConnection1: TADOConnection; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    Procedure HandleErrors(e: Exception); 
    function GetErrorDescription : WideString; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

function TForm1.GetErrorDescription : WideString; 
var 
    LastErrorIndex : Integer; 
begin 
    LastErrorIndex :=ADOConnection1.Errors.Count-1; 
    Result:=ADOConnection1.Errors.Item[LastErrorIndex].Description; 
    //Code   :=ADOConnection1.Errors.Item[LastErrorIndex].NativeError; 
end; 

procedure TForm1.HandleErrors(e: Exception); 
var 
    Code: Integer; 
    ErrorDescription: WideString ; 
begin 
    if e is EOleError then 
    ShowMessage(GetErrorDescription) 
    else 
    if e is EDatabaseError then 
    ShowMessage(GetErrorDescription) 
    else 
    if e is EADOError then 
    ShowMessage(GetErrorDescription) 
    else 
    ShowMessage(GetErrorDescription) 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    try 
    // any database related operations 
    except 
    on E : Exception do 
    begin 
     HandleErrors(E); 
    end; 
    end; 
end; 

end. 

實施例2：

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs,ADODB, StdCtrls, DB,COMOBJ; 

type 
    TForm1 = class(TForm) 
    ADOConnection1: TADOConnection; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    LastErrorIndex : Integer; 
begin 
    try 
    // any database related operations 
    except 
    on E : Exception do 
    begin 
     LastErrorIndex :=ADOConnection1.Errors.Count-1; 
     ShowMessage(ADOConnection1.Errors.Item[LastErrorIndex].Description); 
    end; 
    end; 
end; 

end. 

其實例是更好的。你可以請建議一個好的

Answer 1

正如我在評論中所說，你不應該分散AdoConnections和數據集跨多個表單/相反，你應該把它們放在一個數據模塊然後在你的窗體的單位使用數據模塊的單位。這樣，您就可以將表單上的TDataSources和db-aware組件連接到數據模塊的數據集。

你可以做的另一件事是安裝一個應用程序範圍的異常處理程序來集中你的異常處理，如果這是你想要做的。 Delphi的Application對象有一個OnException事件，您可以使用如下所示的代碼將其分配給您自己的異常處理程序。

應用程序範圍的異常處理程序的缺點是在OnException處理程序中很難識別哪個對象實際上是造成異常的原因。

type 
    TMainForm = class(TForm) 
    [...] 
    procedure FormCreate(Sender: TObject); 
    private 
    procedure ApplicationException(Sender: TObject; E: Exception); 
    public 
    end; 

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    Application.OnException := ApplicationException; 
end; 

procedure TMainForm.ApplicationException(Sender: TObject; E: Exception); 
var 
    AErrors : Errors; 
    AError : Error; 
    i : Integer; 
    S : String; 
begin 
    Caption := 'Exception'; 
    if E is EDatabaseError then begin 
    AErrors := DataModule1.AdoQuery1.Connection.Errors; 
    for i := 0 to AErrors.Count - 1 do begin 
     AError := AErrors.Item[i]; 
     S := Format('Number: %d, NativeError: %d, source: %s, description: %s', 
     [AError.Number, AError.NativeError, AError.Source, AError.Description]); 
     Memo1.Lines.Add(S); 
    end; 
    end; 
end;