QUERY VB6

NETVOO 17/11/2013 17:02:50
#431198
Olá pessoal boa tarde.

Tenho que verificar dentro dessa query todos os registros de acordo com o filtro na data atual.
E somar de acordo com o modelo abaixo e se ele se enquadrar no perfil eu tenho que separar esse usuário e os dados do calculo em um grid e em um relatório impresso.

Alguém pode dar uma ajuda de como fazer isso.

rs.Open [Ô]Select nome, entrada1, saida1, entrada2, saida2, n_identificador from usuarios where data LIKE [ô][Ô] & txtdatahoje.Text & [Ô][ô][Ô], conex, adOpenKeyset, adLockOptimistic

if (Executar essa rotina para todos registros do banco de dados vindo da select acima) then
lblHoraFinal.Caption = DifHoras(rs!entrada1, rs!saida1)
lblHoraFinal2.Caption = DifHoras(rs!entrada2, txthoraagora.Text)
lblnomefuncionariio.Caption = rs!nome

lblentrada1.Caption = rs!entrada1
lblsaida1.Caption = rs!saida1

lblentrada2.Caption = rs!entrada2
lblsaida2.Caption = rs!saida2

lblvalortotal.Caption = SOMAHORAS(lblHoraFinal, lblHoraFinal2)
lblvalortotal = Format(lblvalortotal, [Ô]hh:nn[Ô])
[ô]lblvalortotal = DateDiff([Ô]h[Ô], CDate(lblHoraFinal), CDate(lblHoraFinal2))
End If
RO.DRIGOSG 19/12/2013 15:54:17
#432333
NETVOO,

Pelo que entendi, você quer apenas percorrer os registros do recordset, correto? Se for isso mesmo, basta acrescentar ao seu código o Loop (
Do While Not rs.EOF
)


Do While Not rs.EOF
  if (Executar essa rotina para todos registros do  banco de dados vindo da select acima) then
       lblHoraFinal.Caption = DifHoras(rs!entrada1, rs!saida1)
       lblHoraFinal2.Caption = DifHoras(rs!entrada2, txthoraagora.Text)
       lblnomefuncionariio.Caption = rs!nome
       
            lblentrada1.Caption = rs!entrada1
            lblsaida1.Caption = rs!saida1
        
       lblentrada2.Caption = rs!entrada2
       lblsaida2.Caption = rs!saida2
    
           lblvalortotal.Caption = SOMAHORAS(lblHoraFinal, lblHoraFinal2)
           lblvalortotal = Format(lblvalortotal, [Ô]hh:nn[Ô])
           [ô]lblvalortotal = DateDiff([Ô]h[Ô], CDate(lblHoraFinal), CDate(lblHoraFinal2))
         End If	

        rs.MoveNext
Loop
Tópico encerrado , respostas não são mais permitidas
Voltar