F�rum Como adicicionar dblookcombobox em uma select?? #451805

13/08/2013

Boa tarde amigos

Estou querendo fazer uma pesquisa filtrada por grupo atrv�s de um dblookcokmbobox ocorre que os dados no dbgrid est�o agrupados

select venda.grupo, venda.datav,venda.qtd1,venda.valorUnit,venda.descricao, sum(venda.ValorTotal) as total, sum(venda.ValorTotal / venda.valorUnit) as qtd 
from venda where datav = :datav group by venda.grupo,venda.qtd1,venda.datav, venda.descricao,venda.valorUnit,venda.ValorTotal

TENTEI ASSIM MAS DEU ERRO DE SINTAXEM, � PORUE PRECISO QUE ESTA PESQUISA SAIA TB AGRUPADA IGUAL AO QUE EST� NO DBGRID MAS N�O ESTOU CONSEGUINDOP FAZER, SE ALGU�M SOUBE POR GENTILEZA FICAREI MUITO GRATO

with Q1V do begin
     Q1V.SQL.Clear; 
     Q1V.SQL.Add('select datav,qtd,descricao,grupo,valorunit,total from venda Where grupo Like '+''''+Trim(DBLookupComboBox1.Text)+'%'+''''+'');
     Q1V.SQL.Add('Select sum (ValorTotal) as total');
     Q1V.SQL.Add('Select sum (ValorTotal / valorUnit) as qtd');
     Q1V.SQL.Add('Order By grupo');
     Q1V.Open;

Fabio 2013

Curtir t�pico

+ 0

Responder

Posts

14/08/2013

Alessandro Yamasaki

Qual o erro?

Responder

Gostei + 0

14/08/2013

Fabio 2013

Ent�o meu amigo, o erro � que n�o aparece os resultados n�o paece nada e nem d� erro. se puder me ajudar ficarei grato se precisar posso lhe mandar o um exemplo do projeto para vc ver

procedure TRvendas.DBLookupComboBox1Click(Sender: TObject);
begin
Q1V.Close;
Q1V.SQL.Clear;
Q1V.SQL.Add('Select venda.grupo, venda.datav,venda.qtd1,venda.valorUnit,venda.descricao,'+' sum(ValorTotal) as total, sum(ValorTotal / valorUnit) as qtd '+ 'from venda Where venda.grupo like :grupo and datav = :datav group by venda.grupo,venda.qtd1,venda.datav, venda.descricao,venda.valorUnit,venda.ValorTotal');
Q1V.SQL.Add('Order By grupo');
Q1V.Parameters.ParamByName('grupo').Value := '%'+DBLookupcombobox1.Text+'%';
Q1V.Open;

Responder

Gostei + 0

14/08/2013

Fabio 2013

Ent�o meu amigo, o erro � que n�o aparece os resultados n�o paece nada e nem d� erro. se puder me ajudar ficarei grato se precisar posso lhe mandar o um exemplo do projeto para vc ver

procedure TRvendas.DBLookupComboBox1Click(Sender: TObject);
begin
Q1V.Close; 
Q1V.SQL.Clear; 
Q1V.SQL.Add('Select venda.grupo, venda.datav,venda.qtd1,venda.valorUnit,venda.descricao,'+' sum(ValorTotal) as total, sum(ValorTotal / valorUnit) as qtd '+ 'from venda Where venda.grupo like :grupo and datav = :datav group by venda.grupo,venda.qtd1,venda.datav, venda.descricao,venda.valorUnit,venda.ValorTotal'); 
Q1V.SQL.Add('Order By grupo'); 
Q1V.Parameters.ParamByName('grupo').Value := '%'+DBLookupcombobox1.Text+'%'; 
Q1V.Open;

Responder

Gostei + 0