Estat�sticas do sistema

Question

Tenho um form de estat�sticas do meu programa. Nesse form tem v�rios bot�es, por exemplo, num deles, tem a fun��o de mostrar o tanto de cadastros feitos em uma tabela. Mas n�o sei o c�digo, pois usava paradox e agora que migrei para firebird o c�digo n�o funciona.

Como fa�o?

Uso palheta InterBase, bd firebird.

Obrigado.

Daniel_mc · Answer

Amigo, como nunca usei Firebird n�o posso te dar certeza, mas em MySQL usando Query�s por exemplo vc poderia fazer isto de v�rias formas:

Dando uma instru��o SQL:

Select Count(*) from Tabela

Assim n�o � muito recomendado, mas caso seja pequena a tabela:

Query.RecordCount;

Ou Criando uma vari�vel para armazenar o numero de registros dentro de um Loop:

Cont:=0;
While not Query.Eof do
   Begin
     Cont:=cont+1;
      query.next;
   end;

Agora isto se o numero de Cadastros for o numero de registros da tabela

Iniciante12345 · Answer

Ent�o quer dizer que o segundo c�digo, se quando a tabela estiver muito cheia, ele n�o funcionar�? Ser� que at� uns 50 mil funciona?...

Sremulador · Answer

voc� at� pode usar o recordcount desde que de uma olhada geral na tabela tipo um fetchall outra maneira seria um count (qualquer campo)...

Iniciante12345 · Answer

Bom. � o seguinte, eu tentei o �ltimo c�digo e ficou assim (normalmente, ao clicar num bot�o que tem que mostrar uma mensagem com o resultado):

procedure TFrmEstatisticas.BitBtn1Click(Sender: TObject);
var Cont: integer;
StrCont: string;
begin
Cont:=0;
While not IbLivros.Eof do
Begin
Cont:=cont+1;
IbLivros.next;
end;
StrCont := IntToStr(Cont);
ShowMessage(StrCont);
end;

Mas n�o d� certo. O que ele mostra, independente do tanto de cadastros, � 0.

O que tem de errado???

Onde tenho que usar esse c�digo que me passaram? H� outra forma de fazer o que quero? Por favor, me ajudem com os passos certos.

Agrade�o.

F�rum Estat�sticas do sistema #298004