|
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
|
|
|
|
|
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 !
|
|
|
|
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.
|
|
|