adoquery toplama işlemi hakkında

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
emrekilinc1984
Üye
Mesajlar: 58
Kayıt: 15 Eyl 2016 12:13

adoquery toplama işlemi hakkında

Mesaj gönderen emrekilinc1984 »

Merhaba aşağıdaki kodla toplama işlemi yapıyorum ama sanırım bu yanlış birşey.
Ben sql komutları ile toplatmak istiyorum fakat toplam alamıyorum uygulama hata veriyor bana örnek kod uygulama verebilir misiniz yada nasıl bir kodla hatasız toplam alabilirim sql ile yardımcı olursanız çok sevinirim.

Kod: Tümünü seç

var
adet,satir,i:Integer;
toplam:Double;
  begin

  adoquery1.Close;
      adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from bt_avans_formu');
            adoquery1.Open;

    toplam:=0;
    adet:=StrToInt(Format('%2d',[yenigrid(DBGrid1).RowCount-1]));//satır sayısı
   adoquery1.first;

  for i:=1 to adet do
  begin
  toplam:=toplam+DBGrid1.Fields[7].AsCurrency;//sonuca ekle
  adoquery1.Next;

end;

  edit1.Text:=FloatToStrF(toplam);
En son emrekilinc1984 tarafından 06 Eki 2016 03:04 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: adoquery toplama işlemi hakkında ACİLLLLLLL

Mesaj gönderen adelphiforumz »

Sqlde sum ve count özelliklerini bir incele
basitce
select sum(Field Adini Buraya Yaz) as Toplam, Count(*) as Adet from bt_avans_formu
ToplamSonuc := adoquery1.FieldByName('Toplam').asFloat yada asInteger
AdetSonuc := adoquery1.FieldByName('Adet').asInteger
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
emrekilinc1984
Üye
Mesajlar: 58
Kayıt: 15 Eyl 2016 12:13

Re: adoquery toplama işlemi hakkında

Mesaj gönderen emrekilinc1984 »

hallettim hocam teşekkürler
Cevapla