CONTADOR DE REGISTROS NO DBGRID

SOUZA 29/12/2010 15:51:07
#360642
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.Refresh
XXXANGELSXXX 29/12/2010 16:08:18
#360647 Resposta escolhida
Nao entendi bem ao certo.. mas eu fazia assim para contar os registros.

Sub ContarRegistros()
sua query para buscar a quantidade por dia.
If TDBGrid1.BOF Then
OsenXPFrame2.Caption = [Ô][Ô] & [Ô]Registro : 0 de 0 [Ô]
Else
OsenXPFrame2.Caption = [Ô][Ô] & [Ô]Registro : [Ô] & MyRs.AbsolutePosition & [Ô] de [Ô] & MyRs.RecordCount
End If
End Sub

e chamava a Rotina
CALL CONTARREGISTROS
SOUZA 29/12/2010 16:10:40
#360648
angels obrigado pela força mas me clareia ai sou meio novato esta funcao voce coloca como no projeto ele encaicharia onde na minhas linhas de comando ?
XXXANGELSXXX 29/12/2010 16:16:34
#360651
Private sub command1()
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
label1.Caption = [Ô][Ô] & [Ô]Registro : 0 de 0 [Ô]
Else
label1.Caption = [Ô][Ô] & [Ô]Registro : [Ô] & dyn.AbsolutePosition & [Ô] de [Ô] & dyn.RecordCount
End If
end sub


Aqui, como nao trabalho com esse tipo de coisa.. pode ser que de algum erro.. ok.
SOUZA 29/12/2010 16:35:53
#360656
angels consegui colocar ele mas ele ta duplicando os registros tipo tem 1 registro ele mostra q tem 2
XXXANGELSXXX 29/12/2010 17:44:19
#360666
coloca um print ai.. pois se ta duplicando é sua query que ta errada.
SOUZA 30/12/2010 09:02:53
#360696
nao entendi onde esta o erro dela uso assim nao da erro ?
Tópico encerrado , respostas não são mais permitidas
Voltar