Como pasar datos de una tabla a un archivo
 

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

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..

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

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