Query arama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sako
Üye
Mesajlar: 477
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

Query arama

Mesaj gönderen sako »

Arkadaşlar Query ile bi arama gerçekleştiriyorum ama mantığım çok mantıksız geldi bana kıs bi yolu vanrmı acaba. Şöyle bişe yaptım:

Melesa adı, adresi, telefonu, doğum tarihi alanlarından biri veya birkaçı ile arama yaptıracam komutu şöyle yazdım:

if edit1.text<>'' then begin
addsql(..............)

if edit2.text<>'' then begin
addsql(..............)

if edit3.text<>'' then begin
addsql(..............)

if edit4.text<>'' then begin
addsql(..............)

ve ayrıca ikisi için üçü için dördü için ayrı ayrı yazdım bu komutu
ve oldukça uzun oldu. acaba bir veya birtaç alanda hangi editin içeriği doluysa arama yapmak için kısa bi yol varmı?

kolay gelsin
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba,

şöyle birşey yapabilirsin.

...
SQL.Add('SELECT * FROM TABLO_İSMİ')
SQL.Add('where 1=1')
if Trim(Edit1.Text)<>'' then
SQL.Add('OR ....)
if Trim(Edit2.Text)<>'' then
SQL.Add('OR ....)
Open;

Kolay gelsin.
Kullanıcı avatarı
naile
Admin
Mesajlar: 1873
Kayıt: 11 Haz 2003 10:11

Mesaj gönderen naile »

Ben aramada like kullandığım için bütün ifadeleri where kısmında and ile yazıyorum. Sorun çıkartmıyor.

Kod: Tümünü seç

  Query1.SQL.Add('SELECT * FROM TABLO1 WHERE');
  Query1.SQL.Add('ADI LIKE '''+edit1.Text+'%''' AND SOYADI LIKE '''+edit2.Text+'%''');
gibi..
Cevapla