Count To

Adilio Costa 77 comentários

Tempo de leitura: 2 minutos

Olá, no post de hoje iremos falar do comando Count To em ADVPL, utilizado para contar quantos registros tem em uma tabela ou query. 

O comando Count To em ADVPL é muito útil  em situações em que queremos saber a quantidade de registros foi retornada de uma Consulta SQL(query) ou de uma tabela selecionada(DBSelectArea).

 

Sintaxe:

Count To [nReg]

 

Parâmetro(s):

 

1 – Utilizando o comando Count To Para Contar Registros de uma Tabela(Área) Selecionada

 

//Bibliotecas
#Include "Protheus.ch"
 
/*/{Protheus.doc} fCountTo
Exemplo da função Count To em ADVPL
@type function
@author Adilio Costa
@since 27/08/2024
@version 1.0
@‌Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@‌Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@‌Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@‌Conheça os Cursos e Formações do ProtheusAdvpl:
https://protheusadvpl.kpages.online/cursos-e-formacoes-protheusadvpl

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
/*/
  
User Function fCountTo()
    Local aArea  := GetArea()
    Local nReg := 0
     
    //Seleciona a tabela de clientes SA1
    DBSelectArea('SA1')
     
    //Contando os registros e atribuindo o valor a nReg
    Count To nReg
    //Voltando ao topo da tabela
    SA1->(DBGoTop())
     
    MsgInfo("Total de Registros é: "+cValToChar(nReg), "Count To")
    
    //Restaura a área
    RestArea(aArea)
Return

2 – Utilizando o comando Count To Para Contar Registros de uma Consulta SQL(Query)

//Bibliotecas
#Include "Protheus.ch"
 
/*/{Protheus.doc} fCountTo
Exemplo da função Count To em ADVPL
@type function
@author Adilio Costa
@since 27/08/2024
@version 1.0
@‌Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@‌Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@‌Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@‌Conheça os Cursos e Formações do ProtheusAdvpl:
https://protheusadvpl.kpages.online/cursos-e-formacoes-protheusadvpl

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
/*/
  
User Function fCountTo()
    Local aArea  := GetArea()
    Local nReg := 0
     
    //Monta e executa a consulta sql
    cQuery := " SELECT * FROM "+RetSQLName('SA2')+" SA2 WHERE SA2.D_E_L_E_T_ = ' ' "
    TCQuery cQuery New Alias "QrySA2"
     
    //Contando os registros e voltando ao topo da query
    Count To nReg 
    QrySA2->(DBGoTop())
     
    MsgInfo("Total de Registros Retornados pela Query: "+cValToChar(nReg ), "Count To")
     
    QrySA2->(DBCloseArea())
    RestArea(aArea)
Return

 

Bem, finalizamos mais um post aqui no blog ProtheusAdvpl, espero que você tenha entendido, qualquer dúvida deixa seu comentário ou dê sugestões de conteúdo ou sugestões de melhoria aqui no blog. Grande abraço e fica com Deus. 

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.

Artigos relacionados

77 Comentários


  11. (select(0)from(select(sleep(15)))v)/*’+(select(0)from(select(sleep(15)))v)+'”+(select(0)from(select(sleep(15)))v)+”*/


  72. Hi! I understand thhis is somewhat off-topic but I needed too ask.
    Dooes running a well-established bloog such as
    yours require a massive amount work? I’m completely new too blogging but I doo writte in mmy
    diary daily. I’d like tto sttart a blog soo I can easdily sgare myy
    persopnal experdience and thoughts online. Plese lett mme knkw if yyou
    haave anny suggestions or tipps foor new aspiring bloggers.
    Appreciate it!


  73. Greetings! Verry helpful advice in this particular article!
    It’s thhe ittle changes thatt will make the largest changes.
    Thannks forr sharing!

Comentários encerrados.