kayıtlarda arama yapmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
kayıtlarda arama yapmak
yapmış olduğum projemde bir dbGrid ve bir adet koydum veritabanım firebird şimdi kullanıcı edite herhangibir isim yazdığında o ilgili kişi grridde en üste çıksın istiyorum bunun için şöyle bir kod yazdım ama olmadı ..
procedure TForm4.Edit1Change(Sender: TObject);
var s:string;
begin
if trim(Edit1.Text)<>'' then //arama
s:='select * from CARI where ADI Like'''+trim(Edit1.Text)+'%'' order by ADI'
else
s:='select * from CARI order by ADI';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(s);
IBQuery1.Open;
IBQuery1.Last;
IBQuery1.First;
end;
// veritabanım firebird.
procedure TForm4.FormShow(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from CARI order by ADI');
IBQuery1.Open;
IBQuery1.Last;
IBQuery1.First;
end;
end.
procedure TForm4.Edit1Change(Sender: TObject);
var s:string;
begin
if trim(Edit1.Text)<>'' then //arama
s:='select * from CARI where ADI Like'''+trim(Edit1.Text)+'%'' order by ADI'
else
s:='select * from CARI order by ADI';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(s);
IBQuery1.Open;
IBQuery1.Last;
IBQuery1.First;
end;
// veritabanım firebird.
procedure TForm4.FormShow(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from CARI order by ADI');
IBQuery1.Open;
IBQuery1.Last;
IBQuery1.First;
end;
end.
Re: kayıtlarda arama yapmak
hata mı alıyorsun yoksa istediğinden farklı mı sonuç alıyorsun ?
Re: kayıtlarda arama yapmak
hiç bir sonuç almıyorum hiç bir değişiklik yok.
- sabanakman
- Kıdemli Üye
- Mesajlar: 3081
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: kayıtlarda arama yapmak
İsteğiniz anlaşılıyor gibi ama yaşadığınız sorun ne hala anlaşılmıyor. Yaptığınız bu işlemler sonucunda yaşadığınız sorun ne bir de onu açıkça anlatın.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
Re: kayıtlarda arama yapmak
hocam benim firebird vt ile yapmışş olduğum bir projem var. Bu projede dbGridde kayıtlar listeleniyor. Şimdi ben formu bir edt edit koydum ben istiyorum ki edite kaytlı birisini ismi adı yazılınca o kayıt en üste çıksın sadece o kalsın istiyorum olay bu....
Re: kayıtlarda arama yapmak
sadece adı yazılan kişinin görünmesini istiyorsan önce sorgudaki like yerine = kulanmalısın bence,
yoksa "AHMET" yazdığında adı "AHMET" olanların yanında "AHMET ALİ" yada "AHMET HAMDİ" olanlar da gelir...
ancak hala @sabanakman hocamın sorusuna cevap vermiş sayılmazsınız..
Edit1Change i editin change eventine atadınız mı? Edit1Change e breakpoint koyup baktınız mı?
Not: aşağıdaki yazı imzamdır mesajla alakası yoktur, doğrudan size yada bir başkasına yönelik yazılmadı...
yoksa "AHMET" yazdığında adı "AHMET" olanların yanında "AHMET ALİ" yada "AHMET HAMDİ" olanlar da gelir...
ancak hala @sabanakman hocamın sorusuna cevap vermiş sayılmazsınız..
tamam ne istediğinizi öğrendik de yaşadığınız sorun ne?İsteğiniz anlaşılıyor gibi ama yaşadığınız sorun ne hala anlaşılmıyor. Yaptığınız bu işlemler sonucunda yaşadığınız sorun ne bir de onu açıkça anlatın.
... ilgili kişi grridde en üste çıksın istiyorum bunun için şöyle bir kod yazdım ama olmadı ..
olmayan nedir? edite değer giriyorsunuz ama gridde listelenen kayıtlar mı değişmiyor?hiç bir sonuç almıyorum hiç bir değişiklik yok.
Edit1Change i editin change eventine atadınız mı? Edit1Change e breakpoint koyup baktınız mı?
Not: aşağıdaki yazı imzamdır mesajla alakası yoktur, doğrudan size yada bir başkasına yönelik yazılmadı...
bazen yükselmek için önce dibi görmek gerekir...
forumda soru sormadan önce bakılmalı bence
daha fazlası için...
yürümeyi öğrenmeden koşmaya çalışanlar için, tökezleyip düşmek kaçınılmazdır...
forumda soru sormadan önce bakılmalı bence
daha fazlası için...
yürümeyi öğrenmeden koşmaya çalışanlar için, tökezleyip düşmek kaçınılmazdır...
Re: kayıtlarda arama yapmak
sorun ş = edite ahmet girdiğim zaman ahmet adlı müşteri en üste gelmiyor yani nasıl alatayım hiç bir değişiklik olmuyor aranma yapmıyor daha ben nasıl analatyaım ???. yazdıpm kod bir işe yaramadı...
- sabanakman
- Kıdemli Üye
- Mesajlar: 3081
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: kayıtlarda arama yapmak
İyi günler. order by içinde case - when ile şarta bağlı değer kullanabilirsiniz. Mesela SQL Server için böyle bir sorgu gerekseydi örnekteki gibi bir sorgu işe yarayacaktır ama FB bu tür bir sorguyu çalıştırır mı bilmiyorum. Aslında veritabanları bu kodları genelde destekliyor ama örnek yapmadan cevap yazdığım için bu şekilde ifade etmekte fayda var İyi çalışmalar.
Kod: Tümünü seç
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from CARI');
IBQuery1.SQL.Add('order by case when ADI='''+Edit1.Text+''' then 0 else 1 end, ADI');
IBQuery1.Open;
En son sabanakman tarafından 10 Ara 2010 11:11 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
Re: kayıtlarda arama yapmak
IBQuery1.Close;
IBQuery1.SQL.Add('select * from CARI');
IBQuery1.SQL.Add('where ADI like ''' +Edit1.Text+'%''');
IBQuery1.SQL.Add('order by ADI');
IBQuery1.Open;
edit1 in onchange olayında bu sorguyu çalıştırın.
IBQuery1.SQL.Add('select * from CARI');
IBQuery1.SQL.Add('where ADI like ''' +Edit1.Text+'%''');
IBQuery1.SQL.Add('order by ADI');
IBQuery1.Open;
edit1 in onchange olayında bu sorguyu çalıştırın.
ÜŞENME,ERTELEME,VAZGEÇME
Re: kayıtlarda arama yapmak
ilginiz için çok tşk ederim hocalarım;
Şimdi saban akman hocamın verdği kod şu hata mesajını verdi :
[Error] Unit4.pas(217): ')' expected but identifier 'Edit1' found
[Error] Unit4.pas(217): Statement expected, but expression of type 'TCaption' found
[Fatal Error] Project2.dpr(23): Could not compile used unit 'Unit4.pas'
diğer admin hocamızın verdi kodda
edite isim yazdığım zaman : Dynamic SQL Error
SQL error kode : -104
Token Unknown - Line 2 clum 1 select hatsı verdi....
Şimdi saban akman hocamın verdği kod şu hata mesajını verdi :
[Error] Unit4.pas(217): ')' expected but identifier 'Edit1' found
[Error] Unit4.pas(217): Statement expected, but expression of type 'TCaption' found
[Fatal Error] Project2.dpr(23): Could not compile used unit 'Unit4.pas'
diğer admin hocamızın verdi kodda
edite isim yazdığım zaman : Dynamic SQL Error
SQL error kode : -104
Token Unknown - Line 2 clum 1 select hatsı verdi....
- sabanakman
- Kıdemli Üye
- Mesajlar: 3081
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: kayıtlarda arama yapmak
Artık yazım hatalarını da düzeltmek için biraz elinizi taşın altına koymanız gerekiyor.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
Re: kayıtlarda arama yapmak
merde yzım hatası var ???
Re: kayıtlarda arama yapmak
kardesim her şeyin cevabını hazır verirsek bir şey öğrenemezsin.
select ifadesine dikkatli bak
CARI den sonra bir boşluk olacak, aynı şey bir alt satır için.
Adam buraya yazmadan önce bir ShowMessage() yapıp bakar nerde hata var diye....
select ifadesine dikkatli bak
CARI den sonra bir boşluk olacak, aynı şey bir alt satır için.
Adam buraya yazmadan önce bir ShowMessage() yapıp bakar nerde hata var diye....
ÜŞENME,ERTELEME,VAZGEÇME
Re: kayıtlarda arama yapmak
tamam abicim neden kızıyon gözümüzden kaçmıştır..