ActiveDelphi

[fabiosys]

Boa noite, Todos


Estou tentando fazer uma comparação entre a data do rel do windows e 1 tabela de produtos aonde me mostraria só os produtos com data vencida naquele dia. coloquei um Maskedit e fiz a comparação mas não dá certo já que me mostra todos

Na adoquery eu fiz assim

Select * from produtos where data_vencimento;

no botão aonde da o start na "pesquisa" eu fiz


Begin
if datamodule1.qestoquedatavencimento.value = maskedit1.text then
fastreports1.showReport(true) else
ShowMessage('Não existem produtos com a data vencida para hoje!');
end;
end.


Desde já muito orbigado

[joemil]

no MySQL tem a funcao CURDATE(), q retorna a data atual:

[fabiosys]

Bom dia


Então no que eu fiz a select conforme vc me enviou esta dando o seguinte erro:


Função "curdate" indefinida na expressão pq será?

[joemil]

vc tem q verificar qual funcao do seu banco de dados é compativel com a CURDATE, pq esta funcao é do MySQL

qual BD vc ta usando?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[fabiosys]

Eu estou usando o access

[marcellomm]

No seu ADOquery:

[fabiosys]

Agora diz que o parametro date não têm valor padrão...

[fabiosys]

humm isso resolvi fui em parameters e coloquei date ai gerou o valor padrão 00/00/00 srrs agora testar

[fabiosys]

Etsranhamente não esta dando certo tentei até fazer um if mas mesmo assim nada.

depois de usar sua dica tentei fazer assim mas tb não deu certo pq os dois modos mostram tudo incusive os que estão sem data!

if datamodule1.QEstoquedata_vencimento.Value <= maskedit1.Text then
datlist.ShowReport(true)else
application.MessageBox('Não existem produtos com data vencida','.::: AVISO :::.',64);

[joemil]

tenta assim:

Select * from produtos where data_vencimento = :data

ADOQuery1.ParamByName('data').AsDate := Date;
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[marcellomm]