delphi - 处理DbExpress SQL错误代码245

Question

我正在尝试为我的中学考试构建一个调度程序应用程序，并且如果教师在某周，某天和某小时上课，我正在查询数据库。有没有一种方法可以使用DBExpress在Delphi Xe2中处理Sql错误代码？我在SQL Server2008上执行查询(我让用户选择参数)，这就是问题所在；如果用户将一个参数字段留空，则我的应用程序在图像中显示该消息；好吧，这不是一种显示错误消息的用户友好方式，因此我尝试处理异常而没有成功:这是我编写的用于查询SQL Server的代码:

with DataModule1.QueryV1 do
 Try
    Close;
    SQL.Clear; // clear command sql if there is
    SQL.Add ('SELECT * FROM OrarC WHERE IDZi =' +
    QuotedStr(LlbZiua.KeyValue)+ 'and IDInterval=' + QuotedStr(LlbIntOrar.KeyValue) +
     'and IDSala='+ QuotedStr(EdtIDSala.Text)+ EdtSaptamana.Text);
    Open;
  except
    on E:TDBXError do begin
      showmessage('Error!');
    end;
  End;

在E:TDBXError上，我也尝试过E:EDataBaseError，结果是相同的；最好通过返回的SqlErrorCode处理错误，但我不知道该如何获取。

Answer 1

在调试器下运行程序，并观察引发的异常的实际类，或者可以在运行时通过以下方式获取异常类:

  ..
except on E: Exception do
  ShowMessage(E.ClassName);
end;

如果确实是TDBXError，则可以使用例如

uses
  dbxcommon;

except
  on E: TDBxError do begin
    if (E.ErrorCode = TDBXErrorCodes.InvalidArgument) then
      ..

但据我所知245不是TDBXErrorCodes之一，因此可能还有另一个异常。如果它是EDatabaseError，则没有什么可做的，因为该类没有错误代码字段。

不太相关，但还可以看到Data.DBXCommon.TDBXConnection.OnErrorEvent能够在中央位置管理dbexpress异常。