Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fauze

Pesquisar entre datas e hora

Recommended Posts

Pessoal,guardo na minha tabela data e hora no formato "dd/mm/aaaa hh:mm:ss".Preciso pesquisar na tabela registro que fiquem entre data inicial + hora inicial e data final + hora final.Estou usando o componente DTPicker para setar as datas de inicio e fim e text para setar as horas de inicio e fim.Não sei como montar essa string.Alguém saberia como resolver ?************************Código************************Private Sub cmdConfirma_Click()Dim dtIni, dtFim As String dtIni = dtpIni.Value dtFim = dtpFim.Value If txtHoraIni.Text = "" Then dtIni = dtIni & " " & "00:00:00" Else dtIni = dtIni & " " & txtHoraIni.Text & ":00" End If If txtHoraFim.Text = "" Then dtFim = dtFim & " " & "00:00:00" Else dtFim = dtFim & " " & txtHoraFim.Text & ":00" End If Sql = "Select * From movimento " Sql = Sql & "Where caixa = " & vId_Usuario Sql = Sql & " and data_mvt Between '" & dtIni & "' and '" & dtFim & "'" rstMovimento.Open Sql, cnn, adOpenKeyset, adLockOptimistic If rstMovimento.EOF Then MsgBox "Não há movimento para esse período !", vbOKOnly, "Atençao !" End If rstMovimento.CloseEnd Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara, hora, data e afins...

 

 

tem que ser passado como Quoted, ou seja, com aspas...

 

Um exemplo para você... no caso, o codigo do aluno no meu sistema é String...

Sql = "Select * from Aluno Where Cod_Aluno = " & "'" & GridPesquisa.Text & "'"

flw aew!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

PS.: Vitor... eu devolvo os seus livros!!! eheheh!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Hugo,Não resolveu, mas de qualquer forma obrigado pela dica...Vou deixar o código que resolveu ....

      Sql = "Select * From movimento "      Sql = Sql & "Where caixa = " & vId_Usuario      Sql = Sql & " and data_mvt Between #" & Format(dtIni, "yyyy/mm/dd hh:mm:ss") & "# and #" & Format(dtFim, "yyyy/mm/dd hh:mm:ss") & "#"   rstMovimento.Open Sql, cnn, adOpenKeyset, adLockOptimistic

Fauze

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,Faz assim, salva a data em um campo e a hora em outro, agora faz as consultas.Pra data sempre tem que colocar o # antes e depois, não precisa usar apóstrofo (aspa simples).Faz duas consultas, uma com between no intervalo de datas e outra também com between no intervalo de horas, concatena as duas e bingo, se não funcionar posta ai, mas tenho certeza que funciona porque uso assim!Flw, T+ :D :D :D

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.