Como adicicionar dblookcombobox em uma select??

Delphi

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

Fabio 2013

Curtidas 0

Respostas

Alessandro Yamasaki

Alessandro Yamasaki

13/08/2013

Qual o erro?
GOSTEI 0
Fabio 2013

Fabio 2013

13/08/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;
GOSTEI 0
Fabio 2013

Fabio 2013

13/08/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;

GOSTEI 0
POSTAR