Como Adicionar o resulta da query
Bom dia
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 ?
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
Curtidas 0
Respostas
Pestana_
09/10/2008
você já verificou se este select realmente tem que retornar o valor que você quer? por ex.: você poderia executar este select no banco para verificar se realmente está retornando o valor desejado atraves dos parametros informado.
tente dessa maneira:
como eu não conheço o Zeous pode até haver algum erro de comando, mas o conceito é esse!
bom espero ter ajudado!
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
F4rr3ll
09/10/2008
Pestana valeu mesmo, ficou esteticamente mais organizado, eu ja havia testado no banco e ele retorna a quantidade dos produto requerido, so que quando rodo no delphi, o edit fica em branco, eu seja não pega o conteudo do campo total do sql, mesmo da forma que vc me passou ainda não aparece nada, e no banco de dados aparece o resultado
GOSTEI 0
Pestana_
09/10/2008
deve ser problema relacionado ao formato da data!
de uma olhada neste tópico: [ http://forum.devmedia.com.br/viewtopic.php?t=97709&highlight=data ]
de uma olhada neste tópico: [ http://forum.devmedia.com.br/viewtopic.php?t=97709&highlight=data ]
GOSTEI 0
F4rr3ll
09/10/2008
Vlw, pestana o topico que vc passou resolvel o problema
Obrigado a todos
Obrigado a todos
GOSTEI 0