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ü - AdoQuery $Unnamed does not contain a member named Hatası KarahanMesut 2 121 19-09-2020, Saat: 01:26
Son Yorum: KarahanMesut
Photo Çözüldü - ESEGECE Socket IO HeartBeat Timeout exceeded Hatası KarahanMesut 4 242 17-09-2020, Saat: 15:49
Son Yorum: KarahanMesut
  Veritabanı Dosyasındaki Dataları Listeleme bnyamin86 6 538 17-08-2020, Saat: 18:35
Son Yorum: bnyamin86
  Listeleme çoklu ve random ekank 3 597 21-07-2020, Saat: 14:54
Son Yorum: hi_selamlar
  (Çözüldü)Memory aşımı powerghost 14 1.698 16-07-2020, Saat: 10:50
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi