Delphi Can

Orjinalini görmek için tıklayınız: delphi mssql toplama
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Sayfalar: 1 2
(30-04-2022, Saat: 22:58)dilanorkan Adlı Kullanıcıdan Alıntı: [ -> ]Kod satırını komple eklermisin birde tablonun create halinni eklemisin ben herzaman kullanıyorum sorun olmuyor.
kendi bilgisayarımda deniyeyim

tablo  kısmı
create table GİDER (
GİDERADI VARCHAR(50),
GİDERMİKTARI İNT,
GİDERTARİHİ DATETİME,
AÇIKLAMA VARCHAR(100),
);
komple kodda
procedure TForm5.Button2Click(Sender: TObject);
begin
ADOQuery2.close;
ADOQuery2.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery2.open;
edit2.text:=inttostr(ADOQuery2.FieldByName('GİDERMİKTARI').AsInteger);
end;
dateline=\1651349184 Adlı Kullanıcıdan Alıntı:ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);

ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);
(30-04-2022, Saat: 23:17)dilanorkan Adlı Kullanıcıdan Alıntı: [ -> ]
dateline=\1651349184 Adlı Kullanıcıdan Alıntı:ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);

ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);

benim derleyicimde sıkıntı var herhalde bende sadece en üstteki verinin miktarını yazdırıyor alttaki verimiktarlarını toplamıyor

(30-04-2022, Saat: 23:17)dilanorkan Adlı Kullanıcıdan Alıntı: [ -> ]
dateline=\1651349184 Adlı Kullanıcıdan Alıntı:ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);

ADOQuery1.close;
ADOQuery1.sql.Add('SELECT SUM(GİDERMİKTARI) AS TOPLAM FROM GİDER');
ADOQuery1.open;
edit1.text:=inttostr(ADOQuery1.FieldByName('TOPLAM').AsInteger);

teşekkür ederim
mümkünse alan isimlerinde türkçe karekter kullanma sıkıntı genelde ondan olur bir virgüllü sayılar için ben genellikle decimal veri tipini kullanıyorum. istersen programı sıkıştır bana gönder bakabilirim müsait zamanda
Sayfalar: 1 2