Lazarus Conectar a una base de datos SQLite 3 + Video

He hecho este mini manual para poder acordarme como conectar con la base de datos sqlite, ya que me ha costado un poco el aprender a conectar mi programa a la base de datos.

Este es el codigo que he utilizado:

Código:

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, sqldb, db, sqlite3conn; type { TForm1 } TForm1 = class(TForm) Datasource1: TDatasource; DBGrid1: TDBGrid; SQLite3Connection1: TSQLite3Connection; SQLQuery1: TSQLQuery; SQLTransaction1: TSQLTransaction; procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin Form1. Caption:='SQLite with DBGrid'; SQLite3Connection1.DatabaseName:='datos.db'; SQLite3Connection1.Connected:=true; SQLTransaction1.Database:=SQLite3Connection1; SQLQuery1.Database:=SQLite3Connection1; //SQLQuery1.SQL.text:='Select * FROM datos'; SQLQuery1.SQL.text:='Select * from datos where nombres Like a '; SQLQuery1.open; DataSource1.DataSet:=SQLQuery1; DBGrid1.DataSource:=DataSource1; DBGrid1.AutoFillColumns:=true; end; end.

Para poder aprender hacer esto la información la he conseguido en:

http://alevel-computing.x10.mx/mw/index.php/Lazarus