delphi - 捕获 TClientDataSet.CommandText 中的错误

Question

我有一个连接到 TDataSetProvider 的 TClientDataSet，而 TDataSetProvider 又连接到 TAdsQuery。我设置 SQL 命令，然后打开 ClientDataset，如下所示:

try
  CDS.CommandText := 'SELECT * FROM tablename WHERE fieldname = 1';
  CDS.Open
except
  // trap exception here - this never gets executed!
end;

但是，如果 CommandText 中的 SQL 语句失败(语法错误或其他错误)，我会在 Advantage 代码中收到异常，但它永远不会被我自己的异常处理代码捕获。

有什么方法可以让我捕获此错误并将其很好地报告给用户。或者有没有办法在执行 SQL 查询之前验证其语法？

我正在使用 Delphi Pro 2009 和 Advantage Local Server 9。

Answer 1

优势包括EADSDatabaseError这将提供有关引发的异常的更多信息。

try
  CDS.CommandText := 'SELECT * FROM tablename WHERE fieldname = 1';
  CDS.Open
except
on E: EDatabaseError do
begin
  if ( E is EADSDatabaseError ) then
  begin
    ErrorString := (E as EADSDatabaseError).SQLErrorCode + E.Message;
    application.messagebox ( pchar(ErrorString), 'Advantage Database Error', 0 )
  end
  else
    application.messagebox (pchar(E.message), 'Native Database Error', 0 );
  end;
end;

您可以在执行 SQL 语句之前检查其语法，方法是使用 VerifySQL TAdsQuery 组件的方法。如果 SQL 语法不正确，这将引发 EADSDatabaseError 异常。