AdoQuery Tarih Sorgulama

[aXeNT]

Herkese iyi akşamlar. Nette ve forumda herhangi bir bilgileye ulaşamadım. Konu şu Access databasede bir tarih alanım var. AdoQuery ile veya bunun başka bi yolu varsa oda olur sorgulama yapılıcak ve kayıtlı olan tarih geçtiyse yani bugünün tarihinden küçükse göstericek. Bir nevi süresi dolanları dbgridte göstermeye çalışıyorum. Bir türlü beceremedim yardımcı olursanız sevinirim.

[unicorn64]

forumda çok kez konuşuldu aslında ama neyse... arama sonuçlarından buraya erişenlere de faydası olur en azından...

Kod: Tümünü seç

with adoquery,sql do
begin  
   close;
   clear; 
   add('SELECT ALANLAR FROM TABLO WHERE TARIH_ALANI<@BUGUN');
   parambyname('BUGUN').asdatetime:=now;
   open;
end;

özellikle tarih veya noktalı sayı alanlarında parametre kullanmanız hata payını azaltacaktır...

[aXeNT]

Çok teşekkürler. İşyerindeyim şu an eve gider gitmez denicem

[aXeNT]

Hocam parambyname kısmında bi sorun yaşıyorum

[unicorn64]

o zaman imzama bi göz at istersen


Not: imzam kesinlikle kimseyi şahsen hedef almamaktadır... ama şuanki duruma da tam bir cevaptır kanımca...

[KoPilot]

Hocam parambyname kısmında bi sorun yaşıyorum

Sende mi o sorunla karşılaştın...

[orhancc]

çekişten mi düştü sorun nedir müneccim değiliz ki aldığın mesajı bilip çözüm sunalım

[aXeNT]

Pardon kusura bakmayın ozaman biraz dalgındım o yüzden öylece yazıp geçmişim. Şöyle söyliyim. ADOQuery1.Parameters.Parambyname('BUGUN') kısmına kadar herşey tamam fakat ordan sonra nokta koyup AsDateTime kısmı çıkmıyo.

[unicorn64]

kodu ezbere yazmıştım.. uzun süredir de adoquery kullanmayınca yanlış hatırlamışım...

Kod: Tümünü seç

Parameters.ParamByName('BUGUN').Value:=now;

şeklinde denermisin

[aXeNT]

Hocam bu seferde Parameters 'BUGUN' not found hatası veriyo sorun nerde anlamadım :s

Kullandığım kodlar aşağıda

Kod: Tümünü seç

 srgSuresiGecen.Close;
 srgSuresiGecen.SQL.Clear;
 srgSuresiGecen.SQL.Add('Select * From MusteriBilgileri Where ServerBitisTarihi<@BUGUN');
  srgSuresiGecen.Parameters.ParamByName('BUGUN').Value:=now;
 srgSuresiGecen.Open;

[aslangeri]

s.a.
@Bugun yerine :Bugun deneyin.
eğer gene olmazsa

Kod: Tümünü seç

srgSuresiGecen.Close;
srgSuresiGecen.SQL.Clear;
srgSuresiGecen.SQL.Add('Select * From MusteriBilgileri Where ServerBitisTarihi<@BUGUN');
  srgSuresiGecen.Parameters.clear;
  srgSuresiGecen.Parameters.add("BUGUN",ftdatetime);
  srgSuresiGecen.Parameters.ParamByName('BUGUN').Value:=now;
srgSuresiGecen.Open;

şeklinde deneyin.
ftdatetime da hata verebilir tam emin değilim. ctrl+space yaparsanız uygun tipler gelecektir.
kolay gelsin.