Yazdırma ve Sorgulama ile ilgili
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
aslında şoyle yazsan daha güzel olur
datamodule1.Rapor.SQL.Add('select a.*,b.* from ckart a,cislem b');
datamodule1.Rapor.SQL.Add('Where b.cislem_cari_kodu = a.ckart_cari_kodu ');
if DateEdit1.Date > 0 Then datamodule1.Rapor.SQL.Add(' and Tarih >= "'+DateEdit1.Text+'" ');
if DateEdit3.Date > 0 Then datamodule1.Rapor.SQL.Add(' and Tarih <= "'+DateEdit3.Text+'" ');
datamodule1.Rapor.Open;
form55.ppReport1.Print;
iyi çalışmalar
Where satırını sen belirle..
datamodule1.Rapor.SQL.Add('select a.*,b.* from ckart a,cislem b');
datamodule1.Rapor.SQL.Add('Where b.cislem_cari_kodu = a.ckart_cari_kodu ');
if DateEdit1.Date > 0 Then datamodule1.Rapor.SQL.Add(' and Tarih >= "'+DateEdit1.Text+'" ');
if DateEdit3.Date > 0 Then datamodule1.Rapor.SQL.Add(' and Tarih <= "'+DateEdit3.Text+'" ');
datamodule1.Rapor.Open;
form55.ppReport1.Print;
iyi çalışmalar
Where satırını sen belirle..
Kardeş önceki cevabında parametre dedin ya burada da parametre görünmüyor
Aslında benim demek istediğimde buydu. Yani tarihlere göre where kısmını oluşturmak. Bu şekil parametreye göre daha sadedir. Parametreli şekli de şöyle olmalıydı;
Kolay gelsin.
Aslında benim demek istediğimde buydu. Yani tarihlere göre where kısmını oluşturmak. Bu şekil parametreye göre daha sadedir. Parametreli şekli de şöyle olmalıydı;
Kod: Tümünü seç
datamodule1.Rapor.SQL.Add('select a.*,b.* from ckart a,cislem b');
datamodule1.Rapor.SQL.Add('Where b.cislem_cari_kodu = a.ckart_cari_kodu ');
datamodule1.Rapor.SQL.Add(' and (:Ilk_Tarih is null or Tarih >= :Ilk_Tarih) ');
datamodule1.Rapor.SQL.Add(' and (:Son_Tarih is null or Tarih <= :Son_Tarih) ');
datamodule1.Rapor.Open; Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!