Pesquisando data no mysql com vb

[Clauido José]

Ola pessoal tenho um sistema feito em vb 6.0 e uso o mysql 4.1.22 como banco de dados, e utilizo mySql Connector 3.51 para fazer a conexão to com um problema na hora de fazer pesquisas por data tipo assim quando eu informo uma data distante por exemplo '01/08/2009' a '31/08/2009' ele traz o resultado da pesquisa certinho agora por exemplo se eu quero uma unica data '26/08/2009' a '26/08/2009' ele não fala que o banco não encontrou resultado algum. Estou fazendo da seguinte maneira.

Dim adores As New DBRecordset
    Dim indice As Integer
    Dim DataInicial As String
    Dim DataFinal As String
    If Not FormConsiste(Me) Then Exit Sub
    DataInicial = Me.Controls((FormControl.GetIndex("PesDatIni")))
    DataFinal = Me.Controls(FormControl.GetIndex("PesDatFim")).Text
    DataFinal = (Year(DataFinal) & "-" & Month(DataFinal) & "-" & Day(DataFinal))
    DataInicial = (Year(DataInicial) & "-" & Month(DataInicial) & "-" & Day(DataInicial))
    Dim Sql As String
    Sql = "SELECT * FROM Processos WHERE ProDatIni >= '" & Format(DataInicial, "YYYY-MM-DD HH:MM:SS") & _
          "' OR ProDatFim <= '" & Format(DataFinal, "YYYY-MM-DD HH:MM:SS") & "' AND ProSta = 1 Order by ProDatIni"
    adores.OpenRecordset DBCnx, Sql, CTForwardOnly, CLServer, LTReadOnly
    lstField(LstIdxPro).ListItems.Clear
    indice = 1
    If adores.EOF Then
        MsgAtt "Não foram encontrados processos neste periodo"
        Exit Sub
    Else
        Do While Not adores.EOF
            lstField(LstIdxPro).ListItems.Add , , adores.GetFieldValue("ProRec")
            lstField(LstIdxPro).ListItems.Item(indice).Tag = adores.GetFieldValue("ProCod")
            lstField(LstIdxPro).ListItems.Item(indice).SubItems(1) = adores.GetFieldValue("ProDatIni")
            lstField(LstIdxPro).ListItems.Item(indice).SubItems(2) = adores.GetFieldValue("ProDatFim")
            lstField(LstIdxPro).ListItems.Item(indice).SubItems(3) = Format(adores.GetFieldValue("ProPesPro"), "00000")
            lstField(LstIdxPro).ListItems.Item(indice).SubItems(4) = Format(adores.GetFieldValue("ProPesRea"), "00000")
            lstField(LstIdxPro).ListItems.Item(indice).SubItems(5) = adores.GetFieldValue("ProUsr")
            adores.MoveNext
            indice = indice + 1
        Loop
    End If

[raphael_suporte]

tente adicionar a sua data o valor do time tipo de 00:00:01 ate 23:59:59, isso pode ajudar

[kuroi]

faca como o raphael disso, ou não ponha a hora na mascara, compare apenas a data.

[Clauido José]

ainda não consegui resovler o gosado é que se eu peguar um periodo do mes ele traz de boa agora um data proxima não ta trazendo o uma data do dia.

[kuroi]

tb não use OR, use AND

[Clauido José]

já tentei os dois da na mesma será que por causa da mascara do text que quando eu tiro o foco ele formata a data com hh:mm:ss ?

[kuroi]

clauido, no banco de dados, as datas estao salvas com hora junto?? qual o tipo de dados do campo??

se estiver como varchar, ai não vai dar certo mesmo ne.

acho q o melhor é q esteja como timestamp.

faz o seguinte, ponha o cursor na linha adores.OpenRecordset DBCnx, Sql, CTForwardOnly, CLServer, LTReadOnly e aperte F9 pra adicionar um breakpoint. a linha vai ficar vermelha. ai rode o programa com F5 e faca a pesquisa normalmente. quando chegar na linha acima, ele deve pausar o programa.

