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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.