Cita:
Empezado por alexander_lv
Código Delphi [-]
function RecordCountinQuery_feched(qr: TpFIBQuery):Integer;
var
i:Integer;
begin
i:=0;
while qr.Eof=False do
begin
Inc(i);
qr.Next;
end;
result:=i;
end;
|
Claro, el problema de esta función es que al igual que al usar
First +
Last, o
FetchAll, se recuperan todos los registros de la base de datos. En ese caso yo sugeriría construir manualmente una consulta con la cláusula
COUNT.