Delphi ile ADSQuery Kayıt Ekleme
Delphi, veritabanı işlemleri için güçlü bir geliştirme ortamı sunar. ADSQuery bileşeni, veritabanı sorguları oluşturmak ve yürütmek için kullanılabilir. Bu makalede, Delphi’de ADSQuery kullanarak veritabanına nasıl kayıt ekleneceğini ayrıntılı olarak inceleyeceğiz.
ADSQuery Bileşeni
ADSQuery, Delphi’nin Data Access Components (DAC) kitaplığının bir parçasıdır. Veritabanı sorguları oluşturmak ve yürütmek için kullanılan bir bileşendir. ADSQuery, SQL sorgularını destekler ve veritabanı bağlantısı, sorgu metni ve parametreler gibi çeşitli özellikleri yapılandırmanıza olanak tanır.
Kayıt Ekleme
Delphi’de ADSQuery kullanarak veritabanına kayıt eklemek için aşağıdaki adımları izleyin:
- Veritabanı Bağlantısı Oluşturun: Öncelikle, veritabanına bir bağlantı oluşturmanız gerekir. Bunu yapmak için
TADOConnection
bileşenini kullanabilirsiniz. - ADSQuery Bileşeni Ekle: Formunuza bir
TADSQuery
bileşeni ekleyin. - Veritabanı Bağlantısını Ayarlayın: ADSQuery bileşeninin
Connection
özelliğini veritabanı bağlantısı bileşenine ayarlayın. - Sorgu Metnini Ayarlayın: ADSQuery bileşenin
SQL
özelliğini, kayıt eklemek için kullanılacak SQL sorgusuyla ayarlayın. Örneğin, aşağıdaki sorgu bir “Kişiler” tablosuna kayıt ekler:
sql
INSERT INTO Kişiler (Ad, Soyad, Yaş) VALUES (:Ad, :Soyad, :Yaş)
- Parametreleri Ayarlayın: Sorgu parametreleri varsa, bunları ADSQuery bileşeninin
Parameters
koleksiyonuna eklemeniz gerekir. Örneğin, yukarıdaki sorgu için aşağıdaki parametreleri eklemeniz gerekir:
delphi
with ADSQuery1.Parameters do
begin
Add('Ad', ftString, 50);
Add('Soyad', ftString, 50);
Add('Yaş', ftInteger);
end;
- Kayıt Değerlerini Ayarlayın: Kayıt eklemeden önce, parametre değerlerini ayarlamanız gerekir. Bunu yapmak için
Parameters
koleksiyonununValues
özelliğini kullanabilirsiniz. Örneğin:
delphi
ADSQuery1.Parameters['Ad'].Value := 'John';
ADSQuery1.Parameters['Soyad'].Value := 'Doe';
ADSQuery1.Parameters['Yaş'].Value := 30;
- Sorguyu Çalıştırın: Kayıt eklemek için
Execute
yöntemini çağırın. Örneğin:
delphi
ADSQuery1.Execute;
Örnek Kod
Aşağıdaki örnek kod, Delphi’de ADSQuery kullanarak bir veritabanına kayıt eklemeyi göstermektedir:
“`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, Data.DB, Data.Win.ADODB;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADSQuery1: TADSQuery;
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
// Veritabanı bağlantısı aç
ADOConnection1.Open;
// Sorgu parametrelerini ayarla
with ADSQuery1.Parameters do
begin
Add(‘Ad’, ftString, 50);
Add(‘Soyad’, ftString, 50);
Add(‘Yaş’, ftInteger);
end;
// Kayıt değerlerini ayarla
ADSQuery1.Parameters[‘Ad’].Value := ‘John’;
ADSQuery1.Parameters[‘Soyad’].Value := ‘Doe’;
ADSQuery1.Parameters[‘Yaş’].Value := 30;
// Sorguyu çalıştır
ADSQuery1.Execute;
// Veritabanı bağlantısını kapat
ADOConnection1.Close;
ShowMessage(‘Kayıt eklendi.’);
end;
end.
“`
Faydalı Kaynaklar
Sonuç
Delphi’de ADSQuery kullanarak veritabanına kayıt eklemek, veritabanı işlemlerini gerçekleştirmek için güçlü bir yöntemdir. Bu makalede açıklanan adımları izleyerek, veritabanınıza kolayca kayıt ekleyebilir ve uygulamalarınızın veritabanı etkileşimini geliştirebilirsiniz.