"Çalışmadan, öğrenmeden, yorulmadan rahat yaşamanın yollarını aramayı alışkanlık haline getirmiş milletler, evvela haysiyetlerini, sonra hürriyetlerini ve daha sonra da istikballerini kaybetmeye mahkumdurlar."

Mustafa Kemal ATATÜRK

yakuter


03 Mayıs 2008

Delphi İle Veritabanında Arama Yapmak

Etiketler: , , , , , ,
Kategori Yazılım |

Uzun zamandan sonra yeniden Delphi'ye el atayım dedim. Bilgisayarımda kullanmak üzere kendi ihtiyaç duyduğum birkaç program hazırlamak için kollarımı sıyırmışken size bir iki ipucu vereyim ;) Bu yazımdaki ipuçları Delphi ile veritabanında arama yapmanıza yarayan basit ama kullanışlı iki kod.

TTable Nesnesi ile arama

Veritabanınıdaki verileri yönetmek için TTable nesnesi kullanmışsak bu nesnenin FindNearest fonksiyonunu kullanabilirsiniz. Oldukça basit ve kullanışlı bir fonksiyondur. Örnek bir kod ile göstermem gerekirse;

Duz Metin
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);

1nci satırda arama yapacağımız sütunu belirttik. 2nci satırda da Edit1 kutusundan gelen kelimeyi arattık.

TQuery Nesnesi ile arama

Veritabanınıdaki verileri yönetmek için TTable değil de SQL cümlelerini kullanmamıza yarayan TQuery nesnesini kullanmışsak, uygulamamıza şöyle bir SQL cümlesi ekleyerek arama yapabiliriz;

Duz Metin
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;

Bu örnekte öncelikle Query'yi durduruyoruz. Daha sonra SQL cümlesini sıfırlayıp yeni cümlemizi (arama cümlesi) ekliyoruz ve tekrar çalıştırıyoruz. Hepsi bu kadar.

Sonuç

Yukarıda en basit haliyle iki örnek verdim. Sorularınız için Delphi Dünyası'na başvurabilirsiniz.

Bu arada yakında hazırlamış olduğum bir Delphi uygulamasını kodlarıyla birlikte paylaşacağım, haberiniz olsun ;)


Benzer Yazılar

“Delphi İle Veritabanında Arama Yapmak” için 2 Yorum

  • 1 enver
    04 Mayıs 2008, 00:30

    delphi hep öğrenmek istediğim bir dil olarak kaldı içimde. okulda pascal öğrenmiştik ilk olarak, sonrasın da delphi diye beklerken visual basic çıkınca piyangodan delphi kala kaldı öyle.

  • 2 Sırrı
    04 Mayıs 2008, 20:45

    Erhan şu paylaşacağın delphi uygulaması ne üzerine merak ettim :)
    Bu aralar delphi yüzünden kafayı yedim
    Okul bitirme projesi olarak emlak takip otomasyonu aldım.
    Delphi dersi içinde ortak okul takip otomasyonu projemiz var.Delphi delphi yeter kardeşim :)


Yorum Yapın

yakuter.com © 2006-2008 Erhan Yakut. Tasarım Fallendesign.
Site içerisindeki içerikler izinsiz veya kaynak gösterilmeksizin kopyalanamaz, alıntı yapılamaz.

Wordpress Valid XHTML 1.0 Valid CSS