Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2007-11

Primeros pasos en SQLite

3 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Daniel Rincón García

Hola, estoy empezando con sqlite3 y no encuentro mucha documentaci�n al respecto. Lo �nico que he encontrado es:

Art�culo de Luiz
Am�rico<http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase#Lazarus_and_SQLite> Post de Hector Salas Rodriguez (Foro
Nabble)<http://www.nabble.com/TSqlite3Dataset-%28explained%29-t1676659.html> Ejemplo de Koders<http://www.koders.com/delphi/fidEEB2FCC55357D9E8A46C1EA51DC4FDC7DD5B3C91.aspx?s=sqlite> Ejemplo (en Delphi)<http://www.shokhirev.com/nikolai/programs/code/SQLiteInterface.html>

�Teneis alg�n ejemplo o tutorial por ah� que me pueda servir para aprender?

Basicamente lo que quiero es:

1�) Crear una base de datos con varias tablas que est�n relacionadas. 2�) Meter datos en la base de datos.
3�) Actualizar y eliminar datos.

Y todo esto con Lazarus.

Por ahora ya me he instalado el paquete en Lazarus y he hecho este simple programa:

unit Unit1;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Sqlite3ds, db;

type

{ TForm1 }

 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   BaseDeDatos: TSqLite3DataSet;
   { private declarations }
 public
   { public declarations }
 end;
var
 Form1: TForm1;
implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 BaseDeDatos:= TSqlite3Dataset.Create(nil);
 with BaseDeDatos do
 begin
 FileName := 'BaseDeDatos.db';
 TableName := 'Tabla';
 if not FileExists(FileName) then
  begin
   with FieldDefs do
    begin
     Clear;
     Add('Integer',ftInteger,0,False);
     Add('String',ftString,0,False);
     Add('Bool',ftBoolean,0,False);
     Add('Float',ftFloat,0,False);
     Add('Word',ftWord,0,False);
     Add('DateTime',ftDateTime,0,False);
     Add('Date',ftDate,0,False);
     Add('Time',ftTime,0,False);
    end;
   CreateTable;
  end;
 end;
end;
initialization
 {$I unit1.lrs}
end.

Por cierto �conoceis a Hector Salas Roriguez? creo que sabe sobre el tema y me gustar�a contactar con �l para que me diga algo sobre SQLite.

Gracias y un saludo.

PD: No se me ha olvidado lo del tutorial (SQLite + WinCE), pronto lo publicar�.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20071101/c0d7ab09/attachment.html>

Reply by email

Carlos German Tejero
to Daniel Rincón García

Todo lo que deseas hacer, lo puedes hacer con SQL, desde FPC/Lazarus. Te recomiendo que uses el paquete sqldb, haciendo uso de consultas sql, verificando en la documentacion de sqlite el soporte de sql que posee. Saludos.

Carlos Germ�n Tejero ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20071101/56b00b01/attachment.html>

Reply by email

Daniel Rincón García
to Carlos German Tejero

Es que necesito SQLite para hacer una aplicaci�n para Pocket PC.

El d�a 1/11/07, Carlos German Tejero <german_tejero en yahoo.com.ar> escribi�:

Show quoted text 15 lines
Todo lo que deseas hacer, lo puedes hacer con SQL, desde FPC/Lazarus. Te recomiendo que uses el paquete sqldb, haciendo uso de consultas sql, verificando en la documentacion de sqlite el soporte de sql que posee. Saludos. -- Carlos Germ�n Tejero _______________________________________________ Lazarus-es mailing list Lazarus-es en lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20071102/d0bd385b/attachment.html>

Reply by email