Como saber a qtd de registros devolvidos numa query

Delphi

16/03/2004

Olá a todos,
gostaria de saber como faço para saber a quantidade de registros
que aparecem num dbgrid, numa consulta qualquer.

ex:
codigo descrição
01 arroz
02 feijão
03 açucar

no final quero que tenha um edit com o valor da quantidade de registros, nesse caso: 3.

Desde já obrigado!
Ricardo Palhares.


Ricardoapalhares

Ricardoapalhares

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

16/03/2004

query.Open;
query.FetchALL;

SHowMessage(IntToStr(query.RecordCount));


o record count é o número de registros no query.


GOSTEI 0
Louzada

Louzada

16/03/2004

Se estiver utilizando ClientDataSet é bem simples:

Dê um duplo clique no CLienteDataSet. Adicione todos os campos desejados da tabela. Agora clique com o botão direito do mouse no FieldEditor e escolha NewField. Na caixa New Field digite TOTAL_REGISTROS para Name, escolha a opção Aggregate e clique em Ok.

Note que um TAggregateField é criado, ficando separado dos demais fields. Selecione-o, e na propriedade Expression digite COUNT(CAMPOCHAVE). Altere Active para True.

Selecione o ClientDataSet e altere sua propriedade AggregatesActive para true.

Execute a sua aplicação e observe o campo agregado. Um campo agregado na verdade é um campo TField normal, mostrando o total da tabela.


GOSTEI 0
Ricardoapalhares

Ricardoapalhares

16/03/2004

valeu louzada,
era isso mesmo que tava precisando!!

Ricardo Palhares.


GOSTEI 0
POSTAR