InterBase DataBase e Bağlantı Yapmak

Merhaba arkadaşlar bu makalemizde  InterBase database e bağlanacağız. Gdb uzantılı veritabanımızdaki tablomuzdaki verileri DBGrid nesnesinde göstereceğiz.

İlk önce InterBase Server i bu linkten bilgisayarınıza kurmanız gerekir. Sonra aşağıdaki şekilde gösterildiği gibi Interbase Server başlatın. Status un Running olmasına dikkat edelim. Biz bu uygulamada IB Database e sıkça kullanılan User name: sysdba ve Password: masterkey parametreleri ile bağlanacağız.

Şekil 1

Şekil 2

Formumuza Palette kısmından FDQuery, FDConnection, DataSource ve DBGrid nesnelerini ekleyelim. 

FDConnection a sağ tıklayalım. Açılan pencerede Connection Editore tıklayalım. Aşağıdaki gibi bağlanacağımız veritabanı türünü , adresini , kullanıcı adı ve şifresini düzenleyelim. FDQuery nesnesinin Connection özelliğinden FDConnection1 i ayarlayalım

Şekil 3

DataSource nesnesinin DataSet özelliğini FDQuery olarak ayarlayalım. Son olarak DBGrid nesnesinin DataSource özelliğini DataSource1 yapalım. 

Formumuzu çalıştırdığımızda aşağıdaki gibi InterBase Database imize bağlandığımızı göreceğiz.

Şekil 4

unit Interbase_db_Unit1; interface

uses

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

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

IBX.IBCustomDataSet, IBX.IBTable, IBX.IBDatabase, FireDAC.Stan.Intf,

FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,

FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,

FireDAC.Phys.IB, FireDAC.Phys.IBDef, FireDAC.VCLUI.Wait, FireDAC.Comp.Client,

FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,

FireDAC.Comp.DataSet, FireDAC.Phys.FB, FireDAC.Phys.FBDef;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

FDConnection1: TFDConnection;

FDQuery1: TFDQuery;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin

DBGrid1.Align:=alclient; end;

end.

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