Fórum Consulta Usando SQL, ajuda. #368339

opa... não sei se entendi perfeitamente tua dúvida, mas não seria apenas o caso de definir a ordem dos campos na SQL, assim:



Ou ainda.... um simplese depois adicionar os fields no DBGrid..... de um duplo clique sobre o ocomponente, adicione todos os campos e ordene conforme sua necessidade.

Espero que ajude.... qualquer coisa, post ai de novo

Att

Deve haver outra forma de obter o mesmo resultado. Aí vai uma delas, talvez não seja a melhor, mas funciona:

Fiz a consulta dessa forma

select estoque.Descricao, (select sum (estoque.quant) from estoque where CodLoja = ´1´) as QuantLoja1, (select sum (estoque.quant) from estoque where CodLoja = ´2´) as QuantLoja2, (select sum (estoque.Quant) from estoque where CodLoja = ´3´) as QuantLoja3
from estoque
group by estoque.Descricao


Só que onde tem QuantLoja1 os campos ficam todos com um valor apenas

Acabo de resolver a consulta, segue abaixo o código que fiz

IBDataSet1.CLOSE;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(´select estoque.Descricao, (select sum (estoque.quant) from estoque where CodLoja = ´ + QuotedStr(´1´) + ´ AND estoque.COD LIKE:ACHA) as QuantLoja1, (select sum (estoque.quant) from estoque where CodLoja = ´ + QuotedStr(´2´) + ´ AND estoque.COD LIKE:ACHA) as QuantLoja2, (select sum (estoque.Quant) from estoque where CodLoja = ´ + QuotedStr(´3´) + ´ AND estoque.COD LIKE:ACHA) as QuantLoja3, (select sum (estoque.Quant) from estoque where CodLoja = ´ + QuotedStr(´4´) + ´ AND estoque.COD LIKE:ACHA) as QuantLoja4 from estoque´);
IBDataSet1.SelectSQL.ADD(´WHERE COD LIKE:ACHA ´);
IBDataSet1.SelectSQL.ADD(´group by estoque.Descricao´);
IBDataSet1.ParamByName(´ACHA´).AsString := EDIT1.Text;
IBDataSet1.OPEN;
if IBDataSet1.isempty then
BEGIN
MessageDLG(´Dados não localizados !´,mtError,[mbok],0);
END;