Selecionar Data de Aniversario, dando erro...

24/11/2005

1

Ola programadores...

Estou desde cedo tentando fazer uma consulta simples que me retorne os aniversariantes do dia:

DecodeDate(Date,ano,mes,dia);

Label2.Caption := ´Aniversariantes de Hoje ´+DatetoStr(Date);

//cliente
With IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM CLIENTE´);
SQL.Add(´WHERE EXTRACT(MONTH FROM DTNASCCLI)=:Mes1´);
SQL.Add(´AND EXTRACT(DAY FROM DTNASCCLI)=:Dia1´);
SQL.Add(´AND STATUSCLI = 1´);
ParambyName(´Mes1´).AsInteger := StrtoInt(InttoStr(mes));
ParambyName(´Dia1´).AsInteger := StrtoInt(InttoStr(dia));
Open;
end;

... mas infelizmente o Delphi esta retornando a seguinte mensagem:

´expression evaluation not supported´

Não entendo, porque em outro programa funciona prefeitamente e nesse não !? !? !?
Ja tentei um pouco de tudo e minha ultima esperança é o forum!

Muito Obrigado!!!

Douglas-Altonia


Responder

Posts

24/11/2005

Douglasaltonia

Obrigado a todos!

Acho que consegui identificar o problema, muuuito estranho.

Seguinte:

Já existia uma tabela CLIENTE pronta e eu tive que incluir o campo DTNASCCLI, por esse campo (DTNASCCLI) ser incluido depois, (ALTER TABLE CLIENTE ADD DTNASCCLI DATE) o delphi dava o erro. Tive que excluir a tabela CLIENTE e cria-la novamente com o campo DTNASCCLI aí funcionou beleza. Achei estranho mas... esta funcionando. Sorte que estou no inicio do projeto e não haverá grandes danos...

Mesmo assim muito obrigado pela atenção de todos.

Douglas-Altonia


Responder