Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: iki tarih arasını filitrele  (Okunma sayısı 3897 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı mrc

  • Kıdemli Üye
  • *****
  • İleti: 83
  • Rep: +1/-0
  • Cinsiyet: Bayan
  • Do not try to make people love you!!!
iki tarih arasını filitrele
« : 15 Kasım 2005 23:46:21 »
Table1.Filtered:=False;
Table1.Filter:=
  '([Mgz G Tarihi]>='+#39+DateToStr(islemdate1.Date)+#39+' and '+
  '[Mgz G Tarihi]<='+#39+DateToStr(islemdate2.Date)+#39+')';
Table1.Filtered:=True;
Kayıtlı

muderless

  • Ziyaretçi
Ynt: iki tarih arasını filitrele
« Yanıtla #1 : 26 Kasım 2005 01:38:30 »
bir örnek de benden

begin
     
      Tar1 := TarihForm.DTP1.Date;
      Tar2 := TarihForm.DTP2.Date;
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add('select * from (table adı) where (Table sutunu) >= :Tarih1 and  (Table sutunu) <= :Tarih2');
      Query1.Params[0].AsDate := Tar1;
      Query1.Params[1].AsDate := Tar2;
      Query1.Open;
    end;


gibi
Kayıtlı

Çevrimdışı kılıç

  • Yeni Üye
  • *
  • İleti: 2
  • Rep: +0/-0
Ynt: iki tarih arasını filitrele
« Yanıtla #2 : 03 Ağustos 2006 14:23:56 »
bence birde bunu  deneyin tüm sorgunuza cevap verecektir
//iki tarih arası ve aralıkar için

with Query1 do begin
       sql.Clear;
       Sql.Add('select * from GOREV');
       sql.Add('where (SICIL='+#39+EDIT1.Text+#39+') AND ((BASLAMA_TARIHI between ' +#39+ maskedit1.Text +#39+ ' AND ' +#39+ maskedit2.Text +#39+ ')OR(BITIS_TARIHI between ' +#39+ maskedit1.Text +#39+ ' AND ' +#39+ maskedit2.Text +#39+ ')or(' +#39+ maskedit1.Text +#39+ 'between BASLAMA_TARIHI AND BITIS_TARIHI))');
       Active:=true;
Kayıtlı

Çevrimdışı Master_19

  • Üye
  • ***
  • İleti: 37
  • Rep: +0/-3
Ynt: iki tarih arasını filitrele
« Yanıtla #3 : 15 Kasım 2006 09:54:25 »
Kodlar İçin Teşekkürler Allah Razı Olsun ....
 
Kayıtlı

Çevrimdışı ahmet_tt

  • Yeni Üye
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: iki tarih arasını filitrele
« Yanıtla #4 : 26 Aralık 2006 22:54:15 »
table1.setrange([edit1.text],[edit2.text]) yalnız tarih alanı index olacak
Kayıtlı

Çevrimdışı HBV

  • Kıdemli Üye
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Ynt: iki tarih arasını filitrele
« Yanıtla #5 : 09 Ocak 2007 19:04:26 »
Selamlar..Bendende DataTimePicker'li Örnek;
Kod: [Seç]
IBDataSet1.Close ;
 IBDataSet1.SelectSQL.Text:='SELECT * FROM TABLE1 Where TARIH BETWEEN :DT_BTARIH AND :DT_STARIH';
 IBDataSet1.ParamByName('DT_BTARIH').AsDateTime := DateTimePicker1.Date ;
 IBDataSet1.ParamByName('DT_STARIH').AsDateTime := DateTimePicker2.Date ;
 IBDataSet1.Open ;iyi çalışmalar.
« Son Düzenleme: 09 Ocak 2007 19:05:12 by HBV »
Kayıtlı

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: iki tarih arasını filitrele
« Yanıtla #6 : 03 Şubat 2007 18:52:04 »
Query1.Close ;
Query1.SQL.Add('SELECT * FROM veritabani Where BASTARIH BETWEEN :DT_BTARIH  AND :DT_STARIH');
Query1.ParamByName('DT_BTARIH').AsDateTime := DateTimePicker2.Date ;
Query1.ParamByName('DT_STARIH').AsDateTime := DateTimePicker3.Date ;
Query1.Open ;

HBV senin interbase i, düz mantıkla hareket edererek query e uyarlamaya çalıştım, runtime da aşağıdaki gibi bir hata alıyorum
"invalid use of keyword"
Token:SELECT
Line number:2.

sorun/lar nedir ?
Kayıtlı
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı HBV

  • Kıdemli Üye
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Ynt: iki tarih arasını filitrele
« Yanıtla #7 : 03 Şubat 2007 20:38:22 »
Tarih alanın indexlimi?......veya..........
Kod: [Seç]
Table1.IndexName:='TARIHINDEX';//Tarih alanı indexli olacak.
Table1.SetRange([DateToStr(DateTimePicker1.Date)],[DateToStr(DateTimePicker2.Date)]);//(Edit1.text)],[(Edit2.text)]);............
Table1.ApplyRange;....................................................düz mantıkla .Bunu dene o zaman.




********************
www.onsisbilgisayar.com
« Son Düzenleme: 03 Şubat 2007 22:00:43 by HBV »
Kayıtlı

Çevrimdışı By_DRaKuLa

  • Yeni Üye
  • *
  • İleti: 2
  • Rep: +0/-0
Ynt: iki tarih arasını filitrele
« Yanıtla #8 : 11 Ağustos 2007 11:13:35 »
çok saolunda ben beceremedim ya
Kayıtlı

Çevrimdışı YLDRM_WEB

  • Üye
  • ***
  • İleti: 43
  • Rep: +0/-2
Ynt: iki tarih arasını filitrele
« Yanıtla #9 : 11 Ağustos 2007 13:21:15 »
begin
   ADOQuery8.close;
   ADOQuery8.SQL.Clear;
   ADOQuery8.SQL.Add('select * from satis');
   ADOQuery8.SQL.Add('Where (tarih between tarih1 and tarih2)');
   ADOQuery8.Parameters.ParamByName('tarih1').Value  :=StrToDate(Edit1.Text);  // datetimepickeri edite eşitledim
   ADOQuery8.Parameters.ParamByName('tarih2').Value  :=StrToDate(Edit2.Text);  // datetimepickeri edite eşitledim
   ADOQuery8.open;
end;


Fakat tam istedigim gibi tarih aralarını listelemiyo.... :(
Kayıtlı
............::::.................
H

Çevrimdışı HBV

  • Kıdemli Üye
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Ynt: iki tarih arasını filitrele
« Yanıtla #10 : 11 Ağustos 2007 22:19:39 »
Slm. ".Value" olan yerleri ".AsDate" yap, ilgili alanların Field'lerin Type Özellikleri Mutlaka "Date" Olacak..
« Son Düzenleme: 11 Ağustos 2007 22:23:58 by HBV »
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.117
  • Rep: +51/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: iki tarih arasını filitrele
« Yanıtla #11 : 25 Ağustos 2009 18:24:31 »
Kod: Delphi
  1.   var
  2.   tarih,tarih1: string;
  3. begin
  4.   tarih  :=   FormatDateTime('YYYYMMDD',DateTimePicker1.Date);
  5.   tarih1:=   FormatDateTime('YYYYMMDD',DateTimePicker2.Date);
  6.  
  7.   with  query1 do
  8.   begin
  9.    close;
  10.    SQL.Clear;
  11.    SQL.Add('Declare');
  12.    sql.add('@a smalldatetime,'+#13+
  13.               '@b smalldatetime'+#13+
  14.               'select @a = convert(smalldatetime,convert(varchar(15),:a,104))'+#13+
  15.               'select @b = convert(smalldatetime,convert(varchar(15),:b,104))'+#13+
  16.               'Select * From TABLO_ADI Where TARIH_ALANI Between @a and @b');
  17.    Params[0].Value := tarih;
  18.    Params[1].Value := tarih1;
  19.    Execute;
  20.   end;
  21.  
  22.  

yukarıda verdiğim kod MSSQL de sorunsuz olarak çalışmakta ...
Kayıtlı



Amatör Küme Programcı
Sayfa: [1]   Yukarı git
« önceki sonraki »