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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Contador de registros no DBGrid
assistency
NOVA FATIMA PR
PR - BRASIL
ENUNCIADA !
Postada em 29/12/2010 15:52 hs         
Pessoal blz, preciso fazer um contador pra um sistema onde na tela principal ele fale vc tem tantas reunioes pra hj com um dbgrid oculto por traz trazendo o relatorio caso ele queira ver quais sao as reunioes mas o detalhe e como fazer ele contar quantos registros vieram no dbgrid e jogar isso em forma de txtbox. segue o codigo que uso pra gerar o relatorio ja tentei usar o count mas nao consegui encichar no meu codigo

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Temp.Mdb", False, False)
query = "Select * From Reunioes order by data"
Set dyn1 = XBCO.CreateDynaset(query)
While Not dyn1.EOF
dyn1.Delete
dyn1.MoveNext
Wend

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "SELECT* FROM Reunioes order by data"
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF



If dyn("data") = DataReuniao Then
dyn1.AddNew

dyn1("DATA") = dyn("DATA")
dyn1("PASTA") = dyn("PASTA")
dyn1("PARTE") = dyn("PARTE")
dyn1("NATUREZA") = dyn("NATUREZA")
dyn1("PROCESSO") = dyn("PROCESSO")
dyn1("HORARIO") = dyn("HORARIO")
dyn1.Update
End If

dyn.MoveNext
Wend

XBCO.Close
xxbco.Close
Data1.Refres
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 29/12/2010 18:20 hs            
A quantidade de registros do dbgrid é a quantidade que da o xxbco.RecordCount
   
assistency
não registrado
ENUNCIADA !
Postada em 30/12/2010 09:06 hs   
nao entendi onde entra isso !
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 30/12/2010 09:28 hs            
Esse sql traz a quantidade de registros usando o recordcount
query = "SELECT* FROM Reunioes order by data"
Set dyn = xxbco.CreateDynaset(query)

dim qte as integer
qte=dyn.RecordCount  'pega a quantidade de registros da tabela  que logicamente sera o que va prencher no dbgrid.

   
Página(s): 1/1    

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