IBDataSet1 Arama Kodu
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 11
- Kayıt: 12 Ara 2015 04:17
IBDataSet1 Arama Kodu
Kolay gelsin iyi Çalışmalar IBDataSet1 Arama Kodu Nasıl Kullanırım
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: IBDataSet1 Arama Kodu
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.
Re: IBDataSet1 Arama Kodu
Ö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...
-
- Üye
- Mesajlar: 11
- Kayıt: 12 Ara 2015 04:17
Re: IBDataSet1 Arama Kodu
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
begin
try
with Data.CariHesap do
begin
Data.CariHesap.Close;
Data.CariHesap.SQL.Clear; Burdan sonra kabul etmiyor Yardımlarınızı rica ederim
Re: IBDataSet1 Arama Kodu
Merhaba;
IBDataSet kullanıyorsanız SQL değil SelectSQL demeniz lazım.
Kolay gelsin.
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;
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..