delphi - 优势 5400 AE_INTERNAL_ERROR

Question

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

这是一段代码(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;

以下是系统统计数据:

处理器:INTEL® Core™2 DUO CPU @ 2.00GHz 2.00 Ghz
安装内存:4.00 GB
系统类型:64位。
操作系统:Windows 7。
编程:德尔福 2010。
优势版本:9.10 64bit
服务器:本地。
表:免费。
请指教。谢谢你，有一个美好的一天。

——鲍勃·安德鲁斯

Answer 1

以下是 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

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