Data de Aniversário com AdoQuery

Delphi

15/09/2006

Galera estou precisando colocar no meu programa uma função que verifique se tem CLIENTE fazendo aniversário no corrente dia. Eu utilizo ADOQUERY, jah procurei no forum e não encontrei nada que me ajude. Jah tentei a função abaixo e não dar certo com ADOQUERY.

Query.Close; 
Query.SQL.Clear. 
Query.SQL.Add(´Select * from TabelaAlunos where EXTRACT(MONTH from DataAniver) = :MES´); 
Query.ParamByName(´MES´).AsInteger := StrToInt( FormatDateTime( ´MM´,Date ) ); 
Query.Open;


Obrigado.


Ranyeryfip

Ranyeryfip

Curtidas 0

Respostas

Rjun

Rjun

15/09/2006

Por que não está dando certo? Aparece alguma mensagem de erro ou o resultado não é o esperado?

Só fazendo uma correção. O correto é

Query.Parameters.ParamByName



GOSTEI 0
Motta

Motta

15/09/2006

Faltou o dia


extract day from .... = :dia


GOSTEI 0
Output

Output

15/09/2006

tenta assim:

var ano, mes, dia: word;
begin

DecodeDate(now, ano, mes, dia);

qry.Close;
qry.SQL.Clear;
qry.SQL.Add(´Select * from Clientes WHERE Day(Data_Nasc) = ´ + ´´´´ + IntToStr(dia) + ´´´´);
qry.SQL.Add(´ and Month(Data_Nasc) = ´ + ´´´´ + IntToStr(mes) + ´´´´);
qry.Open;

if not qry.isEmpty then
begin
ShowMessage(´Hoje tem aniversariantes. Confira!´);
end;



GOSTEI 0
Ranyeryfip

Ranyeryfip

15/09/2006

[b:819aad098d]Rjun, Motta e rodrigomiss[/b:819aad098d]

Muito obrigado pela a ajuda, consegui resolver meu problema.


GOSTEI 0
POSTAR