QUERY İLE SQL KULLANIMI

[dtgb]

Selamlar arkadaşlar,
aşağıdaki kodlamada birsden fazla alana göre sorgulama yapmak istiyorum ama hata veriyor sanırım sql cümlesinin delphiye uyarlanmasında bir sorun var yardımcı olursanız seviirim

dm.QGr_karsilastir.SQL.Clear;
dm.QGr_karsilastir.SQL.Add('Select * from QgramajKarsilastir where tarih =:tar and gramaj=20 and (and FarkYuzde =: oran or FarkYuzde =: oran*-1) ') ;
dm.QGr_karsilastir.Parameters.ParamByName('tar').Value:=CBTarih.Text;
dm.QGr_karsilastir.Parameters.ParamByName('oran').Value:=strtoint(Edit1.Text);
dm.QGr_karsilastir.Open;

[csunguray]

Ne hata verdiğini de yazsaydınız keşke.

[dtgb]

Hata olarak oranı tanımıyordu önüne (:) koyduktan sonra sorun düzeldi kodu aşağıdaki gibi değiştirdim
fakat şimdide sorgulama yapıyor ama doğru sonucu vermiyor.

dm.QGr_karsilastir.Close;
dm.QGr_karsilastir.SQL.Clear;
dm.QGr_karsilastir.SQL.Add('select * from QGramajKarsilastir where farkyuzde >= ran and tarih = :tar');
dm.QGr_karsilastir.Parameters.ParamByName('oran').Value:=edit1.Text;
dm.QGr_karsilastir.Parameters.ParamByName('tar').Value:=edit2.Text;
dm.QGr_karsilastir.Prepared:=true;
dm.QGr_karsilastir.Open;

[conari]

tarihide veritabanındaki formatta gönder.