Visual Basic - Como guardar archivos Word en base access?

Life is soft - evento anual de software empresarial
 
Vista:

Como guardar archivos Word en base access?

Publicado por Carlos (6 intervenciones) el 31/07/2004 12:47:08
Como puedo guardar archivos word en una base access. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como guardar archivos Word en base access?

Publicado por tecniCam (186 intervenciones) el 01/08/2004 22:38:48
Los archivos Word no están formateados en filas y columnas como para que admita exportación a BD.
Desde Excel sí se puede al ser cada hoja como una tabla de Access.

Sí podrías si se tratara de un archivo de texto delimitado o ancho fijo como el ejemplo que sigue:
"ID1" "mes" "Barna" "Levante" "Suroeste"
1 "00" 919034755524,70 209320,58 149058,99
2 "01" 72457487808,08 16525,67 10997,56
3 "02" 71756159270,21 16104,35 10857,47
Entonces podrías IMPORTARLO desde Access
Además sería conveniente disponer de un archivo schema.ini que contenga lo que sigue:
[JUNTA.txt]
ColNameHeader=True
CharacterSet=1252
Format=TabDelimited
Col1=ID1 Integer
Col2=mes Char Width 255
Col3=Barna Float
Col4=Levante Float
Col5=Suroeste Float
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como guardar archivos Word en base access?

Publicado por Fer (5 intervenciones) el 02/03/2006 16:38:52
Igual y esto funsiona para Tí;
Que tal:
mira tal vez esto se sirva, yo lo tome de otro sitios por los cuales he estado, solo le hice un par de modificaciones. Con este codigo puedes importar TXT. XLS,DOC, BAT ETC. y algunos otros formatos que contengan texto;
importar todo loe que tiene tu archivo a una base de datos de Access, desde VB.
tienes que tener un Text1 y un Data1. espero ayude en algo :

Private Sub Command1_Click()
Dim MyRecord As String * 254 ' soporta hasta 254 caracteres por renglon de tu archivo
Open "c:\NombreArchivo.txt" For Input As #1 'abrir archivopara leer
i = 1
Do While Not EOF(1)
Data1.Recordset.AddNew ' crear un registro nuevo para cada renglon de tu archivo
Line Input #1, MyRecord 'leer linea de archivo
Debug.Print MyRecord ' imprime primer registro
Text1.Text = MyRecord ' el Text1 toma ese dato
i = i + 1
Loop ' da vuelta el ciclo y continua con el siguiente renglon de tu Arch.
Close #1

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar