Konu: SQL ile Birden Çok Alana Göre Arama Yapmak (Okunma sayısı 1275 defa)

maximus51 · « : 23 Eylül 2007 10:55:48 »

merhaba Arkadaşlar Formda arama yaptım ama Bulamadım.
Sorum Şu Şekilde

Kişiler Adında Bir Tablom var Tablodaki Alanlar (TC,AD,SOYAD,BABAAD,ANNEAD,vs....) Bu şekilde Ben Arama Yaparken Şu Şekilde Arama Yapsın Forma 5 Tane Edit Ekledim.
Edit1.Text:=Tc ' De Arama Yapacak
Edit2.Text:=Ad ' Da Arama Yapacak
Edit3.Text:=Soyad ' Arama Yapacak
Edit4.Text:=BabaAD ' Arama Yapacak
Edit5.Text:=Anne Ad ' Arama Yapacak

Yukarıdaki Kriterlerden herhangi birini girince ona uygun Akyıt gelsin ...
Yani Edit4 ' e Baba Adı HÜSEYİN Yazınca Baba Adı Hüseyin Olanlar
Edit1 Tc Numarası yazınca O Kimlik Numarası olan kayıt.

Button tıklayınca sql İle yukarıdaki kriterlerden Hangisi Dolu ise onu sorgulayacak

deltas · « **Yanıtla #1 :** 23 Eylül 2007 14:38:06 »

Kod: [Seç]

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text <>'' then
begin
kodlar ......  
select * from kisiler where tc:='edit1.text'
end;

if edit2.Text <>'' then
begin
kodlar ......  
select * from kisiler where ad:='edit2.text'
end;

if edit3.Text <>'' then
begin
kodlar ......  
select * from kisiler where tc:='edit3.text'
end;

end;

end.

ancak bunu yatığında diğer edilerin boş olmasına dikkat et. bunun içinde bilgi girişi yaptıktan sonra bilgi girişi yaptığın edit'in onexit olayına diğer editleri boşaltıp değiştirilme özelliklerini enabled=false edecek şekilde kod yaz. Ve sorgu işlemi bittikten sonra tum editlerin enabled=true olsun. bu şekilde bi kontrol mekanızmasıda yaparsa daha sağlam olurç

akrep · « **Yanıtla #2 :** 23 Eylül 2007 18:27:35 »

Kod: (delphi) [Seç]

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select ADI,SOYADI,TARİH from TABLOM');
Query1.SQL.Add('Where ADI like :adi and');
Query1.SQL.Add('SOYADI like :soyadi and');
Query1.SQL.Add('TARİH like :tarih');

if edit1.text = '' then query1.ParamByName('adi').AsString:='%' else query1.ParamByName('adi').AsString:=edit1.Text;
if edit2.Text = '' then query1.ParamByName('soyadi').AsString:='%' else query1.ParamByName('soyadi').AsString:=edit2.Text;
if edit3.Text = '' then query1.ParamByName('tarih').AsString:='%' else query1.ParamByName('tarih').AsString:=edit3.Text;

query1.Prepare;
query1.open;
end;

Kodları kendine uyarlayabilirsin, hangi edit'e yazarsan ona göre sorgular, yada istersen hepsini doldur farketmez. Ayrıca edit içerisinde "%" işareti kullanırsan bu "herhangi sayıda, herhangi bir karakter", "_" işareti kullanırsan "tek bir tane ve herhangi bir karakter" anlamına gelir. Ben paradoks veritabanında kullanmak üzere yazmıştım.

maximus51 · « **Yanıtla #3 :** 23 Eylül 2007 18:32:52 »

Çok Teşekkür Ederim kardeşim Çok İşime Yaradı Biraz Değişiklik yaptım Şu Şekilde yaptım
Ama İlgin Alakan ve Kodkarın İçin Çokkkkk Teşekkür ederim.

procedure TForm1.JvXPButton1Click(Sender: TObject);

begin
if edit1.Text <>'' then
begin
SORGU.SQL.Clear;
SORGU.SQL.Add('SELECT * from KISILER where TC=:A');
Sorgu.Parameters[0].Value:=Edit1.Text;
SORGU.Open;

end;
if edit2.Text <>'' then
begin
Sorgu.SQL.Clear;
SORGU.SQL.Add('SELECT * from KISILER where AD=:B');
Sorgu.Parameters[0].Value:=Edit2.Text;
Sorgu.Open;
end;
if edit3.Text <>'' then
begin
Sorgu.SQL.Clear;
SORGU.SQL.Add('SELECT * from KISILER where SOYAD=:C');
Sorgu.Parameters[0].Value:=Edit3.Text;
Sorgu.Open;

maximus51 · « **Yanıtla #4 :** 23 Eylül 2007 18:34:36 »

Akrep Teşekkürler Ama biraz Geç kaldın Yaşlanıyorsun Sanırım

akrep · « **Yanıtla #5 :** 23 Eylül 2007 19:38:38 »

Alıntı yapılan: maximus51 - 23 Eylül 2007 18:34:36

Akrep Teşekkürler Ama biraz Geç kaldın Yaşlanıyorsun Sanırım

Doğru söylüyorsun, artık çekilelim de gençlere biraz yol verelim bari

Eskiden 10 saniyede 5 mesaj yazarıdım...

maximus51 · « **Yanıtla #6 :** 23 Eylül 2007 20:36:12 »

Sen Bize Lazımsın Allah başımızdan eksik etmesin Sizin gibi Değerli Ustaları

akrep · « **Yanıtla #7 :** 23 Eylül 2007 22:09:53 »

Alıntı yapılan: maximus51 - 23 Eylül 2007 20:36:12

Sen Bize Lazımsın Allah başımızdan eksik etmesin Sizin gibi Değerli Ustaları

Allah razı olsun kardeş ama gerçek ustalara ayıp oluyor

Benden ne köy olur ne kasaba (şimdilik hehehe...)

Kullanıcı

Sohbet Penceresi

Gönderen Konu: SQL ile Birden Çok Alana Göre Arama Yapmak (Okunma sayısı 1275 defa)

maximus51

SQL ile Birden Çok Alana Göre Arama Yapmak

deltas

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

akrep

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

maximus51

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

maximus51

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

akrep

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

maximus51

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak

akrep

Ynt: SQL ile Birden Çok Alana Göre Arama Yapmak