SQL e bi alana göre iki tarih arası sorgu

[Gaz_lambasi]

dm1.Qsorgu.SQL.Clear;
dm1.Qsorgu.SQL.Add('select sum(FATURATUTARI) from dn where FATURATUR = ''' + (ComboFatura.Text) + ''' between ''' + datetostr(datetimepicker1.Date) + ''' and ''' + datetostr(datetimepicker2.Date) + ''' ');
dm1.Qsorgu.Open;
dbedit2.Text := formatfloat('#,###.00', dm1.Qsorgu.fields[0].Value);


sql diziminde hata yapıyorum galiba.

[mussimsek]

yani ne? Burda ne sormak istiyorsun? Kendi sorununuz için birkaç cümle yazıverin lütfen!

Hata mı veriyor, veriyorsa nedir?

Kolay gelsin.

[Gaz_lambasi]

pardon kusura bakmayın..bi an sql deki hata varsa hemen görünür sandım

Burda yapmak istediğim combobox da seçilen alana göre ve iki tane datetimepicker de seçilen tarih aralığına göre arama sorgu ile ilgili kayıtları çağırmak

combo fatura türünü,
datetimepickerler1 ilk tarih
datetimepickerler2 son tarih

kullnıcı fatura türünü seçecek...ve iki tarih aralığında o fatura türüne ait kayıtlar gelecek...

teşekkürler...

[lazio]

between den önce..

Kod: Tümünü seç

... and TarihAlani between ...

[Gaz_lambasi]

Kod: Tümünü seç

dm1.Qsorgu.SQL.Add('select sum(FATURATUTARI) from dn where ( FATURATUR = ''' + (ComboFatura.Text) + ''' ) and ( TARIH between  ''' + datetostr(datetimepicker1.Date) + ''' and ''' + datetostr(datetimepicker2.Date) + ''' )');

bu şekilde yaptım

could not convert varinat of type (Null) into type (Double)

hatası alıyorum...

[Gaz_lambasi]

db olarak PARADOX ile yapıyorum....

[Gaz_lambasi]

tamam tamam

dbedit2.Text := formatfloat('#,###.00', dm1.Qsorgu.fields[0].Value);

hata burda...

deger boş geliyor...

formatfloat da boş gelen değeri çevirme 0 yap nasıl diyebilirim ?

[mucar]

Kod: Tümünü seç

if not(dm1.Qsorgu.fields[0].isnull) then
dbedit2.Text := formatfloat('#,###.00', dm1.Qsorgu.fields[0].Value)
else
dbedit2.text:='0';

[Gaz_lambasi]

alla alla sonuc hep sıfır dönüyor

[Gaz_lambasi]

Kod: Tümünü seç

begin
  dm1.Qsorgu.SQL.Clear;
  dm1.Qsorgu.SQL.Add('select sum(FATURATUTARI) from dn where ( FATURATUR = ''' + (ComboFatura.Text) + ''' ) and ( TARIH between  ''' + datetostr(datetimepicker1.Date) + ''' and ''' + datetostr(datetimepicker2.Date) + ''' )');
  dm1.Qsorgu.Open;
  if not (dm1.Qsorgu.fields[1].isnull) then
    dbedit2.Text := formatfloat('#,###.00', dm1.Qsorgu.fields[1].Value)
  else
  dbedit2.text := '0';
  dm1.Qsorgu.SQL.Clear;
  dm1.Qsorgu.SQL.Add('select * from dn where ( FATURATUR = ''' + (ComboFatura.Text) + ''' ) and ( TARIH between  ''' + datetostr(datetimepicker1.Date) + ''' and ''' + datetostr(datetimepicker2.Date) + ''' )');
  dm1.Qsorgu.Open;
end;

burdan sonuç sürekli sıfır dönüyor...dbedit2 ye d faturatutarlarının toplamını alıyorum...ama dediğim gibi grid e sorgu sonuçları gelmediği gibi 0 değeri dönüyor..

[bobasturk]

merhaba,

parametre kullanarak yapsan olmazmı diye düşündüm.

kolay gelsin.

[bobasturk]

Kod: Tümünü seç

procedure TFormRaporSrg.RprSrg_BtnSecimBulClick(Sender: TObject);
var
  tarih1,tarih2:tdate;
  begin
          begin
          raporsrgibquery.Close;
          raporsrgibquery.SQL.Clear;
          raporsrgibquery.SQL.Add('select*from RAPORLAR');
          raporsrgibquery.SQL.Add('Where INCTARIHI Between :tarih1 and :tarih2 and IZ_DURUMU=:IZ_DURUMU');
          raporsrgibquery.SQL.Add('order by RAPOR_NO, INCTARIHI');
          raporsrgibquery.ParamByName('tarih1').AsDate:=datetimepicker1.Date;
          raporsrgibquery.ParamByName('tarih2').AsDate:=datetimepicker2.Date;
          raporsrgibquery.ParamByName('IZ_DURUMU').AsString:=combobox1.Text;
          raporsrgibquery.Open;
          raporsrgibquery.Last;
      end;

[mucar]

Fields[1] yerine Fields[0] olmalı. Ayrıca Sql.Clear'den önce query'yi Close yapmanızı öneririm.

[Gaz_lambasi]

hallettim teşekkürler...hiç bir sorun yokmuş..kayıt bos geliyor..çünkü arama kriterine uygun kayit yok

pardonn