MSSql Veritabına UniConnection Ile Bağlanmak

Merhaba arkadaşlar bu makalemizde MS Sql e UniConnection ile bağlanacağız. UniConnection ile bağlantı yapabilmek için UniDAC ın Trial versiyonunu sitesinden indirip setup’ını Delphi’ye ayrıca kurmamız gerekecektir. Unidac bileşenini buradan indirebilirsiniz. 

Şimdi formumuza Palette kısmından DBGrid ekleyelim. Daha sonra yine palette kısmından UniConnection, SQLServerUniProvider, UniQuery ve dataSource nesnesi ekleyelim.

UniConnection nesnesine çift tıklayalım veya sağ tıklayıp açılan pencerede Connection Editor e tıklayalım. Açılan pencerede;

Provider kısmında SQL Server,

Server kısmında server ismini (bu örnekte sirius\SQLEXPRESS02),

Port=1433,

Username=sa (buraya sql servere bağlanılırken kullanılan kullanıcı ismi girilecek)

Password=1234 (bu kısma servere bağlanılırken kullanılan şifre girilecek)

Database=master (server daki bağlanılacak tablo ismi seçilecek.)

Bu işlemleri yaptıktan sonra Connect butonuna tıklıyoruz. Şekil de gördüğümüz gibi yeşil ışık yanmış olacak ve sonra OK butonuna tıklıyoruz. 

Şekil 1

Bu şekil de Object Inspector kısmında UniConnection nesnesinin ConnectionString= Provider Name=SQL Server;Data Source=sirius\SQLEXPRESS02;Initial Catalog=master;User ID=sa;Password=1234 

Database=master 

Gözükecektir.

Sonraki adımda Object Inspector kısmında UniQuery nesnesinde Connection=UniConnection1 seçelim. Ayrıca SQL kısmındaki … ya tıklayalım. Açılan pencerede SQL kısmına sql komutumuzu yazalım. Bu örnek için Select * from worldclassics şeklinde komut yazacağız. Son olarak UniQuery1 nesnesinin Active kısmını True yapalım.

Şekil 2

Evet şimdi de DBGrid nesnesine MS Sql veritabanından veri çekmeye sıra geldi. Object Inspector kısmında Datasource1 nesnesinin Dataset özelliğinde UniQuery1 i seçelim.

Yine Object Inspector kısmında DBGrid1 nesnesinin DataSource özelliğinde DataSource1 i seçelim. Böylece verilerimizin başarılı bir şekilde DBGRid de gösterimini sağlamış olduk.

Şekil 3 

unit mssql_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, MemDS, DBAccess, Uni,

Vcl.Grids, Vcl.DBGrids, UniProvider, SQLServerUniProvider;

type

TForm1 = class(TForm)

UniConnection1: TUniConnection;

SQLServerUniProvider1: TSQLServerUniProvider;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

UniQuery1: TUniQuery;

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