Como faz a contagem dos registro da Query Detail em uma rela��o Master/Detail?

24/04/2023

Tenho em uma das telas duas Grids uma para a Query Master e outra para a Query Detail. Eu consigo fazer a contagem dos registro da query Master e da query Detail na primeira vez que elas s�o abertas, mais das vezes seguintes eu s� consigo fazer a contagem da query Master a Detail s� retorna 0 mesmo tendo registros.

Eu tentei fazer essa contagem em todos os eventos "After" do componente TFDQuery tento da Query Master como da Query Detail, "AfterExecute", "AfterOpen", "AfterRefresh" "AfterScroll"

if DMP.QueryP03B_.RecordCount <= 0 then
begin
  frmPrincipal.EplblListagenItens.Caption := '0 Itens Listados';
end else
if DMP.QueryP03B_.RecordCount = 1 then
begin
  frmPrincipal.EplblListagenItens.Caption := '1 Item Listado'; 
end else
if DMP.QueryP03A_.RecordCount > 1 then
  frmPrincipal.EplblListagenItens.Caption := IntToStr(DMP.QueryP03B_.RecordCount)+' Itens Listados';

Tem algum modo de fazer a contagem desses registros?

Eduardo Silva

Curtir t�pico + 0

Responder

Post mais votado

24/04/2023

imediatamente ap�s obter o resultset, execute o m�todo FetchAll

https://docwiki.embarcadero.com/RADStudio/Sydney/en/Fetching_Rows_(FireDAC)#Refetching_Rows

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

24/04/2023

Arthur Heinrich

Al�m do FetchAll, j� citado, o Pascal oferece a estrutura "case", mais f�cil de visualizar do que os m�ltiplos "if" encadeados.

case DMP.QueryP03B_.RecordCount of
  0 : frmPrincipal.EplblListagenItens.Caption := '0 Itens Listados';
  1 : frmPrincipal.EplblListagenItens.Caption := '1 Item Listado'; 
  else
    frmPrincipal.EplblListagenItens.Caption := IntToStr(DMP.QueryP03B_.RecordCount)+' Itens Listados';
  end;

Ou pode fazer simplesmente:

if (DMP.QueryP03B_.RecordCount = 1) then
  frmPrincipal.EplblListagenItens.Caption := '1 Item Listado'; 
else
  frmPrincipal.EplblListagenItens.Caption := IntToStr(DMP.QueryP03B_.RecordCount)+' Itens Listados';

Responder

Gostei + 1

25/04/2023

Eduardo Silva

imediatamente ap�s obter o resultset, execute o m�todo FetchAll

https://docwiki.embarcadero.com/RADStudio/Sydney/en/Fetching_Rows_(FireDAC)#Refetching_Rows

Testei aqui e n�o funcionou 😭

Responder

Gostei + 0

25/04/2023

Eduardo Silva

imediatamente ap�s obter o resultset, execute o m�todo FetchAll

https://docwiki.embarcadero.com/RADStudio/Sydney/en/Fetching_Rows_(FireDAC)#Refetching_Rows

Testei aqui e n�o funcionou 😭

Ser� tem temnho que configurar alguma coisa no componente?

Responder

Gostei + 0