TeknoLib

Delphi Adsquery Kayıt Ekleme

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:

  1. Veritabanı Bağlantısı Oluşturun: Öncelikle, veritabanına bir bağlantı oluşturmanız gerekir. Bunu yapmak için TADOConnection bileşenini kullanabilirsiniz.
  2. ADSQuery Bileşeni Ekle: Formunuza bir TADSQuery bileşeni ekleyin.
  3. Veritabanı Bağlantısını Ayarlayın: ADSQuery bileşeninin Connection özelliğini veritabanı bağlantısı bileşenine ayarlayın.
  4. 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ş)

  1. 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;

  1. Kayıt Değerlerini Ayarlayın: Kayıt eklemeden önce, parametre değerlerini ayarlamanız gerekir. Bunu yapmak için Parameters koleksiyonunun Values özelliğini kullanabilirsiniz. Örneğin:

delphi
ADSQuery1.Parameters['Ad'].Value := 'John';
ADSQuery1.Parameters['Soyad'].Value := 'Doe';
ADSQuery1.Parameters['Yaş'].Value := 30;

  1. 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.

Yayımlandı

kategorisi