FDConnection Ile Sqlite Veritabanina Baglanma

Merhaba arkadaşlar bu makalemizde FDConnection ile Sqlite veritabanına bağlanacağız. Sqlite veritabanındaki tablodaki verileri DBGrid nesnesinde gösterimini sağlayacağız. İlk önce Formumuza Palette kısmından FDConnection, FDQuery, Dataset ve DBGrid ekleyin.

Object Inspectorde FDQuery1 in Connection özelliğini FDConnection1 ayarlayın. Yine FDQuery1 in SQL sekmesine tıklayın. Açılan String List Editor kısmına Sql kodunuzu yazıp OK butonuna tıklayın.

Şimdi FDConnection1 in Driver name kısmını SQLite seçin veya FDConnection1 e sağ tıklayın. Açılan pencerede Connection Editore tıklayin. Burada veritabanınızın yolunu ekleyin. Ayrıca veritabanınızda kullanıcı adı ve şifre varsa onlarıda girip OK butonuna tıklayın.

Şekil 1

DataSource1 nesnesini seçip DataSet özelliğini FDQuery1 ayarlayalım. Son olarak DBGrid1 nesnesinin DataSource özelliğini DataSource1 yapalım.

Şekil 2

unit Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, 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.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,

FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.Grids,

Vcl.DBGrids, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef,

FireDAC.Stan.ExprFuncs, FireDAC.Phys.SQLiteWrapper.Stat;

type

TColorDBGrid = Class(TCustomDBGrid);

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

FDConnection1: TFDConnection;

FDQuery1: TFDQuery;

procedure FormCreate(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

with TColorDBGrid(Sender) do begin

if DataLink.ActiveRecord = Row - 1 then begin

Canvas.Brush.Color := clLime;

Canvas.Font.Color := clFuchsia;

end

else begin

Canvas.Brush.Color := clWindow;

Canvas.Font.Color := clWindowText;

end;

DefaultDrawColumnCell(Rect, DataCol, Column, State);

end; end;

procedure TForm1.FormCreate(Sender: TObject); begin

FDConnection1.Close;

FDConnection1.Params.Clear;

FDConnection1.Params.Add('DriverID=SQLite');

FDConnection1.Params.Add('Database=D:\geo.sqlite');

FDConnection1.Open;

FDQuery1.Open;

end;

end.

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