Pasar de Access a TXT en Visual Basic 6.0
Lo que pasa es que tengo una aplicación diseñada en VB 6.0 y me gustaría me colaboraran dándome un link o el código con el cual pueda pasar una tabla de Access a un archivo de texto el cual debo de crear desde código VB y darle un nombre determinado.. En una ruta fija... Si me pudieran colaborar les agradecería,,.
1 respuesta
Respuesta de ifrancoz
1
Hay dos formas de hacerlo
1- Texto separado por comas, campo entre comillas:
Numarc = FreeFile
Arch = Miruta & "Miarchivo.txt"
Open Arch For Output Access Write As #1
Private Sub Leer_Tabla()
'Lee datos
Write #1, Nombre, Nit, Valor
Loop
Close #1
End Sub
2 - Texto de longitud fija:
Numarc = FreeFile
Dim Linea as String
Arch = Miruta & "Miarchivo.txt"
Open Arch For Output Access Write As #1
Private Sub Leer_Tabla()
'Lee datos
Linea=""
Linea=Linea & Nombre & Format(Nit, "0#########") & Format(Valor, "0#########.00")
Print #1, Linea
Loop
Close #1
End Sub
Suerte !
1- Texto separado por comas, campo entre comillas:
Numarc = FreeFile
Arch = Miruta & "Miarchivo.txt"
Open Arch For Output Access Write As #1
Private Sub Leer_Tabla()
'Lee datos
Write #1, Nombre, Nit, Valor
Loop
Close #1
End Sub
2 - Texto de longitud fija:
Numarc = FreeFile
Dim Linea as String
Arch = Miruta & "Miarchivo.txt"
Open Arch For Output Access Write As #1
Private Sub Leer_Tabla()
'Lee datos
Linea=""
Linea=Linea & Nombre & Format(Nit, "0#########") & Format(Valor, "0#########.00")
Print #1, Linea
Loop
Close #1
End Sub
Suerte !
