IBDataSet1 Arama Kodu

[isahin4746]

Kolay gelsin iyi Çalışmalar IBDataSet1 Arama Kodu Nasıl Kullanırım

[ihalilcoban]

Sql de kullanılan like veya containing ile arama yapabilirsin. Like kullanırsan büyük küçük harf duyarlıdır. Containing kullanırsan büyük küçük harf duyarlılığı yoktur. Forumda detaylı kullanımları mevcut bir araştır.

[brs]

Örnek:

Kod: Tümünü seç

procedure TForm2.SearchChange(Sender: TObject);
begin
  try
    with MainForm.LISTQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From PLAYLIST');
      SQL.Add('Where NAME Like ' + QuotedStr('%' + Search.Text + '%'));
      SQL.Add('Order By SIRANO ASC');
      SQL.Add('Limit 0,1000');
      Prepared := True;
      Open;
      if Not IsEmpty then // Kayıt Varsa
      begin
        
      end;
    end;
  except
  end;
end;

[isahin4746]

procedure TCariHesapListesi.Edit1Change(Sender: TObject);
begin
try
with Data.CariHesap do
begin
Data.CariHesap.Close;
Data.CariHesap.SQL.Clear; Burdan sonra kabul etmiyor Yardımlarınızı rica ederim

[xozcanx]

Merhaba;
IBDataSet kullanıyorsanız SQL değil SelectSQL demeniz lazım.

Kod: Tümünü seç

procedure TCariHesapListesi.Edit1Change(Sender: TObject);
begin
  with Data.CariHesap do
  Try
    Close;
    SelectSQL.Clear;
    SelectSQL.Add('Select * From TABLO');
    SelectSQL.Add('  Where'); // Where den önce boşluk buraya dikkat edelim..
    SelectSQL.Add('  Aranan_Deger like '+QuotedStr('%'+Edit1.Text+'%'));
    Acvtive:=True;  
  except 
   // Hata Oluşma anı,,
  End;
End;

Kolay gelsin.