Hola, estoy empezando con <span style="font-weight: bold;">sqlite3</span> y no encuentro mucha documentación al respecto. Lo único que he encontrado es:<br><br><a href="http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase#Lazarus_and_SQLite">
Artículo de Luiz Américo</a>    <br><a href="http://www.nabble.com/TSqlite3Dataset-%28explained%29-t1676659.html">Post de Hector Salas Rodriguez (Foro Nabble)</a><br><a href="http://www.koders.com/delphi/fidEEB2FCC55357D9E8A46C1EA51DC4FDC7DD5B3C91.aspx?s=sqlite">
Ejemplo de Koders</a><br><a href="http://www.shokhirev.com/nikolai/programs/code/SQLiteInterface.html">Ejemplo (en Delphi)</a><br><br>¿Teneis algún ejemplo o tutorial por ahí que me pueda servir para aprender?<br><br>Basicamente lo que quiero es:
<br><br>1º) Crear una base de datos con varias tablas que estén relacionadas.<br>2º) Meter datos en la base de datos.<br>3º) Actualizar y eliminar datos.<br><br>Y todo esto con Lazarus.<br><br>Por ahora ya me he instalado el paquete en Lazarus y he hecho este simple programa:
<br><br><span style="font-weight: bold;">unit Unit1;</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">{$mode objfpc}{$H+}</span><br style="font-weight: bold;"><br style="font-weight: bold;">
<span style="font-weight: bold;">interface</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">uses</span><br style="font-weight: bold;"><span style="font-weight: bold;">  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Sqlite3ds, db;
</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">type</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">  { TForm1 }</span>
<br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">  TForm1 = class(TForm)</span><br style="font-weight: bold;"><span style="font-weight: bold;">    procedure FormCreate(Sender: TObject);
</span><br style="font-weight: bold;"><span style="font-weight: bold;">  private</span><br style="font-weight: bold;"><span style="font-weight: bold;">    BaseDeDatos: TSqLite3DataSet;</span><br style="font-weight: bold;">
<span style="font-weight: bold;">    { private declarations }</span><br style="font-weight: bold;"><span style="font-weight: bold;">  public</span><br style="font-weight: bold;"><span style="font-weight: bold;">    { public declarations }
</span><br style="font-weight: bold;"><span style="font-weight: bold;">  end;</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">var</span><br style="font-weight: bold;"><span style="font-weight: bold;">
  Form1: TForm1;</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">implementation</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">
{ TForm1 }</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">procedure TForm1.FormCreate(Sender: TObject);</span><br style="font-weight: bold;"><span style="font-weight: bold;">
begin</span><br style="font-weight: bold;"><span style="font-weight: bold;"> BaseDeDatos:= TSqlite3Dataset.Create(nil);</span><br style="font-weight: bold;"><span style="font-weight: bold;"> with BaseDeDatos do</span><br style="font-weight: bold;">
<span style="font-weight: bold;"> begin</span><br style="font-weight: bold;"><span style="font-weight: bold;">  FileName := 'BaseDeDatos.db';</span><br style="font-weight: bold;"><span style="font-weight: bold;">  TableName := 'Tabla';
</span><br style="font-weight: bold;"><span style="font-weight: bold;">  if not FileExists(FileName) then</span><br style="font-weight: bold;"><span style="font-weight: bold;">   begin</span><br style="font-weight: bold;">
<span style="font-weight: bold;">    with FieldDefs do</span><br style="font-weight: bold;"><span style="font-weight: bold;">     begin</span><br style="font-weight: bold;"><span style="font-weight: bold;">      Clear;</span>
<br style="font-weight: bold;"><span style="font-weight: bold;">      Add('Integer',ftInteger,0</span><div style="direction: ltr;"><span style="font-weight: bold;">,False);</span><br style="font-weight: bold;"><span style="font-weight: bold;">
      Add('String',ftString,0,False)</span><span style="font-weight: bold;">;</span><br style="font-weight: bold;"><span style="font-weight: bold;">      Add('Bool',ftBoolean,0,False);</span><br style="font-weight: bold;">
<span style="font-weight: bold;">      Add('Float',ftFloat,0,False);</span><br style="font-weight: bold;"><span style="font-weight: bold;">      Add('Word',ftWord,0,False);</span><br style="font-weight: bold;">
<span style="font-weight: bold;">      Add('DateTime',ftDateTime,0</span><span style="font-weight: bold;">,False);</span><br style="font-weight: bold;"><span style="font-weight: bold;">      Add('Date',ftDate,0,False);
</span><br style="font-weight: bold;"><span style="font-weight: bold;">      Add('Time',ftTime,0,False);</span><br style="font-weight: bold;"><span style="font-weight: bold;">     end;</span><br style="font-weight: bold;">
<span style="font-weight: bold;">    CreateTable;</span><br style="font-weight: bold;"><span style="font-weight: bold;">   end;</span><br style="font-weight: bold;"><span style="font-weight: bold;"> end;</span><br style="font-weight: bold;">
<span style="font-weight: bold;">end;</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">initialization</span><br style="font-weight: bold;"><span style="font-weight: bold;">
  {$I unit1.lrs}</span><br style="font-weight: bold;"><br style="font-weight: bold;"><span style="font-weight: bold;">end.<br><br></span>Por cierto ¿conoceis a <span style="font-weight: bold;">Hector Salas Roriguez</span>
? creo que sabe sobre el tema y me gustaría contactar con él para que me diga algo sobre <span style="font-weight: bold;">SQLite</span>.<span style="font-weight: bold;"><br></span><br>Gracias y un saludo.<br><br><span style="font-weight: bold;">
PD</span>: No se me ha olvidado lo del tutorial (<span style="font-weight: bold;">SQLite</span> + <span style="font-weight: bold;">WinCE</span>), pronto lo publicaré.<br></div>