USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Contar registros em uma tabela
Josefh Hennyere
Pontos: 2843
SALVADOR
BA - BRASIL
ENUNCIADA !
Postada em 10/03/2005 01:58 hs         
Como faço para contar o nº de registros em uma tabela ACCESS.
 
Digamos que TB seja minha tabela, então tentei usar tb.recordcount, e não funcionou.
 
msgbox "minha tabela tem " & tb.recordcount
 
NÃO FUNCIONOU !!!!
   
Ganbity
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 10/03/2005 07:25 hs            
tente assim:
MsgBox "Minha tabela tem " & tabela.RecordCount & ""

"A complexidade do programa cresce até exceder a competência do programador. "

Luciano de Paula

Desenvolvedor - Analista

lufra2@bol.com.br

 
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 10/03/2005 08:10 hs         
dim rst as recordset
set rst = vgdb.openrecordset("select Count(*)  as NRegistros FromTabela"
if rst.recordcount > 0 then
  if not isnull(rst!NRegistros) then
  
     MsgBox "Minha tabela tem " & rst!NRegistros & " registros."
  end if
end if
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 10/03/2005 08:58 hs            
ISso é um bug voce tem que antes mover para o ultimo registro
 
tb.moveMax
contador = tb.recordcount
 
ou usar recordset e um comando sql, aqui esta em ADO mais em DAO é mesma coisa.
 
Set rst = cnn.OpenRecordset("select count(cod_cliente) as contador from tabela", _
        dbOpenSnapshot)       
rst.fileds("contador")
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
Josefh Hennyere
Pontos: 2843
SALVADOR
BA - BRASIL
ENUNCIADA !
Postada em 20/03/2005 14:17 hs         
Até agora nada funcionou !!!!
   
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/03/2005 15:53 hs            
Josefh, vc usa ADO ?
se vc usa, o ADO não retorna o valor correto do recordset
 
tente assim
 
Select Count(*) as Total From Tabela
 
msgbox "tem" & Str(RS!Total)

Roberto
roberto@vbweb.com.br
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página