adodataset te arama işlemleri

[tuanna]

ado dataset de arama işlemleri nasılyapılır...küçük bir örnek yazabilirmisiniz...

[Çağrıbey]

bir kaç örnek yaziyorum, sen kendi ihtiyaçlarina göre şekillendirirsin..
kolay gelsin
---
procedure TForm1.Button2Click(Sender: TObject);
begin
AdoDataSet1.filter := 'tarih >= ' + QuotedStr('01.05.2001') + ' and ' + 'tarih < ' + QuotedStr('01.02.2002');
AdoDataSet1.Filtered:=true;
AdoDataSet1.Sort:='Tarih ASC';
end;
--------------
procedure TForm1.Button10Click(Sender: TObject);
begin
AdoDataset1.close;
ADODataSet1.CommandText := 'Select * From ADRES Where soyadi = ' + Quotedstr(edit2.text)';
AdoDataset1.Open;
AdoDataset1.sort:='Adi ASC, Soyadi ASC';
------------
procedure TForm1.Button1Click(Sender: TObject);
begin
AdoDataset1.close;
ADODataSet1.CommandText := ('Select * From TABLO1 Where soyadi = ' + Quotedstr('YILMAZ'));
AdoDataset1.Open;
AdoDataset1.sort:='adi ASC, soyadi ASC';
end;
/-------------------
procedure TForm1.IsimSoyisimArama1Click(Sender: TObject);
var
araadi,arasoyadi:string;
begin
araadi:=inputbox('İsim GİRİŞİ', 'prompt', 'İsmi');
arasoyadi:=inputbox('SOYAD GİRİŞİ', 'prompt', 'Soyismi');
AdoDataset1.Close;
AdoDataset1.commandText:=('Select * From ADRES Where adi like "'+araadi+'%" and soyadi like "'+arasoyadi+'%" ');
Adodataset1.open;
end;