Delphi ile Harf harf aramak
Programların help lerindeki gibi her harfe basışınızda olasılıkları elyerek listeyi küçülten bir kod oldukça kullanışlı |
* s değişkeni public tanımlanmıştır.
* tam çalışması için onenter olayına da su kodu yazın
edit2.Clear;
s := ";
s := edit1.Text;
sql1 := 'select * from T082003';
sql2 := 'where Firma like "%' + s + '%"';
query1.Active := false;
query1.SQL.Clear;
query1.SQL.Add(sql1);
query1.SQL.Add(sql2);
datasource1.DataSet := query1;
query1.Active := true;
* ben veritabanı araması olan her programımda bu kodu kullanmaya çalışıyorum.İyi çalışmalar!!!
Zekeriya Koç
zekeriya@linuxmail.org
TD Software
Yorumlar (0)
Trackbacks (0)
Yorum bırakın
Geri İzleme
Son yorumlar