TeknoLib

Delphi Sql Anda Birden Çok Kayıt Ekleme

Delphi’de SQL ile Birden Çok Kayıt Ekleme

Delphi, güçlü bir nesne yönelimli programlama dilidir ve veritabanı işlemleri için kapsamlı destek sunar. Birden çok kaydı bir SQL INSERT ifadesiyle veritabanına eklemek, Delphi’de kolayca yapılabilir.

INSERT İfadesi

Birden çok kaydı eklemek için kullanılan SQL INSERT ifadesi aşağıdaki söz dizimine sahiptir:

sql
INSERT INTO table_name (column1, column2, ..., columnN)
VALUES (value1, value2, ..., valueN),
(value1, value2, ..., valueN),
...

Burada:

  • table_name eklenecek kayıtların ekleneceği tablonun adıdır.
  • column1, column2, …, columnN eklenen değerlerin ekleneceği sütunların adlarıdır.
  • value1, value2, …, valueN eklenen değerlerdir.

Delphi’de Birden Çok Kayıt Ekleme

Delphi’de birden çok kaydı SQL ile eklemek için aşağıdaki adımları izleyin:

  1. Bir TADOConnection bileşeni oluşturun ve veritabanına bağlayın.
  2. Bir TADOTable bileşeni oluşturun ve TADOConnection bileşenine bağlayın.
  3. TADOTable bileşeninin Insert yöntemini kullanarak yeni kayıtlar ekleyin.

Örnek Kod

Aşağıdaki Delphi kodu, “Customers” adlı bir tabloya birden çok müşteri kaydı ekler:

“`delphi
procedure InsertMultipleRecords;
var
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
i: Integer;
begin
// Veritabanına bağlanma
ADOConnection1 := TADOConnection.Create(nil);
ADOConnection1.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb’;
ADOConnection1.Connected := True;

// Tabloya bağlanma
ADOTable1 := TADOTable.Create(nil);
ADOTable1.Connection := ADOConnection1;
ADOTable1.TableName := ‘Customers’;

// Kayıtları ekleme
for i := 1 to 3 do
begin
ADOTable1.Insert;
ADOTable1.FieldByName(‘Name’).AsString := ‘Müşteri ‘ + IntToStr(i);
ADOTable1.FieldByName(‘Address’).AsString := ‘Adres ‘ + IntToStr(i);
ADOTable1.FieldByName(‘Phone’).AsString := ‘Telefon ‘ + IntToStr(i);
ADOTable1.Post;
end;

// Veritabanı bağlantısını kapatma
ADOConnection1.Connected := False;
ADOConnection1.Free;
ADOTable1.Free;
end;
“`

Faydalı Siteler

Yayımlandı

kategorisi