Fórum Como Adicionar o resulta da query #364827
09/10/2008
0
estou eu aqui denovo, vida de novato num é mole não,
estou tentando coocar o resultado de um sql em um edit, só que ta osso
a sequencia é a seguinte:
procedure TfrmCalEstMinimo.BitBtn1Click(Sender: TObject);
var
DtInicio, DtFinal, CodProd: String;
begin
DtInicio := DateToStr(EdtDtInicio.Date);
DtFinal := DateToStr(EdtDtFinal.Date);
CodProd := EdtCodigo.Text;
qrCalcProduto.Close;
qrCalcProduto.SQL.Clear;
qrCalcProduto.SQL.Add(´select produto, sum(qtde) as total from vendas_itens´);
qrCalcProduto.SQL.Add(´where produto = :CodProd´);
qrCalcProduto.SQL.Add(´and emissao between :DtInicio and :DtFinal´);
qrCalcProduto.SQL.Add(´group by produto´);
qrCalcProduto.Open;
qrCalcProduto.ExecSQL;
edtConsMedio.Text := qrCalcProduto.fieldbyName(´total´).AsString;
end;
preciso retornar a quantidade de produto x vendido em um mes até ae tudo bem estou usando o zeos, com uma zquery, roda sem erro, mais o valor do campo ´total´ não aparece no edit.
Oq estaria errado ?
F4rr3ll
Curtir tópico
+ 0Posts
09/10/2008
Pestana_
tente dessa maneira:
procedure TfrmCalEstMinimo.BitBtn1Click(Sender: TObject);
begin
with qrCalcProduto do
begin
Close;
SQL.Clear;
SQL.Add(´select produto, sum(qtde) as total from vendas_itens ´);
SQL.Add(´where produto = :codProd and emissao between :dtInicio and :dtFinal ´);
SQL.Add(´group by produto ´);
ParamByName(´codProd´).AsInteger := StrToInt(EdtCodigo.Text);
ParamByName(´dtInicio´).AsDate := EdtDtInicio.Date;
ParamByName(´dtFinal´).AsDate := EdtDtFinal.Date;
Open;
edtConsMedio.Text := FieldByName(´total´).AsString;
end;
end; como eu não conheço o Zeous pode até haver algum erro de comando, mas o conceito é esse!
bom espero ter ajudado!
Pestana.
Gostei + 0
10/10/2008
F4rr3ll
Gostei + 0
10/10/2008
Pestana_
de uma olhada neste tópico: [ http://forum.devmedia.com.br/viewtopic.php?t=97709&highlight=data ]
Gostei + 0
20/10/2008
F4rr3ll
Obrigado a todos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)