[Lazarus-es] Fwd: Lazarus and SQLite

[Carlos German Tejero]

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
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20071026/5f7df172/attachment-0001.html>