Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Krityere göre listeleme - çözüldü
#1
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
Cevapla
#2
en basit yolla like değerine 'Tica%' yazarsın
like kullanımını biraz incelemenizi öneririm
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#3
(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.
Cevapla
#4
(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.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ÇÖZÜLDÜ] Programın Ram üzerinde kapladığı alan hk. wiseman 16 5.200 19-01-2021, Saat: 15:41
Son Yorum: mrmarman
  [ÇÖZÜLDÜ] Scrollbox içindeki nesneyi başka scrollbox a sürükle bırak wiseman 14 381 17-01-2021, Saat: 21:36
Son Yorum: wiseman
  [ÇÖZÜLDÜ] WebDav ile Bulut Sunucuya Dosya Yükleme theSinan 9 2.913 14-01-2021, Saat: 01:48
Son Yorum: SenayAkgun
  [ÇÖZÜLDÜ] Çalışma Zamanında oluşturulan nesnede çalışma farkı wiseman 7 255 13-01-2021, Saat: 12:53
Son Yorum: PROGRAMADOR35
  [ÇÖZÜLDÜ] Tablodaki verileri belirli bir düzenle memoya aktarma wiseman 8 368 25-12-2020, Saat: 17:14
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi