FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con Extract
Al usar el Extract me forma un archivo demasiado grande, de 27 megas, asi como inserta 4 y más lineas...de veras no comprendo.
Mi código dentro de un procedure es el siguiente var i : integer; f : TextFile; begin AssignFile(f,'c:\e8.txt'); ReWrite(f); IBExtract1.ExtractObject(eoData,'CLIENTES',[etData]); Memo1.Lines := IBExtract1.Items; for i := 0 to Memo1.Lines.Count -1 do Writeln(f,Memo1.Lines.text); CloseFile(f); ShowMessage(IntToStr(Memo1.Lines.Count -1)); End; El Objetivo es hacer un Dump de la Data a un archivo .txt para pasarlo a través de Internet y mediante el TextDataSet y un IBQuery hacer un Insert múltiple. Esta última parte ya está probada, ahora estoy en lo de contruir el TXT y me ha resultado un lio... Donde está el error? Gracias de antemano. Fer |
|
|
|