Cita:
Empezado por DOS
pero no tengo tanto conocimiento en SQL....
|
Lo que te puedo aconsejar en este caso es adquiere mas conocimientos de SQL, así tendrás las herramientas necesarias para solucionar tus problemas...
http://www.w3schools.com/sql/default.asp
http://es.wikipedia.org/wiki/SQL
Una variante al código de Caral podría ser:
Código Delphi
[-]
procedure TForm13.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text:= 'SELECT DISTINCT Cod_prodser,descripcion, importe, Sum(Cantidad) as Cantidad_Total FROM detfactura.DB ' +
' inner join factura.DB on Cod_fact = Cod_prodser ';
if combobox2.Text = 'Más vendidos' then
begin
Query1.SQL.Add( 'WHERE factura.Fecha >= :Fecha1 and factura.Fecha <= :Fecha2' +
' Group by Cod_prodser,descripcion, importe '+
'HAVING SUM(Cantidad)>50'+ ' ORDER BY detfactura.Cantidad ASC ');
Query1.Params[0].Value:= TuDato1;
Query1.Params[1].Value:= TuDato2;
Query1.Active:=true;
end;
Query1.Close;
end;
Saludos cordiales