CONTAR REGISTRO EM SQL EM VB6
                    Olá galera! estou precisando de uma rotina para contar registro no vb6 em sql
                
            
                    Boa tarde!
Existem vários exemplos na internet, em uma pesquisa rápida já encontrei esse:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/157-select-count-dao.htm
AÃ tem exemplo tanto mostrando em DAO, quanto em ADO.
Dica: Quando for postar, tente especificar ao máximo sua dúvida, em que ponto está tendo dificuldade. Fazer um Count no VB6 envolve muita coisa. DAO ou ADO? Sua dúvida é em criar o SELECT ou em fazer conexão? etc... Explicando melhor sua dificuldade, fica mais fácil te ajudar.
Abraços!
            Existem vários exemplos na internet, em uma pesquisa rápida já encontrei esse:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/157-select-count-dao.htm
AÃ tem exemplo tanto mostrando em DAO, quanto em ADO.
Dica: Quando for postar, tente especificar ao máximo sua dúvida, em que ponto está tendo dificuldade. Fazer um Count no VB6 envolve muita coisa. DAO ou ADO? Sua dúvida é em criar o SELECT ou em fazer conexão? etc... Explicando melhor sua dificuldade, fica mais fácil te ajudar.
Abraços!
                    Seria algo assim?
[txt-color=#0000f0]Select Count(*) as NroRegistros From Tabela...[/txt-color]
Ou pode fazer um loop na tabela
não sei se entendi
                
            [txt-color=#0000f0]Select Count(*) as NroRegistros From Tabela...[/txt-color]
Ou pode fazer um loop na tabela
não sei se entendi
                    Amigo, se você simplesmente quer contar os registros da tabela voce pode usar:
Quer somar numa variavel registro por registro?
Ou se quiser uma condição
Ou seja, existem inumeras maneiras, se nenhuma serviu, seja mais especifico por favor para que possamos ajudar.
abraços!
              rs.recordcount Quer somar numa variavel registro por registro?
  Do while not rs.EOF = True
         Variavel = Variavel + 1 [ô]ou quantos voce quiser
         rs.movenext
LoopOu se quiser uma condição
 sSQL = [Ô]SELECT * FROM suatabela WHERE campo = condição[Ô] 
Do while not rs.EOF = True
         Variavel = Variavel + 1 [ô]ou quantos voce quiser
         rs.movenext
LoopOu seja, existem inumeras maneiras, se nenhuma serviu, seja mais especifico por favor para que possamos ajudar.
abraços!
                            Faça seu login para responder
                        
                    


