<p>Son los tipos de datos, creo en esta en db o agregando un ttable te aparece</p>
<div class="gmail_quote">El 21/10/2013 18:46, "Paola Bruccoleri" <<a href="mailto:pbruccoleri@adinet.com.uy">pbruccoleri@adinet.com.uy</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

  
    
  
  <div text="#000000" bgcolor="#FFFFFF">
    <div>El 21/10/2013 14:36, Maxi escribió:<br>
    </div>
    <blockquote type="cite">
      
      <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>
        <br>
      </div>
    </blockquote>
    Hola Maxi<br>
    no encuentro en que unit estan definidas estas constantes: ftTime,
    etc<br>
    byeeeeeeee<br>
    <br>
  </div>

<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div>