<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:= 'VARCHAR('+ inttostr(Field.Size) +')';<br> ftDate,ftDateTime : Result:= 'DATE';<br>
ftTime,ftTimeStamp: Result:= 'TIME';<br> ftInteger,<br> ftSmallint,<br> ftShortint : Result:= 'INTEGER';<br> ftMemo,ftBlob : Result:= 'BLOB';<br> ftCurrency,ftFloat: Result:= 'NUMERIC( 15, 2 )';<br>
ftBoolean : Result:= 'BOOLEAN';<br> end;<br> Result:= Field.Name + ' ' + 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(' %s ',[DevolverTipo(zqInformarTurnos.FieldDefs[i])] )+ ' , ';<br> f:=f+Format(' %s ',[DevolverTipo(zqInformarTurnos.FieldDefs[zqInformarTurnos.FieldDefs.Count-1])]);<br>
s:=format('CREATE TABLE TURNOS (%s);',[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>