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
  Listeleme çoklu ve random ekank 3 349 21-07-2020, Saat: 14:54
Son Yorum: hi_selamlar
  (Çözüldü)Memory aşımı powerghost 14 1.151 16-07-2020, Saat: 10:50
Son Yorum: mrmarman
  [ÇÖZÜLDÜ SOLVED] Fast Report Kontrollü Component Gizleme 3ddark 0 207 01-07-2020, Saat: 17:08
Son Yorum: 3ddark
  [ÇÖZÜLDÜ] Drag Drop Hatası wiseman 7 680 26-06-2020, Saat: 12:44
Son Yorum: wiseman
  [ÇÖZÜLDÜ] inno setup wiseman 2 699 21-06-2020, Saat: 12:45
Son Yorum: emozgun



Konuyu Okuyanlar: 1 Ziyaretçi