accesde çalışan kod delphide çalışmıyor (çözüldü)

[ALUCARD]

acces veritabanı ve d7 kullanıoyorum

tablom tblEkran
baslama tarih/saat
bitis tarih/saat
nobetci1 metin
nobetci2 metin
alanlarım var

nöbet başlama ve bitiş saatlerim aslında aynı
Hergün sabah saat 08:30 da nöbet değişimi olur
yani
baslama alanının değeri 28/06/2011 08:30:00
bitis alanının değeri de 29/06/2011 08:30:00

accesde sorgu ile çalıştırdığım kod

Kod: Tümünü seç

SELECT * FROM tblEkran
WHERE (#28/06/2011 08:30:00#  BETWEEN baslama   and bitis);

bu kod çalışıyor

delphi tarafında ise

Kod: Tümünü seç

ADOVeriAl.Close;
ADOVeriAl.SQL.Clear;
ADOVeriAl.SQL.Add('select * from tblEkran');
ADOVeriAl.SQL.Add('where (#'+DatetimeToStr(Now)+'# BETWEEN baslama and bitis)');
ADOVeriAl.Open;

ikiside aynı olmasına rağmen delphi tarafında

Parametre nesnesi hatalı yanımlanmış uyumsuz veya eksik bilgiler verilmiş diye hata alıyorum..

Not: forumda arama yaptım ama bişey bulamadım

[ChangeoveR]

Kod: Tümünü seç

ADOVeriAl.SQL.Add( select * from tblEkran where baslama >= :parametre1 and bitis <= :parametre2) ;
ADOVeriAl.Parameters.ParamByName('paramete1').Value   :=  DateTimePicker1.DateTime;
ADOVeriAl.Parameters.ParamByName('parametre2').Value  :=  now;

Boyle bir sey isinizi gorebilir, kolay gelsin...

[ALUCARD]

cevabın için teşekkür ederim .

Kod: Tümünü seç

ADOVeriAl.Close;
ADOVeriAl.sql.Clear;
ADOVeriAl.SQL.Add( 'select * from tblEkran where baslama >= :parametre1 and bitis <= :parametre2') ;
ShowMessage(DateTimeToStr(now));
ADOVeriAl.Parameters.ParamByName('parametre1').Value   :=  DateTimePicker1.DateTime;
ADOVeriAl.Parameters.ParamByName('parametre2').Value  :=  now;

showmessage(ADOVeriAl.sql.Text);
adoverial.Open;

şeklindeki kod 0 değer geri gönderiyor

yani kayıt yok gibi oluyor.

[ALUCARD]

Kod: Tümünü seç

ADOVeriAl.SQL.Add( select * from tblEkran where baslama <= :parametre1 and bitis >= :parametre2) ;
ADOVeriAl.Parameters.ParamByName('paramete1').Value   :=  DateTimePicker1.DateTime;
ADOVeriAl.Parameters.ParamByName('parametre2').Value  :=  now;

büyüktür küçüktürleri ters yazmışım
şimdi çalıştı