Somando em Select e jogando em dbedit
03/04/2006
0
[color=green]datamodule2.mat_vendas_soma.SelectSQL.Add(´select sum(valor_total) from mat_vendas where id_venda = :pvenda´)[/color]
O que acontece:
Tenho estas 2 tabelas, vendas e mat_vendas.
Eu preciso pegar o valor total dos itens da mat_vendas para jogar em um dbedit da tabela vendas.
mas não consigo, ele não funciona.
O que pode ser feito?
Valeu!
Ricieri
Posts
03/04/2006
Nasguone
03/04/2006
Ricieri
with datamodule2.valor_total_venda do
begin
Close;
ParamByName(´pvendamat´).AsInteger := datamodule2.vendas.FieldByName(´ID_Venda´).AsInteger;
Open;
datamodule2.valor_total_venda.close;;
datamodule2.valor_total_venda.sql.clear;
datamodule2.valor_total_venda.SQL.Add(´select sum(a.valor_total) as total from mat_vendas a where a.id_venda = :pvendamat´);
datamodule2.valor_total_venda.open;
dbedit3.text := datamodule2.valor_total_venda.fieldbyname(´total´).text;
end;
04/04/2006
Rjun
Observações:
1. Passe o valor do parâmetro depois que você criar sua Query.
2. Se você está usando o WITH (que eu particulamente não uso), não precisa ficar repetindo o datamodule2.
3. Você pode por essa instrução SQL direto no seu componente TQuery em vez de ficar enfiado isso dentro do seu código.
4. Não fique deixando as querys abertas sem necessidade. Abra a query, faça o que tem q fazer, depois feche.
begin with datamodule2.valor_total_venda do begin valor_total_venda.sql.clear; valor_total_venda.SQL.Add(´select sum(a.valor_total) as total from mat_vendas a where a.id_venda = :pvendamat´); valor_tota_venda.ParamByName(´pvendamat´).AsInteger := vendas.FieldByName(´ID_Venda´).AsInteger; try valor_total_venda.Open; Edit1.text := valor_total_venda.fieldbyname(´total´).text; finally valor_total_venda.Close; end; end;
Clique aqui para fazer login e interagir na Comunidade :)