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
0 comments:
Yorum Gönder