TeknoLib

Delphi Veritabanı Kayıt Ekleme

Delphi Veritabanına Kayıt Ekleme: Kapsamlı Bir Kılavuz

Delphi, veritabanı yönetimi için güçlü özellikler sunan popüler bir geliştirme ortamıdır. Veritabanına kayıt eklemek, Delphi uygulamalarında yaygın bir görevdir ve bu makale, bu işlemi adım adım gerçekleştirmek için kapsamlı bir kılavuz sağlayacaktır.

Adım 1: Veritabanı Bağlantısı Oluşturma

İlk adım, Delphi uygulamanızdan veritabanına bir bağlantı oluşturmaktır. Bu, TADOConnection bileşenini kullanarak yapılabilir:

delphi
var
ADOConnection1: TADOConnection;
begin
ADOConnection1 := TADOConnection.Create(nil);
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb';
ADOConnection1.Open;
end;

Adım 2: Veri Kaynağı Oluşturma

Bir sonraki adım, veritabanındaki tablodan veri almak için bir veri kaynağı oluşturmaktır. Bu, TADODataSet bileşenini kullanarak yapılabilir:

delphi
var
ADODataSet1: TADODataSet;
begin
ADODataSet1 := TADODataSet.Create(nil);
ADODataSet1.Connection := ADOConnection1;
ADODataSet1.CommandText := 'SELECT * FROM TableName';
ADODataSet1.Open;
end;

Adım 3: Yeni Kayıt Ekleme

Yeni bir kayıt eklemek için TADODataSet.Insert yöntemini kullanabilirsiniz:

delphi
var
ADODataSet1: TADODataSet;
begin
ADODataSet1.Insert;
ADODataSet1.FieldByName('FieldName').AsString := 'Value';
ADODataSet1.Post;
end;

Adım 4: Değişiklikleri Kaydetme

Yeni kaydı veritabanına kaydetmek için TADODataSet.ApplyUpdates yöntemini kullanın:

delphi
var
ADODataSet1: TADODataSet;
begin
ADODataSet1.ApplyUpdates;
end;

Örnek Kod

Aşağıdaki örnek kod, bir Delphi uygulamasında veritabanına nasıl kayıt ekleneceğini gösterir:

“`delphi
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, ADOIntf, ADODB;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Insert;
ADODataSet1.FieldByName(‘FieldName’).AsString := ‘Value’;
ADODataSet1.Post;
ADODataSet1.ApplyUpdates;
end;

end.
“`

İpuçları ve Püf Noktaları

  • Veritabanına kayıt eklerken veri türlerine dikkat edin.
  • Yeni kayıt eklemeden önce veritabanı bağlantısının açık olduğundan emin olun.
  • Değişiklikleri veritabanına kaydetmeden önce TADODataSet.ApplyUpdates yöntemini kullanın.
  • Veritabanı işlemlerini bir try...finally bloğu içinde gerçekleştirin ve hataları uygun şekilde işleyin.

İlgili Kaynaklar

Yayımlandı

kategorisi