ADOTable Kullanarak Çalışma Anında Access Veritabanına Kayıt Eklemek ve DBGrid Nesnesinde Göstermek

Merhaba arkadaşlar bu makalemizde AdoTable kullanarak çalışma anında access veritabanına kayıt ekleyeceğiz ve eklediğimiz kayıdı DBGrid nesnesinde gösterceğiz. 

Formumuza Palette kısmında 1 adet DBGrid, DataSource, AdoTable ve Button ekleyelim. 

AdoTable i seçelim. Object Inspector Properties kısmındaki ConnectionString kısmından access veritabanı yolunu tanımlıyoruz. Yine Name kısmından tablomuzu seçiyoruz. Son olarak AdoTable in Active özelliğini True yapın. Şimdi DataSource nesnesini seçip  Object Inspector Properties kısmından DataSet e AdoTable nesnesini tanımlayalım. DBGRid nesnesi seçiliyken DataSource kısmından DataSource nesnemizi seçelim.

Butonumuzun click kısmında; AdoTable in FieldName özelliğini kullanarak yeni kayıt işlemini post ediyoruz.

Şekil 1

Şekil 2

unit add_file_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;

Button1: TButton;

ADOTable1: TADOTable;

DataSource1: TDataSource;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Field: TField;

i: Integer;

begin

ADOTable1.Active:=False;

for i:=0 to ADOTable1.FieldDefs.Count-1 do

Field:=ADOTable1.FieldDefs[i].CreateField(ADOTable1);

Field:=TStringField.Create(ADOTable1);

with Field do

begin

FieldName:='Explanation';

Calculated:=True;

DataSet:=ADOTable1;

ADOTable1.Open;

ADOTable1.Append;

ADOTable1.FieldByName('Adi').AsString := 'Magda';

ADOTable1.FieldByName('Soyadi').AsString := 'Adelen';

ADOTable1.FieldByName('Date').AsDateTime:=Date;

ADOTable1.Post;

ADOTable1.FieldDefs.Update;

ADOTable1.Active:=True;

end;

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN