exportar una tabla access como archivo txt. desde visual

RODSCAN
30 de Enero del 2004
si alguien me puede ayudar, tengo esto:

Set rs = dbi.OpenRecordset("SELECT * FROM abonos")
Open "C:D Antiguodescuentosabonos.dat" For Output As #1
If Not abonos.BOF Then abonos.MoveFirst
Do Until abonos.EOF
If CDbl(abonos("codifunc")) > 0 Then
Linea = abonos("codidesc")
Linea = Linea & abonos("codirepa")
Linea = Linea & abonos("codifunc")
Linea = Linea & abonos("fecini")
Linea = Linea & abonos("fecese")
Linea = Linea & abonos("valpropu")
Linea = Linea & abonos("valdesc")
Linea = Linea & abonos("caupag")
Linea = Linea & abonos("nomfunci")
Linea = Linea & abonos("glosdesc")
Linea = Linea & abonos("areatrasp")
Print #1, Linea
abonos.MoveNext
End If
Loop
Close #1
rs.Close

como lo hago para q el archivo me quede guardado como TXT en una carpeta ?????

JoeMori
30 de Enero del 2004
Tengo un codigo muy sencillo para eso, escribeme un correo y te lo mando, tambien tengo para pasar de TXT a Base de datos.
José Morillo desde Venezuela

Carles
30 de Enero del 2004
puedes hacerlo de dos maneras distintas:

A- crear el archivo TXT al mismo tiempo que se crea el .DAT

B- hacer una copia del fichero .DAT una vez creado


usando el método A, tu código quedaria asi:

Set rs = dbi.OpenRecordset("SELECT * FROM abonos")
Open "C:D Antiguodescuentosabonos.dat" For

' esta es una nueva linea de codigo que tendras que añadir
Open "C:"Carpeta que tu querasabonos.txt" For
Output As #2


If Not abonos.BOF Then abonos.MoveFirst
Do Until abonos.EOF
If CDbl(abonos("codifunc")) > 0 Then
Linea = abonos("codidesc")
Linea = Linea & abonos("codirepa")
Linea = Linea & abonos("codifunc")
Linea = Linea & abonos("fecini")
Linea = Linea & abonos("fecese")
Linea = Linea & abonos("valpropu")
Linea = Linea & abonos("valdesc")
Linea = Linea & abonos("caupag")
Linea = Linea & abonos("nomfunci")
Linea = Linea & abonos("glosdesc")
Linea = Linea & abonos("areatrasp")
Print #1, Linea

'esta es otra linea nueva que tendras que añadir
Print #2, Linea

abonos.MoveNext
End If
Loop
Close #1

'esta es otra linea nueva que tendras que añadir
Close #2
rs.Close



usando el método B (más sencillo) tu código quedaria asi:

Set rs = dbi.OpenRecordset("SELECT * FROM abonos")
Open "C:D Antiguodescuentosabonos.dat" For Output As #1
If Not abonos.BOF Then abonos.MoveFirst
Do Until abonos.EOF
If CDbl(abonos("codifunc")) > 0 Then
Linea = abonos("codidesc")
Linea = Linea & abonos("codirepa")
Linea = Linea & abonos("codifunc")
Linea = Linea & abonos("fecini")
Linea = Linea & abonos("fecese")
Linea = Linea & abonos("valpropu")
Linea = Linea & abonos("valdesc")
Linea = Linea & abonos("caupag")
Linea = Linea & abonos("nomfunci")
Linea = Linea & abonos("glosdesc")
Linea = Linea & abonos("areatrasp")
Print #1, Linea
abonos.MoveNext
End If
Loop
Close #1
rs.Close

'esta es la unica linea que tendras que añadir
FileCopy "C:D Antiguodescuentosabonos.dat" ,"C:"Carpeta que tu querasabonos.txt"