Ola pessoal estou com mais um problema!
Não estou conseguindo realizar consultas com por data
com maskeditbox e banco Sql Server 2000 ja tentei de tudo
mas não consegui.
Segue abaixo a minha ultima tentativa sem sucesso!

--------------------------------------------------

Private Sub cmd_buscar_Click()

Dim tot_str As String
Dim tot_reg As String
Dim dia As Integer
Dim mes As Integer
Dim ano As Integer

tot_reg = rs_cons.RecordCount
'retira o dia
dia = Trim(Left(msk_data_1.Text, 2))
'retira o mes
mes = Trim(Mid(msk_data_1.Text, 4, 2))
'retira o ano
ano = Right(msk_data_1.Text, 4)

'retira o dia
dia_db = Trim(Left(rs_cons!Data, 2))
'retira o mes
mes_db = Trim(Mid(rs_cons!Data, 4, 2))
'retira o ano
ano_db = Right(rs_cons!Data, 4)

rs_cons.MoveMin

If dia = dia_db And mes = mes_db Then
           
        grid_listagem_consulta.Rows = tot_reg + 1

        For cont_1 = 1 To tot_reg

            grid_listagem_consulta.Col = 0
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!num_lote
   
            grid_listagem_consulta.Col = 1
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!linha
   
            grid_listagem_consulta.Col = 2
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!op
   
            grid_listagem_consulta.Col = 3
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!cod_prod
   
            grid_listagem_consulta.Col = 4
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!qtde
   
            grid_listagem_consulta.Col = 5
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!obs
   
            grid_listagem_consulta.Col = 6
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!Data
   
            grid_listagem_consulta.Col = 7
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!hora
   
            grid_listagem_consulta.Col = 8
            grid_listagem_consulta.Row = cont_1
            grid_listagem_consulta.Text = rs_cons!usuario
       
        rs_cons.MoveNext
        Next
End If
End Sub

---------------------------------------------------------------

Se alguem puder me ajudar!

Minha consulta Sql tambem esta estranha
eu tenho registros na tabela com datas diferentes
Ex: 11/11/2005 - 12/11/2005 - 13/11/2005 - 14/11/2005
eu entro no Sql Query Analyzer e digito o seguinte codigo:

select *
from tbl_dados
where data '14/11/2005'

ele da erro - nao retorna nada
so me retorna os registros do dia 11/11/2005 como descrito abaixo:

select *
from tbl_dados
where data '11/11/2005'

Não consegui entender o porque!

Obrigado!
rodrigo-developer@hotmail.com

me adicionem no msn de vcs

Rodrigo,

 

Qto ao seu segundo problema, da consulta q nao retorna as datas, vc nunca deve passar para o SQL Server datas no formato Britanico (dd/mm/yyyy).. ele nao aceita...

ou melhor, ate aceita, qdo ele tem certeza q a data ta nesse formato, tipo "25/12/2005", ele sabe q nao existem mes 25 e entao converte a data... mas data como "11/12/2005" vai ser sempre 12 de Novembro...

Pra evitar esses problemas, passa sempre a data no formato Ingles (mm/dd/yyyy) ou no Internacional (yyyy-mm-dd)... eu prefiro esse ultimo... afinal, eh o formato interno do SQL Server...

 

Qto ao outro problema, vou ler com calma a sua rotina, e se encontrar solução, posto abaixo...

 

Flw!

Utilize a função CONVERT do SQL Server e transforme a data para o seu formato de pesquisa. Olha um exemplo: