Fórum Data de Aniversário com AdoQuery #329478

15/09/2006

0

Delphi

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

Responder

Posts

15/09/2006

Rjun

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



Responder

Gostei + 0

15/09/2006

Motta

Faltou o dia


extract day from .... = :dia


Responder

Gostei + 0

15/09/2006

Output

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;



Responder

Gostei + 0

15/09/2006

Ranyeryfip

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

Muito obrigado pela a ajuda, consegui resolver meu problema.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar