ado ile filtrelemede joker karakter

[Pulp]

Selamlar
arkadaşlar TTable nesnesi ile aşağıdaki filter çalışıyor
Table1.Filter:='Company = '+QuotedStr(Edit1.Text+'*');

fakat aynı bu Filter ı TADOTable nesnesi için kullandığımda sonuca ulaşamıyorum.

yardımcı olmaya çalışacak tüm arkadaşlara şimdiden teşekkür ederim.

[mrmarman]

Merhaba...

- Aslında çalışması lazım ama uzun zamandır BDE kullanmadığım için bir ihtimal deyip deneme yaptım...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName    := 'country.db';
  Table1.Active       := True;
  Table1.Filter       := 'NAME='+QuotedStr( Edit1.Text+'*');
  Table1.Filtered     := True;
end;

- Sorunsur çalışıyor. B yazıp butona bastığımda Bolivia ve Brazil sonuçlarını sorunsuz aldım... Başka yerde hata yapıyorsundur...

- İlk bakmanı önereceğim nokta Büyük / Küçük harf duyarlı olunduğunu ihmal ediyor olabilirsin. ADO'da böyle bir sorun (sorun demekle hatalı olabilirim, yerine göre sorun yerine göre artı özellik) yok ama BDE'de var.

- // Edit-Ekleme // Sorunu yanlış okumuşum... Dediğim gibi ado'da hiç sorun yok. Bence yeni bir deneme projesi açıp orada temizce dene ve sorun yaşarsan tekrar buradan bildir de inceleyelim...

[Pulp]

ado üzerinde acaba nerede yanlış yapıyorum diyerek boş bir application üzerine bir adotable nesnesi ekledim, connection string i ayarlayıp table name den table ı çağırdım filter ı true yaptım ve belirttiğim kodu verdim ama maalesef ado üzerinde çalıştıramadım

[mrmarman]

Merhaba...

- Bugün soruyu yanlış okumak gibi bir huy edindim, işlerin yoğunluğuna verin...

- Yapman gereken = yerine like koymak o kadar...

Kod: Tümünü seç

Table1.Filter:='Company like '+QuotedStr(Edit1.Text+'*'); 

Başarılar...

[Pulp]

TEŞEKKÜR EDERİM BENİMDE LIKE I KULLANMAK HIÇ AKLIMA GELMEMİŞTİ YARDIMINIZ İÇİN TEŞEKKÜR EDERİM.... SAYGILARIMLA ÜSTAD