ERRO NO SQL SUM

Question

FELIZ 2017!!!!!Ol� pessoal...j� faz um tempo que n�o passo por aqui...rsrsrsrs. Enfim, T� tentando gerar um somat�rio por sql e est� dando erro dizendo que ADOQuery1: field Cod_Despesa not found a...

Jones Granatyr · Answer

Opa! D� uma olhada no Fields Editor da query (bot�o direito). Talvez esse campo que est� dando erro esteja adicionado l�, e quando voc� tenta rodar � gerado esse erro...

Fabricio Silva · Answer

N�o entendi o que vc quis dizer Jonas Granatyr....o campo que est� dando erro est� sim na listagem do fields Editor e quando retiro um o mesmo erro passa para o campo seguinte....

Fabricio Silva · Answer

troquei o OPEN por ExecSQL e parou de dar erro mas tamb�m n�o retorna valor algum como resultado da consulta....

Jones Granatyr · Answer

Tentou rodar esse mesmo SQL direto no BD pra ver se est� retornando algo?...

Gxf · Answer

Veja se tem a coluna Cod_Despesa  dentro da tabela no Banco de Dados...

Fabricio Silva · Answer

Tem a coluna sim no bd e eu testei l� e d� o resultado certinho. n�o tenho id�ia mais no que fazer. Eu s� quero somar uma coluna de acordo com o ano digitado em uma caixa de texto o Edit3.Text e colocar o resultado dessa soma em outra caixa de texto cujo valor � o de vrTotal. Eu j� estou surtando aqui....

Gxf · Answer

Desativa o adoquery e ativa de novo,vai que... haha...

Fabricio Silva · Answer

Agora estou tentando assim...mas est� travando ao inv�s de gerar erro.

procedure TForm1.Button3Click(Sender: TObject);
var
vrTotal : Currency;
begin

With DM.ADOQuery1 do
begin
CLOSE;
SQL.Clear;
SQL.Add('SELECT * FROM financeiro WHERE Ano_Despesa=:A');
Parameters.ParamByName('A').Value := Edit3.Text;
OPEN;
end;

vrTotal := 0;
while not DM.ADOQuery1.Eof do
begin
vrTotal := vrTotal + DM.ADOQuery1Valor_Despesa.Value;
Next;
end;

Edit2.Text := FormatFloat('#,##0.00', vrTotal);

end;

Alguma ajuda por favor?????

Fabricio Silva · Answer

Pessoal...consegui segue abaixo o c�digo que funcionou.

// #############################################################
With DM.ADOQuery_Soma_Despesas do
begin
CLOSE;
SQL.Clear;
SQL.Add('SELECT * FROM despesas WHERE Ano_Despesa=:A');
Parameters.ParamByName('A').Value := Edit_Ano_Filtro_Financeiro.Text;
OPEN;

vrTotal := 0;
while not DM.ADOQuery_Soma_Despesas.Eof do
begin
vrTotal := vrTotal + DM.ADOQuery_Soma_DespesasValor_Despesa.Value;
Next;
end;
end;
Edit_Total_Despesa.Text := FormatFloat('#,##0.00', vrTotal);
// #############################################################

F�rum ERRO NO SQL SUM #573431