exportar una tabla access como archivo txt. desde visual
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 ?????
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 ?????
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
José Morillo desde Venezuela
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"
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"