Fazer com que edit receba resultado sql...
Saudações, estou desejando fazer o seguinte:
procedure Tfrmconesc.DBGrid1CellClick(Column: TColumn);
begin
with qyconta do
begin
close;
sql.clear;
sql.add(´select sum(qtde) as total from compraesc´);
sql.add(´where nome like ´¬´ + dbgrid1.selectedfield.asstring + ´¬´´);
sql.add(´order by nome´);
open;
edqtde.text := qyconta.Fieldbyname(´total´).asstring;
end;
end;
Ao se clicar no nome do produto o edit vai receber a quantidade deste produto na tabela. Até aí tudo bem o problema é que o edit fica em branco e mesmo que eu mude o código pondo parâmetro ou algo assim ele continua do mesmo jeito. Me sinto até meio envergonhado pois sei que deve ser uma solução ridicularmente simples. Mas fazer o que? Quando não se sabe...bem, muito obrigado
procedure Tfrmconesc.DBGrid1CellClick(Column: TColumn);
begin
with qyconta do
begin
close;
sql.clear;
sql.add(´select sum(qtde) as total from compraesc´);
sql.add(´where nome like ´¬´ + dbgrid1.selectedfield.asstring + ´¬´´);
sql.add(´order by nome´);
open;
edqtde.text := qyconta.Fieldbyname(´total´).asstring;
end;
end;
Ao se clicar no nome do produto o edit vai receber a quantidade deste produto na tabela. Até aí tudo bem o problema é que o edit fica em branco e mesmo que eu mude o código pondo parâmetro ou algo assim ele continua do mesmo jeito. Me sinto até meio envergonhado pois sei que deve ser uma solução ridicularmente simples. Mas fazer o que? Quando não se sabe...bem, muito obrigado
Elias Jr
Curtidas 0
Respostas
Marcelo Saviski
29/09/2003
Tenta tirar o [color=green:4ee388e704]sql.add(´order by nome´); [/color:4ee388e704]dai
GOSTEI 0
Smaug_84
29/09/2003
vc tem certeza que dbgrid1.selectedfield.asstring retorna alguma coisa?
GOSTEI 0
Elias Jr
29/09/2003
vc tem certeza que dbgrid1.selectedfield.asstring retorna alguma coisa?
Eu já retirei o order by mas quanto ao selectedfield eu naum sei, qual seria então que retornaria o nome do produto quando clicássemos nele?
GOSTEI 0
Elias Jr
29/09/2003
Galera, muito obrigado mas já consegui resolver o que eu queria...o que me retorna o valor para o edit é o dbgrid1.Columns[1].Field.Text. Valeu pela ajuda! Fui!!!
GOSTEI 0