DbGrid Sütün Toplamı Almak (Query Alan Toplamı)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Dosya uzantısı

Mesaj gönderen pro_imaj »

CHK Dosyanın uzantısı
MSSQL veritabanı kullanıyorum. dosyanın uzantısı bu.

Farklı tablelerdede aynı hata var.

İlginiz içinde ayrıca teşekkür ederim Vedatbaka ve Uğur1982.

Saygılarımla
Çalışmalarınızda başarılar arkadaşlar inşalalh çözülecek.

Kolay gelsin
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
eyalin
Üye
Mesajlar: 126
Kayıt: 09 May 2005 08:08

Mesaj gönderen eyalin »

Aynı sorunla bende karşılaşmıştım ve forumdan aşağıdaki gibi bir cevap aldım.

begin

ADOquery1.close;
ADOquery1.sql.clear;
ADOquery1.sql.add('select SUM(BORC) AS toplam from F1_CARIBORCAL WHERE KARTREF LIKE '''+dbedit1.text+'%''');


ADOquery1.open;
label3.Caption:=ADOQUERY1.Fields[0].asstring;
label3.Caption:= formatfloat('#.##,',strtofloat(label3.Caption));


Bu kod toplamı bir label'a alıyor.

Bende MSSQL kullanıyorum.Toplama işlemini daha önce bu yolla yapıyordum.Ancak şimdi Stored Procedur kullanıyorum.8. Seminerde detaylı olarak anlatılmış.(Hazırlayanlara Teşekkürler...)Sanada tavsiye ederim.

İyi Çalışmalar
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Merhaba

Mesaj gönderen pro_imaj »

Cevabınız için teşekkür ederim.

ama ben seminerleri indiremiyorum.
yapacağım programda onlarca hesaplatma alanı var.

Yardımlarınız için teşekkür ederim.
Kolay gelsin.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Turki
Üye
Mesajlar: 75
Kayıt: 03 May 2005 08:02

Selamlar.Bende Firebirde Tableyle bağlandım..Sütun K.Adedi?

Mesaj gönderen Turki »

Bende,DBGridde 2-3 tane fazla kayıt girilmeyen sütunun Adet olarak toplamını Labele yazdırmam lazım çünkü programın gereği bu sütunlara kaç kayıt girildiği belli olacak.....Oysa Tableye girilen Toplam kayıt adedini aşağıdaki kodla label alıyorum..

//procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Label6.Caption:=floatToStr(table1.RecordCount);
end;
Cevapla