Delphi ile Birden Çok Kayıt Ekleme
Delphi, veritabanı işlemleri için güçlü bir geliştirme ortamı sunar. Birden çok kaydı veritabanına verimli bir şekilde eklemek, uygulamaların önemli bir yönüdür. Bu makale, Delphi kullanarak birden çok kaydın nasıl ekleneceğini ayrıntılı olarak açıklayacaktır.
Veritabanı Bağlantısı Oluşturma
Birden çok kaydı eklemeden önce, veritabanına bir bağlantı oluşturmanız gerekir. Delphi’de, TADOConnection bileşeni veritabanı bağlantıları oluşturmak için kullanılır.
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;
Kayıt Ekleme Komutu Oluşturma
Birden çok kaydı eklemek için bir SQL komutu kullanmanız gerekir. INSERT INTO ifadesi, yeni kayıtları bir tabloya eklemek için kullanılır.
sql
INSERT INTO table_name (column1, column2, ...) VALUES (value1, value2, ...);
Delphi’de, TADOQuery bileşeni SQL komutlarını çalıştırmak için kullanılır.
delphi
var
ADOQuery1: TADOQuery;
begin
ADOQuery1 := TADOQuery.Create(nil);
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Text := 'INSERT INTO table_name (column1, column2, ...) VALUES (value1, value2, ...);';
end;
Parametreli Sorgu Kullanma
Birden çok kaydı eklerken, parametreli sorgular kullanmak iyi bir uygulamadır. Parametreli sorgular, SQL komutlarına değerleri dinamik olarak eklemenize olanak tanır. Bu, SQL enjeksiyon saldırılarını önlemeye yardımcı olur.
Delphi’de, parametreli sorgular TADOParameter bileşeni kullanılarak oluşturulur.
delphi
var
ADOParameter1: TADOParameter;
begin
ADOParameter1 := TADOParameter.Create(nil);
ADOParameter1.Name := 'value1';
ADOParameter1.Value := 'some value';
ADOQuery1.Parameters.Add(ADOParameter1);
end;
Kayıtları Ekleme
Kayıtları eklemek için TADOQuery.ExecSQL yöntemini kullanabilirsiniz.
delphi
ADOQuery1.ExecSQL;
Örnek Kod
Aşağıdaki örnek kod, “Customers” adlı bir tabloya birden çok müşteri kaydı ekler:
“`delphi
var
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOParameter1: TADOParameter;
ADOParameter2: TADOParameter;
begin
ADOConnection1 := TADOConnection.Create(nil);
ADOConnection1.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb’;
ADOConnection1.Open;
ADOQuery1 := TADOQuery.Create(nil);
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Text := ‘INSERT INTO Customers (name, email) VALUES (?, ?)’;
ADOParameter1 := TADOParameter.Create(nil);
ADOParameter1.Name := ‘name’;
ADOParameter1.Value := ‘John Doe’;
ADOQuery1.Parameters.Add(ADOParameter1);
ADOParameter2 := TADOParameter.Create(nil);
ADOParameter2.Name := ’email’;
ADOParameter2.Value := ‘[email protected]’;
ADOQuery1.Parameters.Add(ADOParameter2);
ADOQuery1.ExecSQL;
ADOConnection1.Close;
end;
“`