Like ile arama

[nosedive]

Kod: Tümünü seç

  dm1.Query_Ana.SQL.Clear;
  dm1.Query_Ana.SQL.Add('select * from main where tckimlik1 like ' % '' + Edt_Tckimlik.Text + '' % '');
  dm1.Query_Ana.Open;

aramayı bu şekilde yapıyorumda % kullanımında hatam var sanırım bu kod çalışmıyor tabi..

% nun illegal karakter olduğu hatasını alıyorum

Teşk.

[tuanna]

kod Şu şekilde Olmalı

Kod: Tümünü seç

var
txt:string;
begin
txt:='%'+Edt_Tckimlik.Text +'%';
dm1.Query_Ana.SQL.Clear; 
  dm1.Query_Ana.SQL.Add('select * from main where tckimlik1 like '''+txt+''''); 
dm1.Query_Ana.Open; 

[bobasturk]

Merhaba,

% işaretini yanlış tırnaklar içine aldığınız için oluyor. ''%'+edit1.text+'%''' olması gerekiyor diye biliyorum. yanlış tırnak arasında olduğu için hata veriyor.

kolay gelsin

[rsimsek]

Firebird kullanılıyorsa LIKE yerine CONTAINING de kullanılabilir.

[mrmarman]

@nosedive

Tırnak karmaşası yaşıyor olduğunda QuotedStr() fonksiyonunu kullan. Sana rahat nefes aldıracaktır. İşlevi senin için tırnak içine alınmış hali döndürmesidir.

Kod: Tümünü seç

  dm1.Query_Ana.SQL.Clear;
  dm1.Query_Ana.SQL.Add('select * from main where tckimlik1 like '
                      + QuotedStr('%'+Edt_Tckimlik.Text+'%') );
  dm1.Query_Ana.Open;