[Lazarus-es] fdb a sqlite

Paola Bruccoleri pbruccoleri en adinet.com.uy
Lun Oct 21 23:45:56 CEST 2013


El 21/10/2013 14:36, Maxi escribió:
> Al final no pude, el paso de structuras de una consulta Fb a otra 
> Sqlite, no funciona, y tuve que hacer un generador de consultas pra 
> crear la tabla como un script y le paso con un zSqlProcessor el texto.
> Se me jhace que no está soportado por la zeos porque vi ejemplos en 
> delphi con otros componentes en que tiene el metodo createdataset y si 
> lo hace.
>
>
> Te dejo esto por si te sirve. Es algo rudimentario pero me sirvio para 
> exportar los datos y enviar por ftp.
>
> Function TmNovedades.DevolverTipo(field:TFieldDef):String;
> Begin
>       case Field.DataType of
>         ftString,ftWideString: Result:= 'VARCHAR('+ 
> inttostr(Field.Size) +')';
>         ftDate,ftDateTime : Result:= 'DATE';
>         ftTime,ftTimeStamp: Result:= 'TIME';
>         ftInteger,
>         ftSmallint,
>         ftShortint        : Result:= 'INTEGER';
>         ftMemo,ftBlob     : Result:= 'BLOB';
>         ftCurrency,ftFloat: Result:= 'NUMERIC( 15, 2 )';
>         ftBoolean         : Result:= 'BOOLEAN';
>       end;
>       Result:= Field.Name + ' ' + Result;
> End;
>
> Function TmNovedades.CrearTablaTurnos:String;
> var
>   i:integer;
>   s,f:string;
> Begin
>   try
>     zqInformarTurnos.Open;
>     for i:=0 to zqInformarTurnos.FieldDefs.Count-2 do
>       f:=f+Format(' %s ',[DevolverTipo(zqInformarTurnos.FieldDefs[i])] 
> )+ ' , ';
>     f:=f+Format(' %s 
> ',[DevolverTipo(zqInformarTurnos.FieldDefs[zqInformarTurnos.FieldDefs.Count-1])]);
>     s:=format('CREATE TABLE TURNOS (%s);',[f]);
>   finally
>     zqInformarTurnos.Close;
>     Result := s;
>   end;
> End;
>
>
Hola Maxi
no encuentro en que unit estan definidas estas constantes: ftTime, etc
byeeeeeeee

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20131021/5332232b/attachment-0002.html>


More information about the Lazarus-es mailing list