SQLite Databasedeki Dataları Memo Nesnesinde Göstermek

Merhaba arkadaşlar bu makalemizde SQLite veritabanına bağlanacağız. Employees.s3db veritabanındaki Employee tablosunu Memo nesnesinde göstereceğiz.

Şimdi Data Explorer FireDAC kısmında SQLite database e sağ tıklayalım. Add New  Connection a tıklayalım. 

Şekil 1

SQLite veritabanına bağlantı yapacağımız Connection ismini belirleyip OK butonuna tıklayalım.

Şekil 2

SQLite veritabanına bağlantı sağladığımızda Employee tablosu aşağıdaki gibi gözükmektedir.

Şekil 3

Data Explorer FireDac kısmındaki SQLite database altında oluşan sqlconnection u forma ekleyebiliriz. Veya Palette kısmından formumuza SQL Connection ekleyebiliriz.

Şekil 4

Object Inspector kısmından SQL Connection1 nesnesinin Params kısmına tıklayalım. Açılan Value List Editor penceresinde Database kısmına veritabanımızın path yolunu ekleyelim.

Şekil 5

Formumuza Palette kısmından SQLQuery ekleyelim.  Object Inspector kısmından SQLQuery1 nesnesinin SQL kısmına tıklayalım. Açılan String List Editor penceresindeki alan Sql komutumuzu yazıp OK butonuna tıklayalım.

Şekil 6

Formumuza 1 adet Memo ve Button ekleyelim. Buttona aşağıdaki kod parçacığını yazalım. Buttona tıkladığımızda Employee tablosundaki verileri Memo nesnesinde gösterimini sağlamış olacağız.

Şekil 7

unit sqlquery_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.FMTBcd, Data.DbxSqlite,

Vcl.StdCtrls, Data.DB, Data.SqlExpr;

type

TForm1 = class(TForm)

SQLQuery1: TSQLQuery;

SQLConnection1: TSQLConnection;

Memo1: TMemo;

btnConnect: TButton;

procedure btnConnectClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnConnectClick(Sender: TObject);

var

names: TStringList;

i: Integer;

currentField: TField;

currentLine: string;

begin

if not SQLQuery1.IsEmpty then

begin

SQLQuery1.First;

names := TStringList.Create;

SQLQuery1.GetFieldNames(names);

while not SQLQuery1.Eof do

begin

currentLine := '';

for i := 0 to names.Count - 1 do

begin

currentField := SQLQuery1.FieldByName(names[i]);

currentLine := currentLine + ' ' + currentField.AsString;

end;

Memo1.Lines.Add(currentLine);

SQLQuery1.Next;

end;

end;

end;

end.

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