Uzun zamandan sonra yeniden Delphiye el atayım dedim. Bilgisayarımda kullanmak üzere kendi ihtiyaç duyduğum birkaç program hazırlamak için kollarımı sıyırmışken size bir iki ipucu vereyim Bu yazımdaki ipuçları Delphi ile veritabanında arama yapmanıza yarayan basit ama kullanışlı iki kod.
TTable Nesnesi ile arama
Veritabanınıdaki verileri yönetmek için TTable nesnesi kullanmışsak bu nesnenin FindNearest fonksiyonunu kullanabilirsiniz. Oldukça basit ve kullanışlı bir fonksiyondur. Örnek bir kod ile göstermem gerekirse;
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);
1
2
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);
1nci satırda arama yapacağımız sütunu belirttik. 2nci satırda da Edit1 kutusundan gelen kelimeyi arattık.
TQuery Nesnesi ile arama
Veritabanınıdaki verileri yönetmek için TTable değil de SQL cümlelerini kullanmamıza yarayan TQuery nesnesini kullanmışsak, uygulamamıza şöyle bir SQL cümlesi ekleyerek arama yapabiliriz;
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;
1
2
3
4
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;
Bu örnekte öncelikle Queryyi durduruyoruz. Daha sonra SQL cümlesini sıfırlayıp yeni cümlemizi (arama cümlesi) ekliyoruz ve tekrar çalıştırıyoruz. Hepsi bu kadar teşekkür etmeyi unutmayınız
TTable Nesnesi ile arama
Veritabanınıdaki verileri yönetmek için TTable nesnesi kullanmışsak bu nesnenin FindNearest fonksiyonunu kullanabilirsiniz. Oldukça basit ve kullanışlı bir fonksiyondur. Örnek bir kod ile göstermem gerekirse;
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);
1
2
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);
1nci satırda arama yapacağımız sütunu belirttik. 2nci satırda da Edit1 kutusundan gelen kelimeyi arattık.
TQuery Nesnesi ile arama
Veritabanınıdaki verileri yönetmek için TTable değil de SQL cümlelerini kullanmamıza yarayan TQuery nesnesini kullanmışsak, uygulamamıza şöyle bir SQL cümlesi ekleyerek arama yapabiliriz;
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;
1
2
3
4
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;
Bu örnekte öncelikle Queryyi durduruyoruz. Daha sonra SQL cümlesini sıfırlayıp yeni cümlemizi (arama cümlesi) ekliyoruz ve tekrar çalıştırıyoruz. Hepsi bu kadar teşekkür etmeyi unutmayınız