Selecionar Data de Aniversario, dando erro...
24/11/2005
0
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
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
Douglasaltonia
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)