Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız.
Formumuza Data Controls kısmından 1 adet DBGrid, DBNavigator ekleyin.
Formumuza Data Access kısmından 1 adet DataSource ve dbGo kısmından AdoTable ekleyin.
DataSource1 i seçin ve Object Inspector de DataSet kısmında AdoTable1 i seçin.
Şimdi AdoTable1 i seçelim ve Object Inspector kısmında ConnectionString kısmındaki ... noktaya tıklayıp açı, açılan pencerede Build buttonuna tıklıyoruz. Böylece access veritabanımızın olduğu klasör adresini tanımlıyoruz. Bu örneğimizde ConnnectionString imiz “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\tommy\Documents\Embarcadero\Studio\Projects\access_db_baglanti\Db1.mdb;Persist Security Info=False” şeklindedir.
Ayrıca AdoTable1 Object Inspector kısmında TableName de tablomuzu seçelim ve Active kısmını True yapmayı unutmayalım.
DBNavigotor1 ve DBGrid1 nesnesini sırayla seçip, DataSource kısmında DataSource1 i seçelim.
Böylece kod kullanmadan access veritabanımıza bağlandık. DBNavigator butonlarına tıklayarak kayıtlar arasında gezebilirsiniz.
Şekil 1
unit access_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.ExtCtrls, Vcl.DBCtrls;
Type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Private
{ Private declarations }
Public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
end.
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder