filteleme(arama)

[mazhargemci]

dbgridden edit içine yazılanı buton ile aratmak istiyorum nasıl yapabilirim.Yalnız harfe bastıgım an bile o harf içinde olanlar gelicek arama yapınca yardımcı olursanız sevinirim

[mazhargemci]

aslında buldum da

Kod: Tümünü seç

 procedure TForm1.sEdit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
adoquery1.Close;
adoquery1.SQL.Text:='select * from ArsivTablo where AdiSoyadi like' +#39+#37+sedit12.text+#37+#39;
adoquery1.Open;
end;

filtelemeyi yapıyor ancak

dbgridteki başlık kısmını eski haline getiriyor

Kod: Tümünü seç

sql.Add('select DosyaNo as [Dosya No], SicilNo as [Sicil No] from ArsivTablo') ;

filtrelemeyi yaptığı zaman yukardaki kodları yok sayıyor

[mrmarman]

Biraz SQL çalışmamız lazım.
WHERE kelimesi dahil sona kadar olan kısmı kopyala, alttakinin sonuna bir boşluk verip yapıştır. Projeyi çalıştır arkana yaslan ve sonucu izle.

[mazhargemci]

abi dediğin herşeyi yaptım projeyi çalıştırdıktan sonra arkama bile yaslandım ama sonuç aynı

[mazhargemci]

yukardaki sedit12 keyup olduğu gibi kaldı

Kod: Tümünü seç

sql.Add('select DosyaNo as [Dosya No], SicilNo as [Sicil No] from ArsivTablo where AdiSoyadi like' +#39+#37+sedit12.text+#37+#39') ;

şeklinde yaptım ama aynı sonucu verdi

[mrmarman]

bunu yazıyorsun ve başlıklarda Dosya No gibi değil orjinal alan adını görüyoruz ve de filtre yapmıyorsa DBGrid başka bir datasource bakıyor derim

[mazhargemci]

filtrelemede hiç bir sıkıntı yok fakat dosya no şeklinde değilde orjinal alan adını görünüyor

[mrmarman]

işte söylediğim ve sql. add dediğin kısım başka yerde, dbgridin baktığı başka yerde olduğuna eminim. Bu kadarı net.

[mazhargemci]

başka biyerlerde olamaz. birer tane adoquery ve datasource var

[mazhargemci]

abi aynısını senin gönderdiğinde yaptım veritabanına belge bilgi olan onda da aynısı oluyor

[mrmarman]

Şimdi aşağıdaki gibi yazdın ve başlıklar eskisi gibi görünüyor öyle mi?

DBGrid'in fieldlarını elle mi doldurdun o zaman. Çünkü başka ihtimal kalmıyor.

 

Kod: Tümünü seç

procedure TForm1.sEdit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
adoquery1.Close;
adoquery1.SQL.Text:='select DosyaNo as [Dosya No], SicilNo as [Sicil No] from ArsivTablo where AdiSoyadi like' +#39+#37+sedit12.text+#37+#39;
adoquery1.Open;
end;

şeklinde düzelttiğini iddia ediyorsun ben buna inanmak istemiyorum. Israrım devam ediyor.

[mazhargemci]

ne kadar alan adı varsa hepsini mi yazacağız sadece bir tanesini yazıyordum
hepsini yazmamız gerekiyormuş

[mrmarman]

sonuna * koyabilir sonra da istemediğini gridden de gizleyebilirsin. Lazımsa içeriği... Basit bir döngüye bakar

yani

Kod: Tümünü seç

select DosyaNo as [Dosya No], SicilNo as [Sicil No],  * FROM... 

[mazhargemci]

Kod: Tümünü seç

procedure TForm1.sEdit13KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
adoquery1.Close;
adoquery1.SQL.Text:='select DosyaNo as [Dosya No], SicilNo as [Sicil No],' ;
adoquery1.SQL.Text:='AdiSoyadi as [Adı Soyadı], TcKimlik as [Tc Kimlik No], Telefon as [Telefon], ';
adoquery1.SQL.Text:='isyeriMevkii as [İşyeri Mevkii], isyeriNo as [İşyeri No], Metrekaresi as [Metrekaresi], ';
adoquery1.SQL.Text:='KiraBedeli as [Kira Bedeli], BaslaTar as [Başlangıç Tarihi], BitisTar as [Bitiş Tarihi],';
adoquery1.SQL.Text:='A_BelgeAdi as [Belge Adı], A_BelgeTip as [Belge Tip], A_BelgeTip, A_BelgeAdi';
adoquery1.SQL.Text:='from ArsivTablo where isyeriMevkii like' +#39+#37+sedit13.text+#37+#39;
adoquery1.Open;
end;

şeklinde yaptım
edite yazarken geçersiz deyimi; 'Delete', 'insert','procedure', 'select' veya update' bekleniyor diye kızdı abi

[thelvaci]

Bir datayı çektikten sonra TDataSet'in Filter ve Filtered özelliklerini de kullanabilirsiniz.