Enviar datos a un archivo txt plano con separac ;
Hola: tengo que enviar desde una aplicacion vb6 y bd access '97 texto plano separado por ; y no se como hacerlo
la bd la genere desde vb 6 y la tabla tiene toda la info necesaria pero no se como hacer un texto plano separado por ;
Si alguien me puede ayudar se lo agradecería
saludos
Ricardo
la bd la genere desde vb 6 y la tabla tiene toda la info necesaria pero no se como hacer un texto plano separado por ;
Si alguien me puede ayudar se lo agradecería
saludos
Ricardo
1 Respuesta
Respuesta de losbeaves
1
Te mando 1 ejemplo de como crear y escribir en un fichero de texto datos de una tabla de clientes, supongo que sabes manejar una base de datos
camino = "C\clientes.TXT"
Open camino For Output As #1
rswcli.MoveFirst
While not rswcli.EOF
Cadena = Format (rswcliCodigo , "00000") & ";"
Cadena = Cadena & Format(rswcli!nombre, ";"
Print #1, Cadena
rswcli.MoveNext
wend
rswcli.Close
close #1
camino = "C\clientes.TXT"
Open camino For Output As #1
rswcli.MoveFirst
While not rswcli.EOF
Cadena = Format (rswcliCodigo , "00000") & ";"
Cadena = Cadena & Format(rswcli!nombre, ";"
Print #1, Cadena
rswcli.MoveNext
wend
rswcli.Close
close #1
