sql query ile arama yapmak (onChange yordamı)

[CinAnka]

merhaba arkadaşlar;

hazırladığım projede 3 farkli alana göre arama seçeneği sunmak istiyorum: AD, Soyad, Gsm_no. Bunlardan herhangi birine bir değer girildiğinde program ona göre arama yapmalı. örneğin kullanıcı ad ve soyad girerse aldığım sonuçlar bu 2 alana uygun olmalı. ve arama edit kontrollerine girilen her harf sonrası yapılabilmeli. çok araştırdım, findNearest metodu war ama benim kullandığım delphi versiyonu (6) bu komutu kabul etmiyor. sql ile çözmek istiyorum. Yardımcı olan arkadaşlara teşekkürler...

[mkysoft]

Kod: Tümünü seç

var
 sql,ve,nerede:string;
begin
sql:= '';
nerede:='';
ve:='';
if edit1.text <> '' then
begin
  nerede:='where';
  sql:=sql+ve+' adi like'+quatedstr('%'+edit1.text+'%');
  ve:=' and'
end;
if edit2.text <> '' then
begin
  nerede:=' where';
  sql:=sql+ve+' soyadi like'+quatedstr('%'+edit2.text+'%');
  ve:=' and'
end;
if edit3.text <> '' then
begin
  nerede:=' where';
  sql:=sql+nerede+ve+' gsm_no like'+quatedstr('%'+edit3.text+'%');
  ve:=' and'
end;
sql:='select * fromt tablo'+nerede+sql;
sqltable.sql.add(sql);

Bu kodları editlerin onchange olayına yazabilirsin. Böyle bir yapı çok yavaş çalışacaktır çünkü her seferinde veri tabanını sorgulayacak. Local'de problem olmaz ama ağ üzerinde yavaşlar.