Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız.
Formumuza 1 adet DBGrid, 1 adet Button ekleyelim. Ayrıca formumuza 1 er adet DataSource ve ADOTable ekleyelim. Daha önceki makalelerde anlatmıştım. Object Inspector de ADOTable imizin ConnectingString kısmından access veritabanımızın yolunu ekliyoruz. ADOTable in TableName kısmından bağlanacağımız tablonun ismini seçiyoruz. Son olarak Object Inspector de DataSource un DataSet ini ADOTable1 olarak ayarlıyoruz.
Bu örneğimizde Tarih sütununda seçtiğimiz satırların tarih değerlerini veritabanından silinmesini sağlayacağız.
Şekil 1
Şekil 2
unit clear_date_field_Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
DBGrid1: TDBGrid;
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);
begin
with ADOTable1 do
begin
Edit;
FieldByName('Date').Clear;
Post;
end;
end;
end.
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder