这是delphi的一个bug吗？

Question

使用delphi7.0中用TSqlQuery执行如下类型的sql语句，无法获得记录总数
Select distinct FieldName
From TableName
Where FieldName2=''
无法使用TSqlQuery.RecordCount获得记录总数,一获得就报错说没有这个接口。
但是执行这个sql语句的时候就可：
Select FieldName
From TableName
Where FieldName2=''
我如何在执行有distinct 语句的sql后，获得记录总数？

Answer 1

把distinct的sql语句换成group by 来做吧

Answer 2

TSQLQuery  ？？是你自己封裝的？

Answer 3

或者TDataSet(SqlQuery).RecordCount试试

Answer 4

//给个ADOQuery的
procedure TFrmPort.FBPrintClick(Sender: TObject);
var
 sqlstr:string;
begin
  inherited;
  with ADOQuery1 do
  begin
    sqlstr :=' select distinct Code_No from port ';
    sql.Clear;
    sql.Add(sqlstr);
    Open;
    ShowMessage(IntToStr(RecordCount));//16  end;
end;

Answer 5

TSQLQuery  ？？是你自己封裝的？
==================
是DBExpress中的sql语句查询组件。