EXTRACT() do firebird no delphi
23/03/2016
0
select IDDESPESA,
DESCRICAO,
VALOR,
DATA_VENCIMENTO,
PAGO,
extract(DAY from DATA_VENCIMENTO) AS DIA,
extract(MONTH from DATA_VENCIMENTO) AS MES,
extract(YEAR from DATA_VENCIMENTO) AS ANO
from TBDESPESAS
where 1 = 1
order by ANO, MES, DIA
meu problema é que quando coloco qryRelDespesas.FieldByName('DIA').AsInteger o delphi informa que esta coluna não existe? O que está errado?
Emir Neto
Post mais votado
23/03/2016
[b]1º Metodo[/b]: Colocando o código SQL no seu código fonte:
with qryRelDespesas do begin Close; SQL.Clear; SQL.Text := 'select IDDESPESA, DESCRICAO, VALOR, DATA_VENCIMENTO, PAGO, ' + ' extract(DAY from DATA_VENCIMENTO) AS DIA, extract(MONTH from DATA_VENCIMENTO) AS MES, ' + ' extract(YEAR from DATA_VENCIMENTO) AS ANO from TBDESPESAS where 1 = 1 order by ANO, MES, DIA'; Open; end; ShowMessage(IBQuery1.FieldByName('DIA').AsString);
[b]2º Método[/b]: Você digita o código SQL diretamente propriedade SQL da query em tempo de projeto.
Neste caso para que funcione, dê duplo clique na Query, botão direito e adicione todos os fields na query.
Natanael Ferreira
Mais Posts
23/03/2016
Isaac Jose
23/03/2016
Emir Neto
23/03/2016
Emir Neto
Clique aqui para fazer login e interagir na Comunidade :)