ActiveDelphi

josemoreira · Enviada: Qua Ago 12, 2020 12:01 pm Assunto: Gravar Select em um EDIT

Gostaria de saber como gravar o select abaixo em um EDIT , fiz varios teste e não consegui. Delphi 7 .

select sum(v.vdavlr) from venda v inner join finalizacao f on v.vdaseq=f.vdaseq where v.cxa='002' and v.vdadat='01.07.2020' and v.vdatip='1' and f.fzdcod='001

imex · Enviada: Qui Ago 13, 2020 4:13 pm Assunto:

Boa tarde,

O que você conseguiu fazer?
Conseguiu fazer a conexão com o banco de dados?
Que tipo de componente está utilizando?
Conseguiu executar a consulta?
Preencheu a consulta no componente em design ou via código?
Como está o seu código?
Está sendo exibida alguma mensagem de erro? Qual?

josemoreira · Enviada: Sex Ago 14, 2020 11:50 am Assunto:

Bom dia,

...desculpe é que estou começando agora a programação.

Apaguei tudo e estou começando. Poderia tirar essa duvida para mim.

Estou rodado os comandos abaixo , mais o valor que mim traz é diferente do mesmo comando que rodo o IBexpert direto no banco.

no Edit ( pre_dinheiro.text) mim dá o valor de 33,46 e no ibexpert no banco mim dá um valor de 186,25

procedure TForm1.bt_aplicarClick(Sender: TObject);
begin

q2.Close;
q2.sql.Clear;
q2.sql.add('select sum(prvvlr)as total from prevenda');
q2.Open;
pre_dinheiro.Text := Q2.FieldByname('total').AsString;
end;
end.

imex · Enviada: Sex Ago 14, 2020 2:52 pm Assunto:

Boa tarde,

A mesma consulta deve retornar o mesmo resultado na sua aplicação (não vi nenhum problema no trecho de código que você postou) e no IBExpert.
Confirme se a sua aplicação está acessando o mesmo banco de dados e tabela que você está usando no IBExpert, e se o Edit utilizado no código é o que você está verificando.

Espero que ajude