Adotable birden fazla alanda filtreleme hatası

[mali989]

Meraba arkadaşalr aranıza yeni katıldım adotable ile birden fazla alanda filtrelme yapmak istiyorum am koda çalışmıyor

Kod: Tümünü seç

ADOTable2.Filter:='[Durumu]='+QuotedStr(ComboBox3.Text) and '[Bgnntrh]='+QuotedStr(Edit4.Text);

sadece and e kadar olan kısmı yazarsam çalılıyor ama böyle uzun olursa çalışmıyor.Amacım sadece bu güne ait kayıtları göstermek çıkan kayıtlar içerisnde bir daha filtreleme yaptırmak.

[mali989]

Konuyu yanlış yere açmışım galiba özür dilerim

[aslangeri]

@offtopic konu taşınmıştır.

[mrmarman]

Tırnak karakterinde yanlışlık yapmışsınız.

Kod: Tümünü seç

ADOTable2.Filter:='[Durumu]=' + QuotedStr(ComboBox3.Text) + ' and [Bgnntrh]=' + QuotedStr(Edit4.Text);

şeklinde deneyin. Ayrıca sorgunuzu SQL ile AdoQuery üzerinde yaparsanız daha sağlıklı olacaktır. AND öncesinde bir boşluk bırakmayı ihmal etmeyin.

Tırnak karakterleriyle sıkıntı yaşıyorsanız aşağıdaki şekilde FORMAT fonksiyonunu da kullanabilirsiniz.

Kod: Tümünü seç

ADOTable2.Filter :=  Format( '[Durumu]= ''%s'' AND [Bgnntrh] = ''%s'' ', [ ComboBox3.Text, Edit4.Text] );

şeklinde
veya

Kod: Tümünü seç

ADOTable2.Filter :=  Format( '[Durumu]= %s AND [Bgnntrh] = %s ', [ QuotedStr(ComboBox3.Text), QuotedStr(Edit4.Text)] );

şeklinde de kullanabilirsiniz.

[mali989]

Çok teşekkür ederim oldu saat gibi çalışıyor birde mesela iki tarih arası filtrelem yaptığımız zaman ado table setrange kullanamıyoruz onun yerine ne kullana bilirm

[mrmarman]

BETWEEN kullanabilirsiniz.

Kod: Tümünü seç

 TARIH BETWEEN BasTarih AND BitTarih

şeklinde.

[mali989]

BETWEEN kullanabilirsiniz.

Kod: Tümünü seç

 TARIH BETWEEN BasTarih AND BitTarih

şeklinde.

teşekkür ederim ilgine ama bunu kullanamadım abi ya nasıl kullanacaz.yalnız sql değil delphi dili...

[mrmarman]

Yine Filter içinde kullanacaksanız bu durumda AND sayısını arttırıp aşağıdaki şekilde yapın.

Kod: Tümünü seç

Edit5.Text := '01.01.2010';
Edit6.Text := '10.12.2010'; // gibisinden olursa
ADOTable2.Filter:='[Durumu]=' + QuotedStr(ComboBox3.Text) + ' and [Bgnntrh]=' + QuotedStr(Edit4.Text) + ' and TARIH >= ' + Edit5.Text + ' and TARIH <= ' + Edit6.Text;

Date tipinde bir değişkenden alıyorsanız, DateToStr( TarihDegiskeni ) deyip stringe çevirebilirsiniz.

[mali989]

Teşekkürler