Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » COMO EXPORTAR DATOS ADJUNTOS DE UNA TABLA DE ACCESS A UNA CARPETA DEL EXPLORADOR

Access - COMO EXPORTAR DATOS ADJUNTOS DE UNA TABLA DE ACCESS A UNA CARPETA DEL EXPLORADOR

Volver
Nuevo Tema
<<>>
 
Vista:

COMO EXPORTAR DATOS ADJUNTOS DE UNA TABLA DE ACCESS A UNA CARPETA DEL EXPLORADOR

Publicado por Alejandro (1 intervención) el 18/08/2017 21:02:51
Estimados Buena tarde

Tengo una BD en Access donde cada registro tiene un archivo adjunto, derivado de que perdí toda la información de mis carpetas del explorador no puedo localizarlos de manera Manual y todo esta adjunto en la BD.

Lo que requiero es saber como exportar todos esos archivos Adjuntos de Access a una carpeta del explorador o bien saber de una consulta de como 50 registros mandar sus archivos adjuntos de esos 50 a una carpeta del explorador, es posible???

Espero me puedan ayudar

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
Imágen de perfil de Oscar
Val: 198
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

COMO EXPORTAR DATOS ADJUNTOS DE UNA TABLA DE ACCESS A UNA CARPETA DEL EXPLORADOR

Publicado por Oscar (80 intervenciones) el 24/08/2017 12:30:23
Buenas!

Aquí tienes información sobre los Attachment... http://www.access-freak.com/tutorials.html#Tutorial07

Pulsa dónde dice: "Microsoft® Access 2007 Working with the Attachment DataType"

Bendito google! XD Aunque está en inglés...

Tendrás que hacer un bucle con los registros que tengan adjunto y adaptar este código para grabarlos al disco. Aunque habría que controlar si más de un fichero se llaman igual...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub GrabarAdjunto(Path as string) -> Le pasas el path donde quieres guardar todos los ficheros
 On Error GoTo Err_SaveImage
 
 Dim db As DAO.Database
 Dim rsParent As DAO.Recordset2
 Dim rsChild As DAO.Recordset2
 
 Set db = CurrentDb
 Set rsParent = Me.Recordset
 
 rsParent.OpenRecordset
 
 Set rsChild = rsParent.Fields("AttachmentTest").Value
 
 rsChild.OpenRecordset
 rsChild.Fields("FileData").SaveToFile (Path)
 
 Exit_SaveImage:
 
Set rsChild = Nothing
 Set rsParent = Nothing
 Exit Sub
 
 Err_SaveImage:
 
 If Err = 3839 Then
 MsgBox ("File Already Exists in the Directory!")
 Resume Next
 
 Else
 MsgBox "Some Other Error occured!", Err.Number, Err.Description
 Resume Exit_SaveImage
 
 End If
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