1

我正在尝试为我的学期考试构建一个调度程序应用程序，如果老师在某周、某天和某个小时有课，我正在查询数据库。有没有办法使用 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 处理错误会很好，但我不知道如何得到它。 在此处输入图像描述

4

1 回答 1

2

在调试器下运行您的程序并观察引发的异常的实际类，或者您可以在运行时获取异常类，例如：

  ..
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 异常。

于 2012-05-18T10:09:16.747 回答