Anónimo
Exportación de archivos de texto desde access
Buen día.
El motivo de mi consulta es para ver si me puede facilitar código de como exportar de una tabla de access en un archivo de texto, su ayuda me puede servir de gran ayuda.
Le agradezco de antemano su colaboración y atención
El motivo de mi consulta es para ver si me puede facilitar código de como exportar de una tabla de access en un archivo de texto, su ayuda me puede servir de gran ayuda.
Le agradezco de antemano su colaboración y atención
1 respuesta
Respuesta de pedrobjs84
1
Private Sub Command1_Click()
'GUARDAR DATOS EN UN FICHERO DE TEXTO
'Abre un fichero de datos, si no existe lo crea.
'Mira las opciones que hay para Random
Open "Archivo.txt" For Random As #1 Len = Len(FicheroDatos)
Text1.Text = ""
'LEER DATOS DE UN FICHERO DE TEXTO
Get #1, 1, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Get #1, 2, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Close #1
'Los archivos se pueden abrir i cerrar de muchas maneras, puedes leer un archivo
'en modo binario, es decir caracter a caracter, etc.
'
'Este es un ejemplo de como leer tu txt, supongo que teniendo la manera de como leerlo tu ya sabes como guardarlo en access
End Sub
'GUARDAR DATOS EN UN FICHERO DE TEXTO
'Abre un fichero de datos, si no existe lo crea.
'Mira las opciones que hay para Random
Open "Archivo.txt" For Random As #1 Len = Len(FicheroDatos)
Text1.Text = ""
'LEER DATOS DE UN FICHERO DE TEXTO
Get #1, 1, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Get #1, 2, FicheroDatos.Valor
Text1.Text = Text1.Text & Chr(13) & FicheroDatos.Valor
Close #1
'Los archivos se pueden abrir i cerrar de muchas maneras, puedes leer un archivo
'en modo binario, es decir caracter a caracter, etc.
'
'Este es un ejemplo de como leer tu txt, supongo que teniendo la manera de como leerlo tu ya sabes como guardarlo en access
End Sub