Consulta sobre vba III
Na minha Tabela o campo esta como datetime, mas só é preenchido com a data, eu pensei que era em relação a consulta de data pois quando eu faço a consulta no sql , tenho que colocar o ano depois o mês e o dia.
Mas mesmo se eu colocar um valor de data que é para funcionar ex:´2004/08/08´ não aparece nada do mesmo jeito.
data_inicial = CStr(Range(´d1´))
data_final = CStr(Range(´e1´))
..
.
.
.sql = ´SELECT * FROM teste WHERE (data_cadastro between ´ + data_inicial + ´ and ´+data_inicial+´ )´
Mas mesmo se eu colocar um valor de data que é para funcionar ex:´2004/08/08´ não aparece nada do mesmo jeito.
data_inicial = CStr(Range(´d1´))
data_final = CStr(Range(´e1´))
..
.
.
.sql = ´SELECT * FROM teste WHERE (data_cadastro between ´ + data_inicial + ´ and ´+data_inicial+´ )´
Guincaru
Curtidas 0
Respostas
Felipe_cduarte
03/09/2004
Fala blz ??
tipo não manjo nada de vba, pq uso o Delphi, mas será que esse vba nao aceita parametros ? no delphi fica assim:
DtModule.QryBusca.SQL.Add( ´Select * From Cursos Where CCurso = :ParTexto´ );
depois é só passar o parametro:
DtModule.QryBusca.Parameters.ParamByName(´ParTexto´).Value := StrToInt(Trim(edtTexto.Text));
Nao sei se vai ajudar mas tá ai :D
[]´s
tipo não manjo nada de vba, pq uso o Delphi, mas será que esse vba nao aceita parametros ? no delphi fica assim:
DtModule.QryBusca.SQL.Add( ´Select * From Cursos Where CCurso = :ParTexto´ );
depois é só passar o parametro:
DtModule.QryBusca.Parameters.ParamByName(´ParTexto´).Value := StrToInt(Trim(edtTexto.Text));
Nao sei se vai ajudar mas tá ai :D
[]´s
GOSTEI 0