Tek Bir MaskEdit'ten 9 alanda birden arama yapmak...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Tek Bir MaskEdit'ten 9 alanda birden arama yapmak...

Mesaj gönderen Biltes »

Arkadaşlar öncelikle herkese kolay gelsin;
Benim sormak istediğim olay ad,soyad ve telefon no'ya göre kayıtlar arasında arama yapmak. Ancak telefon alanından 9 adet var. Bunlar sırasıyla evtel1,evtel2,evtel3,istel1,istel2,istel3,gsm1,gsm2,gsm3 gibi 9 alan burada yapmak istediğim olay telefon numarası sorgulamak için maskedit'e numarayı girmeye başladığımda bu 9 alan içinden arayarak bana geçerli kaydı bulup getirmesi. Bu konuda eğer bana yardımcı olabilirseniz çok memnun olurum.
Herkese çalışmalarında başarılar dilerim...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
P206
Kıdemli Üye
Mesajlar: 395
Kayıt: 17 Haz 2003 12:36
Konum: İstanbul

Mesaj gönderen P206 »

Selamlar

Şu anda Elimde delphi vb. programlar olmadığı için deneme şansım olmadı.

query inde

Kod: Tümünü seç

where tel1 = :tel or tel2 = :tel or tel3 = :tel ..... ceptel3 = :tel 
şeklinde yapıp.

parametre ile sorgulamayı bitirirsen problemin çözülür.
I love my car.
Blog Yaptık
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Mesaj gönderen Biltes »

Merhaba parametre ile sorgulamayı bitirirsen problemin çözülür demişsin ama bana bu konuda bir örnek yazabilirseniz çok memnun olurum. Konu hakkında bilgim az olduğu içinkod olarak yardımcı olabilirseniz sanırım anlayabilmek benim için daha sağlıklı olacaktır.
Herkese iyi çalışmalar...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
P206
Kıdemli Üye
Mesajlar: 395
Kayıt: 17 Haz 2003 12:36
Konum: İstanbul

Mesaj gönderen P206 »

Kod: Tümünü seç

       IBQuery1.SQL.Text :='Select * from tablom where tel1 = :tel or tel2 = :tel or Tel3= :tel or istel1= :tel or istel2= :tel or istel3 = :tel or gsm1 = :tel or gsm2= :tel or gsm3= :tel';
        IBQuery1.ParamByName('tel').AsString:=MaskEdit1.text;
        IBQuery1.Open
Şeklide yazarsan eğer Maskedite yazdığın telefon nosu 9 field in birinde varsa sana sonuç dönecektir.
I love my car.
Blog Yaptık
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Mesaj gönderen Biltes »

Çok teşekkür ederim P206. Tam istediğim gibi ilgi ve alakanıza çok teşekkür ederim. Çalışmalarınızda herzaman başarılı olmanız dileğiyle...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
Cevapla