<html>
  <head>
    <meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">El 21/10/2013 14:36, Maxi escribió:<br>
    </div>
    <blockquote
cite="mid:CAOL=nArqKsQ2WxDUMDV0-q88wa9R-yuwvZjY+aSR-zU3LOg1bQ@mail.gmail.com"
      type="cite">
      <meta http-equiv="Context-Type" content="text/html; charset=UTF-8">
      <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>
  </body>
</html>