Lazarus + SQLite – Delphi – Fórum – Programujte.com

Zdravím komunitu.

Chtěla jsem najít (jakkoli primitivní) funkční příklad pro použití SQLite3 v Lazaru. Na první pohled se zdá, že nebude problém a že všeho je přehršel. Ale každý – a tím myslím opravdu KAŽDÝ – příklad, který jsem si stáhla, byl ve formě, ve které nešel zkompilovat a házel chyby, které jsem nedokázala odladit (syntaktické i sémantické, jdoucí hluboko do těch nejobecnějších a nejstandardnějších zdrojáků Lazaru). Zkoušela jsem i různé videocasty a opět u každého z nich jsem se dostala do bodu, kdy autorovi videa něco šlo a mě ne. Nedokážu popsat, jak moc jsem z toho frustrovaná, že jsem mohla na takové relativně jednoduché věci pohořet.

Je tu někdo, kdo v Lazaru dělá a má příklad s SQLite, který opravdu funguje? Byl by tak hodný a vložil sem zdroják (klidně v té nejosekanější formě - jen připojení k databázi)? Popřípadě poradil, co všechno je k tomu potřeba (nastavení projektu apod.)?

Budu vděčná za jakoukoli dobrou radu.

(Btw. Dynamickou knihovnu mám stáhnutou a přiloženu v adresáři projektu. Mám naprosto standardní a typickou instalaci Lazaru, verze 1.0.6.)

Jde to třeba nějak takhle:

unit frmMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqlite3conn, sqldb, DB, FileUtil, Forms, Controls,
  Graphics, Dialogs, DBGrids, StdCtrls;

type

  { TMainForm }

  TMainForm = class(TForm)
    btnCreateTable: TButton;
    btnReadData: TButton;
    btnInsertRecord: TButton;
    conDatabase: TSQLite3Connection;
    dsGet: TDatasource;
    DBGrid1: TDBGrid;
    qrSend: TSQLQuery;
    qrGet: TSQLQuery;
    trnDatabase: TSQLTransaction;
    procedure btnCreateTableClick(Sender: TObject);
    procedure btnReadDataClick(Sender: TObject);
    procedure btnInsertRecordClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.btnCreateTableClick(Sender: TObject);
begin
  try
    if not conDatabase.Connected then
      conDatabase.Connected := True;

    qrSend.SQL.Clear;
    qrSend.SQL.Add(
      'create table if not exists test (id integer primary key, name varchar(20))');
    qrSend.ExecSQL;

    trnDatabase.CommitRetaining;
  except
    trnDatabase.Rollback;
  end;

end;

procedure TMainForm.btnReadDataClick(Sender: TObject);
begin
  try
    if qrGet.Active then
      qrGet.Close;

    qrGet.SQL.Clear;
    qrGet.SQL.Add('Select * from test order by id');
    qrGet.Open;

  except

  end;
end;

procedure TMainForm.btnInsertRecordClick(Sender: TObject);
begin
  try
    if qrSend.Active then
      qrSend.Close;

    qrSend.SQL.Clear;
    qrSend.SQL.Add('insert into test (id, name) values (1, ''Petr'')');
    qrSend.ExecSQL;

    trnDatabase.CommitRetaining;
  except
    on E:Exception do
    begin
      MessageDlg('Chyba',Format('Data nelze vložit! %s',[#13#10 + E.Message]), mtError, [mbOK],0);
      trnDatabase.Rollback;
    end;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // tohle neni myslim nutne, ale pokud by bylo treba pouzit dll urcite verze tak tudy vede cesta
  SQLiteLibraryName := 'sqlite3.dll';

  //naledujici kroky lze naklikat na formu, zde je to jen pro ukazku
  //nastavim jmeno databaze (vcetne cesty, ja mam db u exe, tak staci jen nazev souboru)
  conDatabase.DatabaseName:= 'data.sdb';
  //propojim komponnetu transakce s komponentou pripojeni
  conDatabase.Transaction := trnDatabase;
  //propojim komponenty dotazu (query) s pripojenim
  qrGet.DataBase := conDatabase;
  qrSend.DataBase := conDatabase;
  //propojim komponentu datasource s dotazem
  dsGet.dataset := qrGet;
  //propojim DBgrid s datasource
  DBGrid1.DataSource := dsGet;
end;

end.                                

@mjseven: Smím se zeptat, jakou máš verzi Lazaru a pro jaký OS?

Tohle konkrétně je z 1.0.8 na win7. 
Každopádně princip by měl být stejný i na 1.0.6.
Napiš sem případně přesné znění chyb, které tě brzdí v rozletu.
 

Pozor, 64bitová verze Lazaru vůbec nemá TSQLite3Connection.

Je to tak. Už funguje. Díky.

Zdrojáky a související soubory jsem hodila sem - http://uloz.to/xV9ALT6z/lazarus-sqlite3-example-zip

Snad to těm, kteří mají stejný problém jako jsem doposud měla já, pomůže.