Sql en çok satılan [Çözüldü]

[dilo]

Selam.

Sql de en çok satılan ürünü bulmak istiyorum, URUNKODU alanım olmasına rağmen 'URUNKODU' not found hatası alıyorum  bunun sebebi  ne olabilir?

      
      SQL.Add('Select Max(ADET) As ADET From SATILAN');
      SQL.Add('Where TARIH BETWEEN :TRH1 And :TRH2 Order By TARIH ASC');
      ParamByName('TRH1').AsDate := StartTarih.Date;
      ParamByName('TRH2').AsDate := EndTarih.Date;



     while Not Eof do
          begin
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;

[FiRewaLL]

while Not Eof do
         begin
           Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;

Burada hata veriyordur O zaman Yukarıdaki Sorguda zaten Öyle bir durum yok.

En Çok Satan ürünü Almak istiyorsanız da

[Ars=sql]Select TOP 1 sum(adet) as adet from SATILAN  GROUP BY URUNKODU ORDER BY SATILAN DESC[/ars]

Böyle daha iyi Olur gibi.

[uparlayan]

(03-07-2017, Saat: 20:44)dilo Adlı Kullanıcıdan Alıntı: Selam.

Sql de en çok satılan ürünü bulmak istiyorum, URUNKODU alanım olmasına rağmen 'URUNKODU' not found hatası alıyorum  bunun sebebi  ne olabilir?

      
      SQL.Add('Select Max(ADET) As ADET From SATILAN');
      SQL.Add('Where TARIH BETWEEN :TRH1 And :TRH2 Order By TARIH ASC');
      ParamByName('TRH1').AsDate := StartTarih.Date;
      ParamByName('TRH2').AsDate := EndTarih.Date;

     while Not Eof do
          begin
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;

FieldByName ile okutmaya çalıştığın alanı SELECT cümlesine eklememişsin, ORDER BY Tarih kısmına gerek yok, sana WHERE kısmında tarih olmasy yeter, SQL sorgusunu şöyle yazarsan sonuç alırsın;

      
      SQL.Add('Select URUNKODU, Max(ADET) As ADET From SATILAN ');
      SQL.Add('Where TARIH BETWEEN :TRH1 And :TRH2  GROUP BY URUNKODU ORDER BY Adet DESC ');
      ParamByName('TRH1').AsDate := StartTarih.Date;
      ParamByName('TRH2').AsDate := EndTarih.Date;

     while Not Eof do
          begin
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;

[dilo]

Kodları kendime uyarladım, Fakat bir türlü ürünlerin toplamını alamadım saçma sapan sonuçlar çıkıyor.

Örnek:
Motosiklet 32 toplam adet var
Modem 22 toplam  adet var fakat  

Motosiklet 7 adet çıkıyor
Modem 13 adet gibi saçma sapan çıkıyor.

      
   SQL.Add('Select URUNKODU, URUN, MODEL, ADET, Max(ADET) As ADET From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU Order By ADET Desc');
     ParamByName('TRH1').AsDate := StartTarih.Date;
     ParamByName('TRH2').AsDate := EndTarih.Date;

          
       while Not Eof do
         begin
           AdetSay := AdetSay + FieldByName('ADET').AsInteger;
           Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
           Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
           Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
           Sheet.Cells[Row, 4] := AdetSay;
           Inc(Row);
           Next;
         end;

[uparlayan]

(04-07-2017, Saat: 04:53)dilo Adlı Kullanıcıdan Alıntı: Kodları kendime uyarladım, Fakat bir türlü ürünlerin toplamını alamadım saçma sapan sonuçlar çıkıyor.

Örnek:
Motosiklet 32 toplam adet var
Modem 22 toplam  adet var fakat  

Motosiklet 7 adet çıkıyor
Modem 13 adet gibi saçma sapan çıkıyor.

      
   SQL.Add('Select URUNKODU, URUN, MODEL, ADET, Max(ADET) As ADET From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU Order By ADET Desc');
     ParamByName('TRH1').AsDate := StartTarih.Date;
     ParamByName('TRH2').AsDate := EndTarih.Date;

          
       while Not Eof do
         begin
           AdetSay := AdetSay + FieldByName('ADET').AsInteger;
           Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
           Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
           Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
           Sheet.Cells[Row, 4] := AdetSay;
           Inc(Row);
           Next;
         end;

Where kısmındaki tarih aralığını kaldırdığında istediğin sonuçları elde edebiliyor musun...

[vkamadan]

Merhabalar ,
max(adet) değilde sum(adet) olarak düzeltmeniz gerekir.

[yhackup]

(04-07-2017, Saat: 09:01)vkamadan Adlı Kullanıcıdan Alıntı: Merhabalar ,
max(adet) değilde sum(adet) olarak düzeltmeniz gerekir.

+1
Sum ilgili field'ın toplamını verir.
Max ilgili field'daki en büyük olanı verir.

[DelphiCan]

(04-07-2017, Saat: 09:06)yhackup Adlı Kullanıcıdan Alıntı:

(04-07-2017, Saat: 09:01)vkamadan Adlı Kullanıcıdan Alıntı: Merhabalar ,
max(adet)    değilde sum(adet)  olarak düzeltmeniz gerekir.

+1
Sum ilgili field'ın toplamını verir.
Max ilgili field'daki en büyük olanı verir.

Artı (+) Puanlar için

[esistem]

Merhaba,
Arkadaşların dediği gibi SUM toplam alır, MAX en büyük işlemi gösterir, ayrıca;

      
   SQL.Add('Select URUNKODU, URUN, MODEL, ADET, Max(ADET) As ADET From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU Order By ADET Desc');
     ParamByName('TRH1').AsDate := StartTarih.Date;
     ParamByName('TRH2').AsDate := EndTarih.Date;

yukarıdaki kullanım çalışmayacaktır. SUM, AVG, MAX, MIN gibi kullanımlarda GROUP BY önüne gelen bütün alanlara uygulanmalıdır. yani sizdeki kullanımda ; 

      
   SQL.Add('Select URUNKODU, URUN, MODEL, SUM(ADET) As ADET From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU, URUN, MODEL Order By ADET Desc');
     ParamByName('TRH1').AsDate := StartTarih.Date;
     ParamByName('TRH2').AsDate := EndTarih.Date;

şeklinde olmalıdır.

[dilo]

(04-07-2017, Saat: 11:23)esistem Adlı Kullanıcıdan Alıntı:

      
  SQL.Add('Select URUNKODU, URUN, MODEL, SUM(ADET) As ADET From SATILAN');
      SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU, URUN, MODEL Order By ADET Desc');
     ParamByName('TRH1').AsDate := StartTarih.Date;
     ParamByName('TRH2').AsDate := EndTarih.Date;

          
while Not Eof do
          begin
            AdetSay := AdetSay + FieldByName('ADET').AsInteger;
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
            Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
            Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
            Sheet.Cells[Row, 4] := AdetSay;
            Inc(Row);
            Next;
          end;

Emeği geçe herkese teşekkür ederim, fakat doğru toplamları alamıyorum.