TeknoLib

Delphi Veritabanına Kayıt Ekleme

Delphi Veritabanına Kayıt Ekleme

Delphi, veritabanı yönetimi için güçlü özellikler sunan bir programlama dilidir. Delphi ile veritabanına kayıt eklemek, veritabanı işlemlerinin temel bir parçasıdır ve çeşitli yollarla yapılabilir. Bu makale, Delphi’de veritabanına kayıt eklemenin ayrıntılı bir kılavuzunu sağlayacaktır.

Veritabanı Bağlantısı Oluşturma

Veritabanına kayıt eklemeden önce, Delphi uygulamanızın veritabanına bağlanması gerekir. Bu, TADOConnection bileşeni kullanılarak yapılabilir. Aşağıdaki kod örneği, bir Microsoft Access veritabanına bağlantı oluşturur:

delphi
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb';
ADOConnection1.Open;
end;

Kayıt Ekleme

Veritabanına bağlandıktan sonra, TADOQuery bileşeni kullanılarak kayıtlar eklenebilir. TADOQuery bileşeni, SQL sorgularını yürütmek ve veritabanından veri almak için kullanılır.

Bir kayıt eklemek için, aşağıdaki adımlar izlenebilir:

  1. TADOQuery bileşeni için bir SQL ekleme sorgusu ayarlayın. Örneğin, aşağıdaki SQL sorgusu bir “Kişiler” tablosuna yeni bir kayıt ekler:

sql
INSERT INTO Kişiler (Ad, Soyad, Yaş) VALUES ('John', 'Doe', 30)

  1. TADOQuery bileşenin SQL özelliğini SQL ekleme sorgusuyla ayarlayın:

delphi
ADOQuery1.SQL.Text := 'INSERT INTO Kişiler (Ad, Soyad, Yaş) VALUES (''John'', ''Doe'', 30)';

  1. TADOQuery bileşenin ExecSQL metodunu çağırın. Bu, SQL sorgusunu yürütür ve veritabanına yeni bir kayıt ekler:

delphi
ADOQuery1.ExecSQL;

Parametreli Sorgular

Parametreli sorgular, SQL sorgularına dinamik olarak değerler geçirmeyi sağlar. Bu, SQL sorgularını daha esnek ve yeniden kullanılabilir hale getirir.

Parametreli bir sorgu kullanmak için, TADOQuery bileşenin Parameters özelliğini kullanın. TADOQuery bileşeni, parametreleri adlarına veya konumlarına göre ayarlayabilir.

Örneğin, aşağıdaki kod örneği, parametreli bir sorgu kullanarak bir kayıt ekler:

delphi
ADOQuery1.SQL.Text := 'INSERT INTO Kişiler (Ad, Soyad, Yaş) VALUES (:Ad, :Soyad, :Yaş)';
ADOQuery1.Parameters.ParamByName('Ad').Value := 'John';
ADOQuery1.Parameters.ParamByName('Soyad').Value := 'Doe';
ADOQuery1.Parameters.ParamByName('Yaş').Value := 30;
ADOQuery1.ExecSQL;

Hata İşleme

Veritabanına kayıt eklerken hatalar oluşabilir. Bu hataları işlemek için TADOConnection bileşenin OnError olayını kullanın. OnError olayı, bir hata oluştuğunda tetiklenir ve hata hakkında bilgi sağlar.

Örneğin, aşağıdaki kod örneği, veritabanına kayıt eklerken oluşan hataları işler:

delphi
procedure TForm1.ADOConnection1Error(Sender: TObject; E: Exception);
begin
ShowMessage(E.Message);
end;

Faydalı Siteler ve Dosyalar

Yayımlandı

kategorisi