Krityere göre listeleme - çözüldü

[ekank]

Merhaba; Tek bir DB'de bir çok veriyi saklıyorum fakat listelemede kriter yapmak gerek. Uruncinsi ilk 4 karakteri örnek: Tica olanları nasıl listelenirim?

  try
    FDQ.Connection := FDConnection1;
    FDQ.Close;
    FDQ.SQL.Clear;
    FDQ.SQL.Add('Select * From Urunler');
    FDQ.SQL.Add('Where UrunLike ' + QuotedStr('%' + TEdit(Sender).Text + '%'));
    FDQ.SQL.Add('And(Logoname Like ' + QuotedStr('%' + 'Tica' + '%'));
    FDQ.SQL.Add(')');
    FDQ.SQL.Add('Order By ID Asc Limit 150');
    FDQ.Prepared := True;
    FDQ.Open;
    while Not FDQ.Eof do
    begin

[adelphiforumz]

en basit yolla like değerine 'Tica%' yazarsın
like kullanımını biraz incelemenizi öneririm

[wiseman]

(16-07-2020, Saat: 15:10)ekank Adlı Kullanıcıdan Alıntı: Merhaba; Tek bir DB'de bir çok veriyi saklıyorum fakat listelemede kriter yapmak gerek. Uruncinsi ilk 4 karakteri örnek: Tica olanları nasıl listelenirim?

  try
    FDQ.Connection := FDConnection1;
    FDQ.Close;
    FDQ.SQL.Clear;
    FDQ.SQL.Add('Select * From Urunler');
    FDQ.SQL.Add('Where UrunLike ' + QuotedStr('%' + TEdit(Sender).Text + '%'));
    FDQ.SQL.Add('And(Logoname Like ' + QuotedStr('%' + 'Tica' + '%'));
    FDQ.SQL.Add(')');
    FDQ.SQL.Add('Order By ID Asc Limit 150');
    FDQ.Prepared := True;
    FDQ.Open;
    while Not FDQ.Eof do
    begin

  dm.qryiade.SQL.Clear;
  dm.qryiade.sql.text := 'select * from iade_malzemeler where stok_kodu like :arama ORDER BY stok_kodu asc';
 dm.qryiade.ParamByName('arama').Value:='%'+edit1.text+'%';
 dm.qryiade.Open;

bu şekilde kullanabilirsiniz.

[ekank]

(16-07-2020, Saat: 18:09)wiseman Adlı Kullanıcıdan Alıntı:

(16-07-2020, Saat: 15:10)ekank Adlı Kullanıcıdan Alıntı: Merhaba; Tek bir DB'de bir çok veriyi saklıyorum fakat listelemede kriter yapmak gerek. Uruncinsi ilk 4 karakteri örnek: Tica olanları nasıl listelenirim?

  try
    FDQ.Connection := FDConnection1;
    FDQ.Close;
    FDQ.SQL.Clear;
    FDQ.SQL.Add('Select * From Urunler');
    FDQ.SQL.Add('Where UrunLike ' + QuotedStr('%' + TEdit(Sender).Text + '%'));
    FDQ.SQL.Add('And(Logoname Like ' + QuotedStr('%' + 'Tica' + '%'));
    FDQ.SQL.Add(')');
    FDQ.SQL.Add('Order By ID Asc Limit 150');
    FDQ.Prepared := True;
    FDQ.Open;
    while Not FDQ.Eof do
    begin

  dm.qryiade.SQL.Clear;
  dm.qryiade.sql.text := 'select * from iade_malzemeler where stok_kodu like :arama ORDER BY stok_kodu asc';
 dm.qryiade.ParamByName('arama').Value:='%'+edit1.text+'%';
 dm.qryiade.Open;

bu şekilde kullanabilirsiniz.

Teşekkür ederim.