delphi - 优势5400 AE_INTERNAL_ERROR

添加SQL后尝试打开TadsQuery时出现5400 AE_INTERNAL_ERROR。当我将相同的SQL直接放在TadsQuery中时，没有错误。您的帮助文件会指导我联系Advantage技术支持，以便R＆D可以解决问题。技术支持建议我在这里发布。

这是一段代码（由Doug Johnson建议）：

if (Value = '**') or (StartUp) then
with DM1.qadSBSort do
begin
  DisableControls;
for i := 1 to 26 do
begin
  if Active then Close;
  Active := False;
  HText := 'SELECT SBName, SBPath FROM poSBSorted ' +
           ' WHERE [SBName LIKE ''' + CHR(i + 64) + '''] ' +
           ' ORDER BY SBName';
  SQL.Clear();
  SQL.Text := HText;
  try
     try
        Screen.Cursor := crHourGlass;
        Open();

     finally
        Screen.Cursor := crDefault;
     end;

  except
     On E: Exception do
     begin
        if( E.Message <> 'The SQL statement did not '+
              'generate a cursor handle.  Use ' +
              'TAdsQuery.ExecSQL to execute SQL ' +
              'statements that are not SELECT statements' )then
           MessageDlg( E.Message, mtWarning, [ mbOK ], 0 );
     end;
  end;
  Active := True;

以下是系统统计信息：

处理器：2.00GHz 2.00 Ghz的INTEL®Core™2 DUO CPU
安装的内存：4.00 GB
系统类型：64bit。
操作系统：Windows 7。
程式设计：Delphi 2010。
优势版本：9.10 64bit
服务器：本地。
桌子：免费。
请指教。谢谢你，有一个美好的一天。

-鲍勃·安德鲁斯

最佳答案

以下是ADS错误代码的列表：http://devzone.advantagedatabase.com/dz/webhelp/advantage9.1/mergedprojects/adserror/err5xxx/advantage_5xxx_error_codes.htm

错误编号5400状态

This error is an Advantage JDBC Driver internal error. Please send a small re-creation to Advantage Technical Support demonstrating the problem so that Advantage R&D can fix the issue.

我会在他们的新闻组上发布一些代码：http://devzone.advantagedatabase.com/dz/content.aspx?key=7

或获得开发者帐户并请求支持。