[Lazarus-es] Fwd: Lazarus and SQLite

[Daniel Rincón García]

Gracias por tu código Carlos German.

La razón de usar la librería *sqlite* es porque necesito crear una
aplicación para PDA para *Windows CE*, la aplicación ha de trabajar con una
base de datos y se que *sqlite* es compatible con *Windows CE*.

Estoy teniendo problemas a la hora de instalar sqlite en mi PDA. ¿Me podrías
ayudar?

Intentaré correr tu código en la PDA.

Saludos.


2007/10/27, Carlos German Tejero <german_tejero en yahoo.com.ar>:
>
> Daniel:
> No te recomiendo que uses ese esquema de conexion a sqlite, segun tengo
> entendido esta desaconsejado y va a ser reemplazado por el driver de sqldb.
> Aca te mando un ejemplo que funciona y usa sqldb, deberias usar fpc 2.2.1para correrlo:
>
>
> program project1;
>
> {$mode objfpc}{$H+}
>
> uses
>   {$IFDEF UNIX}{$IFDEF UseCThreads}
>   cthreads,
>   {$ENDIF}{$ENDIF}
>   Classes,
>   sqldb, sqlite3conn
>   { you can add units after this };
>
> var
>   sqlcon  :TSQLConnection;
>   sqltrans:TSQLTransaction;
>   sqlquery:TSQLQuery;
> begin
>   sqlcon   := TSQLite3Connection.Create(nil);
>   sqltrans := TSQLTransaction.Create(nil);
>   sqlquery := TSQLQuery.Create (nil);
>
>   sqltrans.DataBase    := sqlcon;
>   sqlcon.Transaction   := sqltrans;
>   sqlquery.DataBase    := sqlcon;
>   sqlquery.Transaction := sqltrans;
>
>   sqlcon.DatabaseName := 'test.sdb';
>   sqlcon.Open;
>
>   sqlquery.SQL.Add('CREATE TABLE PRUEBA(ID INTEGER, NOMBRE TEXT)');
>   sqlquery.ParseSQL := True;
>   sqltrans.StartTransaction;
>   sqlquery.ExecSQL;
>   sqltrans.Commit;
>   sqlcon.Close ;
>
>   sqlquery.Free;
>   sqltrans.Free;
>   sqlcon.Free;
> end.
> Saludos.
>
>
>  El día 25/10/07, Daniel Rincón García <danitnt en gmail.com> escribió:
> >
> > Muchas gracias, funciona correctamente ahora.
> >
> > Saludos.
> >
> >
> > El día 25/10/07, Carlos German Tejero < german_tejero en yahoo.com.ar>
> > escribió:
> > >
> > >  Que tal, soy german de Ushuaia, Argentina.
> > > Tenes qie incluir la unidad db, ahi estan las definiciones de los
> > > tipos de campos.
> > >
> > > uses
> > >   db;
> > >
> > > Saludos.
> > >
> > >
> > > El día 25/10/07, Daniel Rincón García <danitnt en gmail.com > escribió:
> > > >
> > > >  Estoy siguiendo el ejemplo del tutorial *Lazarus and SQLite* de
> > > > esta<http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase#Lazarus_and_SQLite>página.
> > > >
> > > > Al intentar compilar este código de creación de una nueva tabla:
> > > >
> > > >
> > > >  dsTest:= TSqliteDataset.Create(nil);
> > > >  with dsTest do
> > > >  Begin
> > > >    FileName:='New.db';
> > > >    TableName:='NewTable';
> > > >    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;
> > > >
> > > > Me da el siguiente error:
> > > >
> > > > unit1.pas(44,31) Error: Identifier not found "ftInteger"
> > > >
> > > >
> > > >
> > > > No entiendo a qué puede deberse.
> > > >
> > > > ¿Me echais un cable?
> > > >
> > > > Gracias y un saludo.
> > > >
> > > >
> > > > _______________________________________________
> > > > Lazarus-es mailing list
> > > > Lazarus-es en lazarus.freepascal.org
> > > > http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> > > >
> > > >
> > >
> > >
> > > --
> > > Carlos Germán Tejero
> > >
> > > --
> > > Carlos Germán Tejero
> > >
> > > --
> > > Carlos Germán Tejero
> > > _______________________________________________
> > > Lazarus-es mailing list
> > > Lazarus-es en lazarus.freepascal.org
> > > http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> > >
> > >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lazarus.freepascal.org
> > http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> >
> >
>
>
> --
> 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-ide.org/pipermail/lazarus-es/attachments/20071027/2db3860b/attachment-0001.html>