Delphi Forum

Sorunu yeni yayınladığınız help dosyası içinde buldum. Noktalama işaretlerini düzelterek aşağıdaki şekilde düzelttim. Birilerinin i
şine yarar diye yayınlıyorum. Herkese kolay gelsin.

AdoQuery2.SQL.add('select sum(eis) as b1,sum(eks) as b2,sum(e_k_s) as b3,sum(s_t_s) as b4,');
AdoQuery2.SQL.add ...

Senator kod kiismina yazdigin sql kodu cuk diye oturmus.

Aşağıdaki sql satırına 15 adet daha sum(alan) ekleyeceğim fakat satıra sığmıyor ve 255 karekteri geçti diye mesaj alıyorum alt satırdan devam etmek için nasıl bir noktalama işareti yapmam lazım. Yardımcı olursanız sevinirim.

AdoQuery2.SQL.add('select sum(eis) as b1,sum(eks) as b2,sum(e_k_s) as b3 ...

Sorun çözüldü. Diğer arkadaşlarada belki yararlı olur diye kodların son hali aşağıdaki şekildedir.

Kod iki tarih arasındaki satıcının, satışlarının toplamını aldırıyor.

AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.Fields.Clear;
AdoQuery1.SQL.text:= ('select sum(ezine_inek_satis) as satis,sum ...

Yardım lütfen...

Formu açtığımda veritabanındaki bilgiler dbgrid içinde görünüyor. Fakat sum komutunu kullandığımda bütün dbgrid siliniyor sadece sum komutundaki toplam değer görünüyor. Sanırım programın verdiği hatada bundan kaynaklanıyor. Bu konuda bilgisi olan varsa yardımcı olabilirse çok ...

procedure Traporlar.BitBtn3Click(Sender: TObject);
var
bakiye:real;
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.text := 'select fis_tarihi, fis_no, musteri_adi, sum(ezine_inek_alis) as bakiye from fisler WHERE fis_tarihi'
+' BETWEEN :Tar1 and :Tar2 and satici_adi Like'''+Combobox1 ...

söylediğin şeylerin hepsine dikkat ederek, karekter karekter kontrol edip yaptım hala hata kodu alıyorum. Nasıl oluyor anlamadım.

öncelikle ilgin için teşekkür ederim. Yukarıda yazdığın şekilde düzelttim fakat aynı hata mesajı almaya devam ediyorum.

var
bakiye:real;
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.Fields.Clear;
AdoQuery1.SQL.text := 'select fis_tarihi, fis_no, musteri_adi, sum(ezine_inek_alis) as bakiye ...

procedure Traporlar.BitBtn3Click(Sender: TObject);
var
bakiye:real;
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.Fields.Clear;
AdoQuery1.SQL.text := 'select fis_tarihi, fis_no, musteri_adi, sum(ezine_inek_alis) as bakiye from fisler ';
AdoQuery1.SQL.Add('WHERE (fis_tarihi BETWEEN :@Tar1 ...

aşağıdaki kodda iki tarih arası kayıtları listeliyorum. Listeleme yaparken veritabanımdaki 3 tane alanında toplamını aldırmak ve edit kutularına yazdırmak istiyorum. Yardımcı olursanız çok memnun olurum.
alan1, alan2, alan3 ---- para birimi olarak saklı access veritabanında. sum komutunu bir türlü ...