AJUDA SQL COM DATAS
olá amigos estou tentando fazer uma consuta sql com datas.
funiconaria assim:
eu busco na minha tavbela todas as datas anteriores a data atual (data do PC)
txtdataatual = date
txtdataprevista = Format$(txtdataprevista, [Ô]dd/mm/yyyy[Ô])
With Adodc1
.ConnectionString = [Ô]provider = microsoft.jet.oledb.4.0;[Ô] & [Ô]data Source = [Ô] & App.Path & [Ô]\Cadastro.mdb; jet OLEDB:Database Password=leeday0312[Ô]
.CursorLocation = adUseClient
.RecordSource = [Ô]select * from PedidoVenda where dataprevista < #[Ô] & txtdataatual & [Ô]# order by format(dataprevista, [ô]yyyy/mm/dd[ô])[Ô]
.ConnectionTimeout = 500
.Refresh
End With
Hoje é dia 18/11/2009 e a sql listou as datas anteriores a esta no mês 11, mas não listou datas da mês 10 e tbm listou data do mês 12 que são posteriores a data de hj?
podem me ajudar?
funiconaria assim:
eu busco na minha tavbela todas as datas anteriores a data atual (data do PC)
txtdataatual = date
txtdataprevista = Format$(txtdataprevista, [Ô]dd/mm/yyyy[Ô])
With Adodc1
.ConnectionString = [Ô]provider = microsoft.jet.oledb.4.0;[Ô] & [Ô]data Source = [Ô] & App.Path & [Ô]\Cadastro.mdb; jet OLEDB:Database Password=leeday0312[Ô]
.CursorLocation = adUseClient
.RecordSource = [Ô]select * from PedidoVenda where dataprevista < #[Ô] & txtdataatual & [Ô]# order by format(dataprevista, [ô]yyyy/mm/dd[ô])[Ô]
.ConnectionTimeout = 500
.Refresh
End With
Hoje é dia 18/11/2009 e a sql listou as datas anteriores a esta no mês 11, mas não listou datas da mês 10 e tbm listou data do mês 12 que são posteriores a data de hj?
podem me ajudar?
qual o banco de dados?
qual otipo do campo das datas?
qual otipo do campo das datas?
banco de dados access.
o tipo de campo deixei como texto e fiz o reconhecimento para formato dado no vb.
o tipo de campo deixei como texto e fiz o reconhecimento para formato dado no vb.
se está como texto não sairá correta a consulta, mas você pode converte-lo assim
tente
DataAtual = Format$(DataAtual, [Ô]mm/dd/yyyy[Ô])
With Adodc1
.ConnectionString = [Ô]provider = microsoft.jet.oledb.4.0;[Ô] & [Ô]data Source = [Ô] & App.Path & [Ô]\Cadastro.mdb; jet OLEDB:Database Password=leeday0312[Ô]
.CursorLocation = adUseClient
.RecordSource = [Ô]select * from PedidoVenda where CDate(dataprevista) < #[Ô] & DataAtual & [Ô]# order by dataprevista[Ô]
.ConnectionTimeout = 500
.Refresh
End Withtente
marcelo, mudei o tipo de dados de texto para data no banco de dados e deu certo agora listou certinho...
obrigado pela dica..
só tenho mais uma duvida.
teria como depois da sql filtrar os dados, automaticamente eu alterar o campo situação destas datas da minha tabela para [Ô]ATRASADO[Ô] por exemplo?
obrigado pela dica..
só tenho mais uma duvida.
teria como depois da sql filtrar os dados, automaticamente eu alterar o campo situação destas datas da minha tabela para [Ô]ATRASADO[Ô] por exemplo?
sim claro assim
DataAtual = Format$(DataAtual, [Ô]mm/dd/yyyy[Ô])
With Adodc1
.ConnectionString = [Ô]provider = microsoft.jet.oledb.4.0;[Ô] & [Ô]data Source = [Ô] & App.Path & [Ô]\Cadastro.mdb; jet OLEDB:Database Password=leeday0312[Ô]
.CursorLocation = adUseClient
.RecordSource = [Ô]UPDTE PedidoVenda SET situacao = [ô]ATRASADO[ô] WHERE dataprevista < #[Ô] & DataAtual & [Ô]# [Ô]
.ConnectionTimeout = 500
.Refresh
End With
deu certo muito obrigado marcelo.
disponha colega nà o esquece de encerrar o tópico
Tópico encerrado , respostas não são mais permitidas