strsql = "SELECT COUNT(falta) AS Contagem FROM falta where codigo = " & frmfaltas.txtcodigo.Text " & and data between " & Format(mskinicio.Text, "'dd/mm/yyyy'")& " and " & Format(Mskfinal.Text, "'dd/mm/yyyy'")
Set rsconsulta = cnn.Execute(strsql)
If rsconsulta.EOF Then
txtres.Text = 0
Else
txtres.Text = rsconsulta("contagem")
End If
Set rsconsulta = Nothing
End Sub
O erro esta no betweem precisava consultar as faltas do funcionario por data!
Pergunta
Guest Galdino
Ola pessoal de novo eu!
Não consigo fazer uma consulta com BETWEEN!
tenho essa instrução
Private Sub cmdconsultar_Click()
Dim inicio As Date
Dim fim As Date
'fim = mskfinal.Text
'inicio = mskinicio.Text
strsql = "SELECT COUNT(falta) AS Contagem FROM falta where codigo = " & frmfaltas.txtcodigo.Text " & and data between " & Format(mskinicio.Text, "'dd/mm/yyyy'")& " and " & Format(Mskfinal.Text, "'dd/mm/yyyy'")
Set rsconsulta = cnn.Execute(strsql)
If rsconsulta.EOF Then
txtres.Text = 0
Else
txtres.Text = rsconsulta("contagem")
End If
Set rsconsulta = Nothing
End Sub
O erro esta no betweem precisava consultar as faltas do funcionario por data!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.