bir tablo içinde birden fazla edit alanına göre listeleme

[memoli79]

Merhabalar;

bir tablo içinde birden fazla edit alanına göre listeleme yapmak istiyorum.

bunun için formuma bir adet buton koydum ve birden fazla da edit alanları koydum.

Listelemeyi yapıyor fakat eksik yapıyor.

Mesala Bölge alanında GEBZE den çok fazla kayıt olmasına rağmen çok az sayıda kayıt listeliyor.

Yardımlarınızı bekliyorum.

Nerde hata yapıyorum acaba.
Kod aşağıdaki gibidir.

Herkese iyi çalışmalar.

Kod: Tümünü seç

begin
DM.ADOQarsiv.Active:=False;
DM.ADOQarsiv.SQL.Clear;
DM.ADOQarsiv.SQL.Add('select * from arsivtbl where Bolge like ''%'+Ebolge.Text+'%'' and Mudurluk like ''%'+Emudurluk.Text+'%'' and Departman like''%'+Edepartman.Text+'%''and Konu like''%'+Ekonu.Text+'%''and DosyaAdi like''%'+Edosyaadi.Text+'%''and DosyaNo like''%'+Edosyano.Text+'%''and SakSure like''%'+Esaksure.Text+'%''and EskiDepo like''%'+Eeskidepo.Text+'%''and Durum like''%'+Edurum.Text+'%''');
DM.ADOQarsiv.Open;

[emin_as]

Kullandıgın yöntem yanlış, kutucuklar boş olsa da and sorgusuyla sql de kullanılıyorlar.
Kodunu aşagıdaki gibi degiştirmen lazım. Bu şekilde sadece dolu edit kutucukları sorgu içine alınacaktır.

Kod: Tümünü seç

procedure ......
var
  sqlstr : string;
.....
  procedure sorguekle(stredit,strfld: string);
  begin
      if strEdit <>'' then
      begin
          if sqlstr<>'' then sqlstr:=sqlstr+ ' and ';
         sqlstr:=sqlstr+strfld+' like '''+edTxt+'%'' '; 
     end;
  end;
....
begin 
DM.ADOQarsiv.Active:=False;
DM.ADOQarsiv.SQL.Clear;

sqlstr:='';
sorguekle(edBolge.Text,'Bolge');
sorguekle(eMudurluk.Text,'Mudurluk');
......
if sqlstr<>'' then sqlstr:=' where '+sqlstr;

sqlstr:='select * from arsivtbl '+sqlstr;

DM.ADOQarsiv.SQL.Add(sqlstr);
DM.ADOQarsiv.Open;
end;

[memoli79]

Kodu tam yazmamıştım asıl kod

Kod: Tümünü seç

procedure TArama_formu.cxButton1Click(Sender: TObject);
begin
if (Ebolge.Text='')and(Emudurluk.Text='')and(Edepartman.Text='')and(Ekonu.text='')and(Edosyaadi.Text='')and(Edosyano.Text='')and(Esaksure.Text='')and(Eeskidepo.Text='')and(Edurum.Text='')then
begin
showmessage('Aradığınız Kayıt Bulunamadı');
DM.ADOQarsiv.Active:=False;

Ebolge.SetFocus;
end else
begin
DM.ADOQarsiv.Active:=False;
DM.ADOQarsiv.SQL.Clear;

//DM.ADOQarsiv.SQL.Add('Select * From arsivtbl Where Bolge like '+ QuotedStr( Ebolge.Text+'%' )+' and Mudurluk like '+ QuotedStr( Emudurluk.Text+'%'));
DM.ADOQarsiv.SQL.Add('select * from arsivtbl where Bolge like ''%'+Ebolge.Text+'%'' and Mudurluk like ''%'+Emudurluk.Text+'%'' and Departman like''%'+Edepartman.Text+'%''and Konu like''%'+Ekonu.Text+'%''and DosyaAdi like''%'+Edosyaadi.Text+'%''and DosyaNo like''%'+Edosyano.Text+'%''and SakSure like''%'+Esaksure.Text+'%''and EskiDepo like''%'+Eeskidepo.Text+'%''and Durum like''%'+Edurum.Text+'%''');
DM.ADOQarsiv.Open;
if Arama_formu.GridarsivblDBTableView1.DataController.DataSource.DataSet.RecordCount=0 then
begin
showmessage('Aradığınız Kayıt Bulunamadı');
end;
end;
end;

bu kod çalışıyor fakat kodu

Kod: Tümünü seç

DM.ADOQarsiv.SQL.Add('Select * From arsivtbl Where Bolge like '+ QuotedStr( Ebolge.Text+'%' )+' and Mudurluk like '+ QuotedStr( Emudurluk.Text+'%')); 

bu şekilde yaparsam daha fazla bölge kaydı getiriyor.

Fakat kodu

Kod: Tümünü seç

DM.ADOQarsiv.SQL.Add('select * from arsivtbl where Bolge like ''%'+Ebolge.Text+'%'' and Mudurluk like ''%'+Emudurluk.Text+'%'' and Departman like''%'+Edepartman.Text+'%''and Konu like''%'+Ekonu.Text+'%''and DosyaAdi like''%'+Edosyaadi.Text+'%''and DosyaNo like''%'+Edosyano.Text+'%''and SakSure like''%'+Esaksure.Text+'%''and EskiDepo like''%'+Eeskidepo.Text+'%''and Durum like''%'+Edurum.Text+'%''');

böyle yaparsam daha az bolge kayıd getiriyor.

sebebini anlayamadım ya da nerde hata yapıyorum.

Kod: Tümünü seç

DM.ADOQarsiv.SQL.Add('Select * From arsivtbl Where Bolge like '+ QuotedStr( Ebolge.Text+'%' )+' and Mudurluk like '+ QuotedStr( Emudurluk.Text+'%')); 

bu kod ile başlayanalrı getir anlamında akat benim istediğim içinde şunlar olanlarıda getir olsun.

[emin_as]

Önce SQL.Add yerine bir string e ata bu sorguyu ve bu sorgu stringini showmessage ile göster.

s1:='Select * From arsivtbl Where Bolge like '+ QuotedStr( Ebolge.Text+'%' )+' and Mudurluk like '+ QuotedStr( Emudurluk.Text+'%');
DM.ADOQarsiv.SQL.Add(s1);

ShowMessage(' Sorgu: '+s1);

Böylelikle sorgu olarak giden sqlleri görür ve karşılaştırabilirsin.

SQLServer i pek kullanmadım, like yerine starting with i kullanabiliyorsan, onu dene, yüzde işaretlerinden kurtulursun.

Giden sorguları tek tek karşılaştırıp, yanlışlıga neden oldugunu düşündügün ifadeyi bulman lazım, olmadı sql server a direk baglanıpi aynı sorguları ver. Farklılık oluyor mu, kontrol et.

Aklıma şu an için bunlar geliyor.

[conari]

Kod: Tümünü seç

and 

yerine

Kod: Tümünü seç

or

kullanmalısınız.

[aslangeri]

@memoli79; kodlarınızı [code].....[/code] tagı içerisine alırsanız okuması daha kolay olur.
şahsen kodlarınızı hiç okumadım bile çünkü çok karışık duruyor.
kolay gelsin.