| tuanna | 10.08.2005 - 10:45:12 |
| ado dataset de arama işlemleri nasılyapılır...küçük bir örnek yazabilirmisiniz... | |
| Çağrıbey | 11.08.2005 - 11:47:59 |
| 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; | |