Delphi ile Tabloya Kayıt Ekleme
Delphi, veritabanı uygulamaları için kapsamlı bir çerçeve sağlayan nesne odaklı bir programlama dilidir. Veritabanı tablolarına kayıt eklemek, Delphi ile gerçekleştirilebilen temel bir görevdir. Bu makale, Delphi kullanarak bir tabloya kayıt eklemeyi adım adım açıklayacaktır.
Adım 1: Veritabanı Bağlantısı Oluşturma
İlk adım, veritabanına bir bağlantı kurmaktan ibarettir. Delphi’de bu, TADOConnection bileşeni kullanılarak yapılabilir. Bileşeni formunuza ekleyin ve Connection özelliğini veritabanı bağlantı dizesiyle ayarlayın.
Adım 2: Veritabanı Komutu Oluşturma
Bir sonraki adım, kayıt eklemek için kullanılacak veritabanı komutunu (SQL sorgusu) almaktan ibarettir. Delphi’de bu, TADOCommand bileşeni kullanılarak yapılabilir. Bileşeni formunuza ekleyin ve CommandText özelliğini SQL sorgusuyla ayarlayın.
Adım 3: Parametreleri Ayarlama
SQL sorgusu parametreler içeriyorsa, bunların TADOCommand bileşeninin Parameters kolekiyonu kullanılarak ayarlanması gerekir. Her parametre için Name ve Value özelliklerini ayarlayın.
Adım 4: Kaydı Ekleme
Kaydı eklemek için TADOCommand bileşeninin Execute yöntemini kullanın. Bu yöntem, sorgunun veritabanında yürütülmesini tetikler ve yeni kaydın eklenmesine neden olur.
Adım 5: Değişikliklerin Kaydedilmesi
Son olarak, yapılan değişikliklerin veritabanında kalıcı kılınması gerekir. Bu, TADOConnection bileşeninin Commit yöntemini kullanarak yapılabilir.
Örnek Kod
Aşama aşama bir örnek kod aşağıda verilmektedir:
“`delphi
// Veritabanı bağlantısı
ADOConnection1.Connection := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=veri.mdb’;
ADOConnection1.Open;
// Veritabanı komutu
ADOCommand1.Connection := ADOConnection1;
ADOCommand1.CommandText := ‘INSERT INTO Kisiler (Ad, Soyad, Yas) VALUES (?, ?, ?);’;
// Parametreleri ayarlama
ADOCommand1.Parameters.ParamByName(‘Ad’).Value := ‘John’;
ADOCommand1.Parameters.ParamByName(‘Soyad’).Value := ‘Doe’;
ADOCommand1.Parameters.ParamByName(‘YAs’).Value := 30;
// Kaydı ekleme
ADOCommand1.Execute;
// Değişikliklerin kaydedilmesi
ADOConnection1.Commit;
“`
Faydalı Kaynaklar