ADOTable Insert, Update ve Delete Islemleri

Merhaba arkadaslar bu makalemizde Delphi de ADOTable kullanarak DBGrid nesnesine kayit girisi yapacagiz. Mevcut kayitlari guncelleyecegiz veya mevcut kayiti silecegiz.

Formumuza 1 adet DBGrid ve 3 Button ekliyoruz. Ayrica Palette kismindan 1 adet ADOTable ve DataSource ekliyoruz.

Daha onceki makalede veritabanina nasil baglanilir detayli anlatmistim. Onceki makaleye buradan ulasabilirsiniz. 

Sekil 1

Sekil 2

unit insert_Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,

Vcl.DBGrids, Data.Win.ADODB;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.InsertRecord([8,'Tom','Benson', '08.2.2022']);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOTable1.Locate('Adi', 'Tom', [loPartialKey]);

ADOTable1.Delete;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

with ADOTable1 do

begin

Locate('Adi', 'Tom', [loPartialKey]);

Edit;

FieldByName('Adi').AsString:='Tommy';

Post;

Refresh;

end;

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede gorusmek uzere. Bahadir SAHIN