então, abra o immediate window (ctrl + g) e digite:

? Sql

e aperte enter

ele vai mostrar o conteudo da query q ele ta tentando executar.

ai poste esse conteudo q ele mostrar ai no forum.

[raphael_suporte]

não sei se tem haver, o kuroi pode dar a certeza se é algo parecido, mas um tempo atrás tive um problema com consulta de data e só funcionou quando adicionei ao formato o código 103 também.

tipo assim:

Format(DataFinal, "YYYY-MM-DD HH:MM:SS",103)

[kuroi]

nossa, aqui ele nem aceitou o 103.

alias, uma coisa q eu nunca soube foi pra q servem o tercero e o quarto parametro da funcao Format().

[Clauido José]

é verdade aqui tb não funcionou e to quebrando a acabeça com isso tive que entragar o sistema com essa falha e estou pesquisando porque acontece já tirei no formato a hh:mm:ss só trazendo as data informada e nada o que pode ser.

[kuroi]

e quanto a isso tdo aqui q eu postei la em cima??

clauido, no banco de dados, as datas estao salvas com hora junto?? qual o tipo de dados do campo??

se estiver como varchar, ai não vai dar certo mesmo ne.

acho q o melhor é q esteja como timestamp.

faz o seguinte, ponha o cursor na linha adores.OpenRecordset DBCnx, Sql, CTForwardOnly, CLServer, LTReadOnly e aperte F9 pra adicionar um breakpoint. a linha vai ficar vermelha. ai rode o programa com F5 e faca a pesquisa normalmente. quando chegar na linha acima, ele deve pausar o programa.

então, abra o immediate window (ctrl + g) e digite:

? Sql

e aperte enter

ele vai mostrar o conteudo da query q ele ta tentando executar.

ai poste esse conteudo q ele mostrar ai no forum.

[Clauido José]

A minha query aparece assim

SELECT * FROM Processos WHERE ProDatIni >= '2009-08-27' and ProDatFim <= '2009-08-27' Order by ProDatIni

[raphael_suporte]

hum.. acho que o 103, é para o convert, agora não lembro quando tiver tempo em pesquiso ou pego o codigo no formarto que falei.

parece está OK seu código, já tentou rodar sem o Order By?

[kuroi]

e quanto a isso aqui??

clauido, no banco de dados, as datas estao salvas com hora junto?? qual o tipo de dados do campo??

se estiver como varchar, ai não vai dar certo mesmo ne.

acho q o melhor é q esteja como timestamp.

A minha query aparece assim

SELECT * FROM Processos WHERE ProDatIni >= '2009-08-27' and ProDatFim <= '2009-08-27' Order by ProDatIni

olha uma coisa, clauido. essa query so vai retornar se existir um registro q os DOIS CAMPOS data inicio e data fim forem essa mesma data do dia 27. tem algum registro na tabela com esse valor??

[Clauido José]

No campo da tabela esta em datetime o formato vem assim 'yyyy-mm-dd hh:mm:ss' essa tabela são o processo que são feitos diariariamente e tenho que gerar um relatorio desse processo, por exemplo tem que trazer por um certo periodo ou por um unico dia.

[raphael_suporte]

Claudio, o que o Kuroi quis dizer, é que no formato que está sua tabela para pegar um valor o registro tem que ter data de inicio e data final com o mesmo valor, você tem como verificar se realmente existe um registro assim?

essa tabela são o processo que são feitos diariariamente e tenho que gerar um relatorio desse processo, por exemplo tem que trazer por um certo periodo ou por um unico dia.

você quis dizer, que todo registro inicia e termina no mesmo dia?

[Clauido José]

isso detalhe gravando hora minuto e segundo só que no relatorio por exemplo se eu digitar a data 27-08-2009 ele tem que trazer todos os processo desse dia

Editado Setembro 1, 2009 por Clauido José