Como pasar datos de una tabla a un archivo

[marisol02]

Hola,
Como puedo pasar leer los datos de una tabla de sql con VB6 e irlos guardando en un archivo .txt???
Gracias

[GeoAvila]

mira en las faq's hay un parte de con flexgrideditable que guarda todo lo que escribas en el talvez puedas modificar, para y llenar los datos de ese flexgrid con los datos de la tabla o el resultado de tu consulta y los puedes guardar en un txt..

nos vemos..

[azavala]

Tendrias que leer tabla y generar el archivo.txt como tu lo desees:

Dim Conexion as new adodb.connecction
dim registros as new adodb.recordset

conexion.open "DSN=nombre_de_datasource"

set registros.ativeconnection = conexion

registros.open "select campo1,campo2,campo3 from xxxxx where xxxx"

open "c:\archivo.txt" for append as #1

do while not registros.eof
print #1 registros(0) & "," & registros(1) & "," & registros(2)
registros.movenext
loop
registros.close
conexion.close

[seudoCodigo]

Este es el código que utilizo en uno de los módulos de un aplicación, espero que te ayude.

'Creo la ruta del archivo

Dim Ruta As String
Ruta = "C:\archivo.txt"
Open Ruta For Append As #1

'Añado la data al archivo y luego lo cierro

Do While Not (rs.EOF)
Print #1, rs.Fields("nombre").Value
rs.MoveNext
Loop

Close #1