IBDataSet1 Arama Kodu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
isahin4746
Üye
Mesajlar: 11
Kayıt: 12 Ara 2015 04:17

IBDataSet1 Arama Kodu

Mesaj gönderen isahin4746 »

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

Kullanıcı avatarı
ihalilcoban
Üye
Mesajlar: 119
Kayıt: 10 Ara 2015 10:39
Konum: Gaziantep

Re: IBDataSet1 Arama Kodu

Mesaj gönderen 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.

Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: IBDataSet1 Arama Kodu

Mesaj gönderen 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;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...

isahin4746
Üye
Mesajlar: 11
Kayıt: 12 Ara 2015 04:17

Re: IBDataSet1 Arama Kodu

Mesaj gönderen 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

Kullanıcı avatarı
xozcanx
Üye
Mesajlar: 353
Kayıt: 05 Oca 2012 12:55

Re: IBDataSet1 Arama Kodu

Mesaj gönderen 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.
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..

Cevapla