Zaman Alanı İçinden Tarihi Bugün Olanları Listelemek

[R.K.]

İyi çalışmalar.
Arkadaşlar aslında basit bir sorum var. 3 alanı olan bir tablom var.
SATIS_ID,ZAMAN,URUN_ID
formumda 1 adet dbgird ve editbox var. Editboxa borkosu girilen ürünleri otomatik olarak vt ye kaydediyorum. Zaman alanınada (TIMESTAMP olarak tanımlı) işlemin yapıldığı tarih ve saat bilgisi kaydediliyor. Ben formun üzerine 1 adette checkbox ekledim ve eğer checkbox işaretli ise sadece o gün yapılan işlemlerin görünmesini sağlamak istedim.

Kod: Tümünü seç

dm.dsetSatis.DisableControls;
   dm.dsetSatis.Close;
   ilksql:=dm.dsetSatis.SelectSQL.GetText;
   dm.dsetSatis.SelectSQL.Clear;
   dm.dsetSatis.SelectSQL.Add('select * from TBL_SATIS where ZAMAN=');
   dm.dsetSatis.SelectSQL.Add(bugun);
   dm.dsetSatis.Open;
   dm.dsetSatis.EnableControls;

bugun diye birde değişken tanımladım ve

Kod: Tümünü seç

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  bugun:=DateToStr(date);
end;

şeklinde hangi gün ise onu atadım. Fakat program hata veriyor. Yani atamamda bir yanlışlık var ama delphi bilgim yetmediğinden çözemedim bir türlü Birde aklıma başka birşey geldi. Acaba tarih ve saat alanlarını ayrı ayrı tanımlayarak gridde birleştirip göstersem ve karşılaştırmayıda sadece tarih alanında yapsam Bu şekilde işim görülür ama benim hala merak ettiğim böyle timestamp şeklinde tanımlanmış alanlardaki sadece tarih veya sadece saat alanlarıyla nasıl karşılaştırma yapabilirrim Sql kullanarak yapmak istiytorum tabi bunları. Teşekkürler şimdiden.
Kolay gelsin...

[MoSoft]

viewtopic.php?t=19480 bu başlık işini görür sanırım

[R.K.]

MoSoft hocam bu başlıkta yazanı zaten yapabiliyorum. Yani sadece date olarak tanımlanmış alanda sorun yok. Benim sorunum vt de timestamp olarak tanımlanmış alandaki verilerle date alanı karşılaştırma yapabilmek. Umarım anlatabilmişimdir. Teş.

[DarkEternal]

Sql de tırnak kullanmak ('#39') veya bugün için Today kullanmak belki işine yarayabilir... (Today için uses a DateUtils i ekle)
yani şu şekilde;

Kod: Tümünü seç

dm.dsetSatis.DisableControls;
   dm.dsetSatis.Close;
   ilksql:=dm.dsetSatis.SelectSQL.GetText;
   dm.dsetSatis.SelectSQL.Clear;
   dm.dsetSatis.SelectSQL.Add('select * from TBL_SATIS where ZAMAN=');
   dm.dsetSatis.SelectSQL.Add('#39'+bugun+'#39');
   dm.dsetSatis.Open;
   dm.dsetSatis.EnableControls;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  bugun:=DateToStr(Today);
end;