Buen dia para todos.
Tengo una app con una base de datos sqlite y quisera crear un archivo .txt con los campos de una tabla
No he podido lograr que me creara por cada registro de la tabla (tabla con 5 campos) una linea diferente en el txt.
Ejemplo: al pasar el archivo del telefono a una pc con window el txt se ve algo asi:
1;2;3;4 5;6;7;8 9;10;11;12
y yo necesito que se vea asi:
1;2;3;4
5;6;7;8
9;10;11;12
Que desde el bloc yo abra el archivo y vea que son 3 lineas y no 1.
¿Alguien trabajo con txt? ¿Como podria solucionarlo?
Desde ya gracias.
adjunto el codiogo de la creacion del txt
Tengo una app con una base de datos sqlite y quisera crear un archivo .txt con los campos de una tabla
No he podido lograr que me creara por cada registro de la tabla (tabla con 5 campos) una linea diferente en el txt.
Ejemplo: al pasar el archivo del telefono a una pc con window el txt se ve algo asi:
1;2;3;4 5;6;7;8 9;10;11;12
y yo necesito que se vea asi:
1;2;3;4
5;6;7;8
9;10;11;12
Que desde el bloc yo abra el archivo y vea que son 3 lineas y no 1.
¿Alguien trabajo con txt? ¿Como podria solucionarlo?
Desde ya gracias.
adjunto el codiogo de la creacion del txt
B4X:
gNombreTextoCabecera = "texto.txt"
Writer1.Initialize(File.OpenOutput(File.DirInternal, gNombreTextoCabecera, False))
Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT ID, IDCLIENTE,FECHA,RESPONSABLE,TIPOVENTA,OBSERVACION FROM CABECERA where ENVIADO is null") 'is null
Do While rs.NextRow
'Dim row(1) As Object
'locID = rs.GetInt("ID")
locID = rs.GetInt("ID")
locIDCLIENTE = rs.GetString("IDCLIENTE")
locFECHA = rs.GetString("FECHA")
locRESPONSABLE = rs.GetString("RESPONSABLE")
locTIPOVENTA = rs.GetString("TIPOVENTA")
locOBSERVACION = rs.GetString("OBSERVACION")
Writer1.WriteLine(locID&";"&locIDCLIENTE&";"&locFECHA&";"&locRESPONSABLE&";"&locTIPOVENTA&";"&locOBSERVACION)
Loop
rs.Close
Writer1.Close
