<div dir="ltr"><div>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.<br>


</div>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.<br><br><div><br></div><div>Te dejo esto por si te sirve. Es algo rudimentario pero me sirvio para exportar los datos y enviar por ftp.<br>


<br>Function TmNovedades.DevolverTipo(field:TFieldDef):String;<br>Begin<br>      case Field.DataType of<br>        ftString,ftWideString: Result:= &#39;VARCHAR(&#39;+ inttostr(Field.Size) +&#39;)&#39;;<br>        ftDate,ftDateTime : Result:= &#39;DATE&#39;;<br>


        ftTime,ftTimeStamp: Result:= &#39;TIME&#39;;<br>        ftInteger,<br>        ftSmallint,<br>        ftShortint        : Result:= &#39;INTEGER&#39;;<br>        ftMemo,ftBlob     : Result:= &#39;BLOB&#39;;<br>        ftCurrency,ftFloat: Result:= &#39;NUMERIC( 15, 2 )&#39;;<br>


        ftBoolean         : Result:= &#39;BOOLEAN&#39;;<br>      end;<br>      Result:= Field.Name + &#39; &#39; + Result;<br>End;<br><br>Function TmNovedades.CrearTablaTurnos:String;<br>var<br>  i:integer;<br>  s,f:string;<br>


Begin<br>  try<br>    zqInformarTurnos.Open;<br>    for i:=0 to zqInformarTurnos.FieldDefs.Count-2 do<br>      f:=f+Format(&#39; %s &#39;,[DevolverTipo(zqInformarTurnos.FieldDefs[i])] )+ &#39; , &#39;;<br>    f:=f+Format(&#39; %s &#39;,[DevolverTipo(zqInformarTurnos.FieldDefs[zqInformarTurnos.FieldDefs.Count-1])]);<br>


    s:=format(&#39;CREATE TABLE TURNOS (%s);&#39;,[f]);<br>  finally<br>    zqInformarTurnos.Close;<br>    Result := s;<br>  end;<br>End;<br></div><div> <br></div><div class="gmail_extra"><br><br clear="all"><br>-- <br>El que pregunta aprende, y el que contesta aprende a responder.<br>


<br>No a la obsolecencia programada: <a href="http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml" target="_blank">http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml</a><br>


<br>Linux User #495070<br><a href="http://domonetic.com/blog" target="_blank">http://domonetic.com/blog</a>
</div></div>