adoquery ile veri tabanından veri çekerek veriyi işleme sokmak

[sayyad]

AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.Fields.Clear;

AdoQuery1.SQL.add('SELECT * from SatilanUrunler');
AdoQuery1.SQL.Add('WHERE (Satis_Tarih = :@Tar1 )');
AdoQuery1.Parameters.ParamByName('@Tar1').Value := DateToStr(DateTimePicker3.Date);
AdoQuery1.SQL.Add('ORDER BY Satis_Tarih DESC' );


toplamTutar:=0;
while not ADOQuery1.EOF do begin
toplamTutar := toplamTutar + ADOQuery1UrunSatisTutari.AsCurrency;// bu kod boş geliyor
ADOQuery1.Next;

end;
AdoQuery1.Open;
Label3.Caption := 'Toplam : ' + floattostrf(toplamTutar,ffCurrency,10,2);


db gridde listenenen verilerin toplamını alarak labelde göstermek istiyorum fakat veriyi çekmeyi beceremedim (kırmızı yazılı olan çalışmıyor)
not: sum komutunu kullandığım zaman diğer veriler gözükmüyor şimdiden teşekkürler

[ertank]

Bunu yaptığınız zaman:

AdoQuery1.Fields.Clear;

Artık böyle bir değişken kalmaz:

ADOQuery1UrunSatisTutari.AsCurrency;

Şu şekilde kullanmanız gerekir:

Kod: Tümünü seç

ADOQuery1.FieldByName('UrunSatisTutari').AsCurrency;

[Ahmetbi]

while döngüsünden önce AdoQuery1.Open; yapın