Rgd.Sqlite3

Rgd.sqlite3

RGD.SQLITE3 para Delphi: una unidad de interfaz SQLITE3 de peso ligero, simple y efectiva

Puede usar sqlite3.dll dinámicamente o estática vincular la biblioteca SQLITE3.

Para el cifrado, use rgd.sqlite3fde.pas para vincular estáticamente la versión de cifrado Firedac de SQLite y Access Firedac Bases de datos cifradas.

Créditos:

Esta unidad toma ideas de Yury Plashenkov en https://github.com/plashenkov/sqlite3-delphi-fpc, que siempre he admirado por su genio simplicidad y claridad. Con los conceptos de Yuri en mente, RGD.SQLITE3 para Delphi se implementa utilizando objetos interfacidos y métodos anónimos, las ideas para las que obtuve leyendo "Codificando Delphi" por Nick Hodges, además de algunas golosinas flexibles para vincular y obtener datos y realizar transacciones.

Patrones de consulta:

 {Example Pattern 1 - Stmt := DB.Prepare() and while Stmt.Step...}
var
  Stmt: ISqlite3Statement;
begin
  Stmt := DB.Prepare(
    'SELECT Name,' +
    '       ID' +
    '  FROM Tasks');
  while Stmt.Step = SQLITE_ROW do
  being
    S0 := Stmt.SqlColumn[0].AsText;
    ID := Stmt.SqlColumn[1].AsInt;
    {...}
  end);
end;

{Pattern 2 - with DB.Prepare and Fetch(procedure)...}
with DB.Prepare(
  'SELECT Name,' +
  '       ID' +
  '  FROM Tasks') do Fetch(procedure
begin
  S0 := SqlColumn[0].AsText;
  ID := SqlColumn[1].AsInt;
  {...}
end);

{Pattern 3 - DB.Fetch(SQL, procedure(const Stmt: ISQlite3Statement)...}
DB.Fetch(
  'SELECT Name,' +
  '       ID'    +
  '  FROM Tasks', procedure(const Stmt: ISQlite3Statement)
begin
  S0 := Stmt.SqlColumn[0].AsText;
  ID := Stmt.SqlColumn[1].AsInt;
  {...}
end;

Crear patrón de datos ...

 procedure TMainForm.CreateDatabase;
begin
  DB := TSqlite3Database.Create;
  DB.Open(':memory:');
  
  {Create Table...}
  DB.Execute(
    ' CREATE TABLE Organizations ( ' +
    '   Name               TEXT,' +
    '   Website            TEXT,' +
    '   Country            TEXT,' +
    '   Description        TEXT,' +
    '   Founded            TEXT,' +
    '   Industry           TEXT,' +
    '   EmployeeCount      INTEGER,' +
    ' PRIMARY KEY (Name ASC))' +
    ' WITHOUT ROWID');

  Stmt_Description := DB.Prepare(
    'SELECT Description' +
    '  FROM Organizations' +
    ' WHERE Name = ?');
end;

Ejemplo: insertar registros de un archivo CSV ...

 procedure TMainForm.ReadCsvIntoDatabase;
var
  Lines, Values: TStringlist;
begin
  Lines := TStringlist.Create;
  Values := TStringlist.Create;
  Values.StricDelimiter := True;
  try
    CreateDatabase;
    Lines.LoadFromFile('organizations-1000.csv');
    Lines.Delete(0); {Ignore Header}

    DB.Transaction(procedure
    begin
      with DB.Prepare('INSERT INTO Organizations VALUES (?, ?, ?, ?, ?, ?, ?, ?)') do
      begin
        for var S in Lines do
        begin
          Values.CommaText := S;
          Values.Delete(0); {Ignore first column in our sample .csv}
          BindAndStep(Values.ToStringArray);
        end;
      end;
    end);
  finally
    Values.Free;
    Lines.Free;
  end;
  DB.Execute('ANALYZE');
end;

Ejemplo: función definida por la aplicación

 procedure SqlAdf_SizeCategory(Context: Pointer; n: integer; args: PPSQLite3ValueArray); cdecl;
var
  Count: integer;
  Result: string;
begin
  Count := TSqlite3.ValueInt(Args[0]);
  case Count of
    0..500:       Result := 'Small';
    501..5000:    Result := 'Medium';
    5001..MaxInt: Result := 'Large';
  end;
  TSqlite3.ResultText(Context, Result);
end;

{...}

DB.CreateFunction('SizeCategory', 1, @SqlAdf_SizeCategory);

{...}

with DB.Prepare(
  'SELECT OrgID, Name, Website, Country, Industry, Founded, EmployeeCount, SizeCategory(EmployeeCount) as SizeCat' +
  '  FROM Organizations' +
  ' WHERE Country LIKE ?' +
  '   AND SizeCat LIKE ?' +
  ' ORDER BY 2') do BindAndFetch([FCountry, FSizeCat], procedure
begin
  {...}
end