Imprimir texto separado por ;
Hola:
hace rato necesito ayuda para enviar datos desde una aplicacion vb6 con bd access '97 a un archivo de texto plano con campos separados por ;
Por favor si alguien me pudiera ayudar.
Es muy urgente
hace rato necesito ayuda para enviar datos desde una aplicacion vb6 con bd access '97 a un archivo de texto plano con campos separados por ;
Por favor si alguien me pudiera ayudar.
Es muy urgente
1 respuesta
Respuesta de underbyte
1
Este ejemplo de código podría servirte:
dim RS as new adodb.recordset
dim CNX as new Adodb.Connection
CNX = Cadena_De_Conexion_a_Access
CNX.open
rs.open "select * from tabla",cnx,1,2
dim Fil as integer
Fil = FreeFile
Open "C:\archivo.txt" for output as Fil
rs.movefirst
while not rs.EOF
write RS.Fields(0) + ";" + Rs.Fields(1) + ";" + RS.Fields(2) + ";" + .... RS.Fields(n)
rs.movenext
Wend
A lo mejor tienes el problema de que los campos de tipo texto aparecen entrecomillados en el archivo de texto, si no te sirve así dímelo.
Un saludín
dim RS as new adodb.recordset
dim CNX as new Adodb.Connection
CNX = Cadena_De_Conexion_a_Access
CNX.open
rs.open "select * from tabla",cnx,1,2
dim Fil as integer
Fil = FreeFile
Open "C:\archivo.txt" for output as Fil
rs.movefirst
while not rs.EOF
write RS.Fields(0) + ";" + Rs.Fields(1) + ";" + RS.Fields(2) + ";" + .... RS.Fields(n)
rs.movenext
Wend
A lo mejor tienes el problema de que los campos de tipo texto aparecen entrecomillados en el archivo de texto, si no te sirve así dímelo.
Un saludín
Ok, gracias, voy a probar con este ejemplo.
Cuando lo pruebe te respondo
Gracias
Cuando lo pruebe te respondo
Gracias
¿Te ha servido mi ejemplo?
