TeknoLib

Delphi Adoquery Kayıt Ekleme

Delphi ADOQuery ile Kayıt Ekleme

Giriş

Delphi, veritabanı işlemleri için güçlü bir geliştirme ortamı sunar. ADOQuery bileşeni, veritabanı sorguları oluşturmak ve yürütmek için kullanılan temel bir bileşendir. Bu makalede, Delphi ADOQuery bileşenini kullanarak veritabanına nasıl kayıt ekleyeceğinizi ayrıntılı olarak inceleyeceğiz.

ADOQuery Bileşenini Kullanma

ADOQuery bileşeni, Delphi’nin Data Access Components (DAC) kitaplığının bir parçasıdır. Veritabanına bağlanmak, sorguları yürütmek ve sonuçları işlemek için kullanılabilir. ADOQuery bileşenini kullanmak için aşağıdaki adımları izleyin:

  1. Delphi IDE’nizi açın ve yeni bir proje oluşturun.
  2. “Component Palette”ten “ADO” sekmesini seçin ve “ADOQuery” bileşenini formunuza sürükleyin.
  3. ADOQuery bileşeninin “Connection” özelliğini veritabanı bağlantınıza ayarlayın.
  4. “SQL” özelliğini, veritabanına kayıt eklemek için kullanılacak SQL sorgusuyla ayarlayın.

Kayıt Ekleme Sorgusu

Veritabanına kayıt eklemek için “INSERT INTO” ifadesini kullanan bir SQL sorgusu kullanmanız gerekir. Sorgunun genel biçimi şu şekildedir:

sql
INSERT INTO <tablo_adı> (<sütun_adı1>, <sütun_adı2>, ...)
VALUES (<değer1>, <değer2>, ...)

Örneğin, “Customers” adlı bir tabloya kayıt eklemek için aşağıdaki SQL sorgusunu kullanabilirsiniz:

sql
INSERT INTO Customers (CustomerID, CustomerName, ContactName)
VALUES (1001, 'John Doe', 'John')

ADOQuery Bileşenini Kullanarak Kayıt Ekleme

ADOQuery bileşenini kullanarak veritabanına kayıt eklemek için aşağıdaki adımları izleyin:

  1. ADOQuery bileşeninin “SQL” özelliğini kayıt ekleme sorgusuyla ayarlayın.
  2. “Active” özelliğini “True” olarak ayarlayın. Bu, sorgunun yürütülmesini tetikleyecektir.
  3. “RecordCount” özelliği, eklenen kayıtların sayısını döndürür.

Örnek Kod

Aşağıdaki Delphi kodu, ADOQuery bileşenini kullanarak veritabanına kayıt eklemeyi göstermektedir:

“`delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
// Veritabanı bağlantısını açın
ADOQuery1.Connection.Open;

// Kayıt ekleme sorgusunu ayarlayın
ADOQuery1.SQL.Text := ‘INSERT INTO Customers (CustomerID, CustomerName, ContactName) VALUES (1001, ”John Doe”, ”John”)’;

// Sorguyu yürütün
ADOQuery1.Active := True;

// Eklenen kayıtların sayısını alın
ShowMessage(IntToStr(ADOQuery1.RecordCount) + ‘ kayıt eklendi.’);

// Veritabanı bağlantısını kapatın
ADOQuery1.Connection.Close;
end;
“`

Faydalı Kaynaklar

Sonuç

Delphi ADOQuery bileşeni, veritabanına kayıt eklemek için güçlü bir araçtır. Bu makalede açıklanan adımları izleyerek, veritabanı işlemlerinizi kolayca gerçekleştirebilirsiniz.

Yayımlandı

kategorisi