Total de registros

Question

A� pessoal,

Seguinte,

Criei um banco de dados ACCESS com uma tabela de clientes. No menu principal do programa eu coloque um Label que exibir� o n�mero de registros no banco de dados, tabela clientes. Como farei isso?

OBS: Estou usando o ADO para fazer a conex�o com a tabela

Abra�os

R�mulo Barros · Accepted Answer

[code:1:06d8509c84]Query.Close;Query.sql.clear;Query.sql.add(�select * from clientes�);query.open;label.caption := IntToStr(Query.recordcount);[/code:1:06d8509c84]...

Fatrix · Answer

Dica retirada do Deephi 1.3[quote:9fbe8477a8]Inclua na se��o uses: DbiProcsOs componentes TTable e TQuery e TADOTable possuem a propriedade RecordCount que indicam aquantidade de registros da tabela. No entanto esta propriedade � dependente de filtros,ou seja, se tivermos uma tabela com dez registros com campo �Codigo� de 1 a 10 eaplicarmos o filtro mostrado a seguir, a propriedade RecordCount retornar� 5 e n�o 10.Table1.Filter := �Codigo <= 5�;Table1.Filtered := true;Se quizermos obter a quantidade total de registros, independentemente de filtros,devemos usar uma API do BDE conforme abaixo:varTotal: integer;beginCheck(DbiGetRecordCount(Table1.Handle, Total));ShowMessage(�Total de registros: � + IntToStr(Total));end;Observa��es: Para testar o exemplo acima, o Table1 precisa estar aberto.     [/quote:9fbe8477a8]...

Redoctober · Answer

[quote:e8a4b75c24]Query.Close; Query.sql.clear; Query.sql.add(�select * from clientes�); query.open; label.caption := IntToStr(Query.recordcount);[/quote:e8a4b75c24]Meu formulario principal chama-se form1, como eu faria para esse c�digo rodar assim que o form1 for aberto e al�m disso ficar executando toda a rotina em tempo realAbracos...

Thematrix:reloaded · Answer

Use o componente TTimer, no evento OnTimer vc executa sua rotina....

Vinicius2k · Answer

[quote:7cf5ed6680=�redoctober�]Meu formulario principal chama-se form1, como eu faria para esse c�digo rodar assim que o form1 for aberto e al�m disso ficar executando toda a rotina em tempo realAbracos[/quote:7cf5ed6680]N�o � uma cr�tica... s� uma dica... mas vc j� analizou o impacto de processamento e acesso ao disco da execu��o dessa rotina na sua aplica��o via onTimer?A n�o ser q vc queira apenas atualizar periodicamente com um intervalo de timer razo�vel... se for de poucos segundos vc estar� comprometendo muito o desempenho...T+...

Thematrix:reloaded · Answer

Para Vinicius2K:Concordo com vc, mas faltou uma coisa na sua dica, que outra op��o nosso colega teria para resolver o problema proposto?...

Redoctober · Answer

[quote:366644712e=�TheMatrix:Reloaded�]Para Vinicius2K:Concordo com vc, mas faltou uma coisa na sua dica, que outra op��o nosso colega teria para resolver o problema proposto?[/quote:366644712e]Poderia usar o while?...

Vinicius2k · Answer

[quote:853e4d0e33=�TheMatrix:Reloaded�]Concordo com vc, mas faltou uma coisa na sua dica, que outra op��o nosso colega teria para resolver o problema proposto?[/quote:853e4d0e33]Veja bem Matrix, como disse, eu n�o critiquei sua sugest�o... acredito que o Timer seja a �nica forma de faz�-lo... apenas sugeri que ele pensasse de vale a pena implementar isso, pois vai comprometer a performance... e se ele realmente precisar implementar, que procure utilizar um intervalo que n�o comprometa tanto...Acho que a sugest�o de c�digo do UI tbm pode ser aperfei�oada para diminuir um pouco o tr�fego de dados... usando o COUNT e n�o trazendo todos os registros com o (*):[code:1:853e4d0e33]  Query1.Close;  Query1.SQL.Clear;  Query1.SQL.Add(�select count(CODIGO_CLIENTE) from CLIENTES�);  Query1.Open;  Label1.Caption:= IntToStr(Query1.FieldByName(�COUNT�).AsInteger);[/code:1:853e4d0e33]T+...

Thematrix:reloaded · Answer

Ok!...

Fatrix · Answer

Outra op��o � usar o RXLIB, existe um componente chamado
DBStatusLabel (se encontra na paleta RXDBAware) que pode ser configurado para mostrar o total de registros.
Ele funciona assim:
1 : 5
ou seja registro 1 de 5 no total.

Eu s� n�o sei se funciona com ADO, mas vale a pena tentar.

� isso.
Espero ter ajudado.

Andre Couto · Answer

[quote]Outra op��o � usar o RXLIB, existe um componente chamado DBStatusLabel (se encontra na paleta RXDBAware) que pode ser configurado para mostrar o total de registros.Ele funciona assim: 1 : 5ou seja registro 1 de 5 no total.Eu s� n�o sei se funciona com ADO, mas vale a pena tentar.� isso.Espero ter ajudado.gostaria de saber mais pois nao consegui usar o dbstatuslabel para dar a quantidade...

F�rum Total de registros #231480