Sorguda bu günkü kayıtların gösterilmesi.

[Ertuğrul2025]

Hayırlı günler. Delphi XE7 kullanıyorum. Yaptığım uygulamada butona basınca bu gün yaptığım kayıtları görmek istiyorum.
A21 Sütunu tabloda DateTime tanımlı. Aşağıdaki kod ile yapmaya çalışıyorum. Program çalışınca
hata vermiyor ama butona basınca bu günkü kayıtlarıda göstermiyor. Açaba nerede yalnış yapıyorum.
Bu konuda bana yardımcı olurmusunuz.

procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

[ertank]

Merhaba,

Filter ile değil SQL ile yapmanız daha sağlıklı olacaktır.
Filtreleme için aşağıdaki şekilde deneyebilirsiniz. Sistemin tarih formatına göre FormatDateTime için düzenleme gerekebilir.

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
begin
  ADOQuery2.Filtered := False;
  ADOQuery2.Filter := 'A21 = ' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now()));
  ADOQuery2.Filtered := True;
end;

NOT: Kod test edilmedi.

[Ertuğrul2025]

Merhaba,

Filter ile değil SQL ile yapmanız daha sağlıklı olacaktır.
Filtreleme için aşağıdaki şekilde deneyebilirsiniz. Sistemin tarih formatına göre FormatDateTime için düzenleme gerekebilir.

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
begin
  ADOQuery2.Filtered := False;
  ADOQuery2.Filter := 'A21 = ' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now()));
  ADOQuery2.Filtered := True;
end;

NOT: Kod test edilmedi.

Teşekkür ederim hocam Allah razı olsun.

[freeman35]

https://learn.microsoft.com/en-us/sql/t ... rver-ver16

procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş dönüyor olabilir

Kod: Tümünü seç

ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE CONVERT (date, A21) = CONVERT (date, GETDATE())

[Ertuğrul2025]

https://learn.microsoft.com/en-us/sql/t ... rver-ver16

procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş dönüyor olabilir

Kod: Tümünü seç

ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE CONVERT (date, A21) = CONVERT (date, GETDATE())

Teşekkür ederim hocam Allah razı olsun.

[freeman35]

https://learn.microsoft.com/en-us/sql/t ... rver-ver16

procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş dönüyor olabilir

Kod: Tümünü seç

ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE CONVERT (date, A21) = CONVERT (date, GETDATE())

Teşekkür ederim hocam Allah razı olsun.

Kusura bakmayın, aceleyle cevapladım, kontrol etmemişim. Yazdığım kod filtre için değil sql string olmalı

Kod: Tümünü seç

ADOQuery2.SQL.Text:='SELECT * FROM HTF_KAYITLAR WHERE CONVERT (date, A21) = CONVERT ( date, GETDATE() )';