¿Almacenar Imagen en Access?

[inindigo]

Hola a todos.

En un formulario de VB, tengo un control image en el que cargo fotos ubicadas en una determinada carpeta del disco duro, así como textbox y otros controles.

Mi problema surge al pretender almacenar el contenido del control image en la tabla de access, en la que también guardo la información de los textbox del formulario en cuestión, usando el recordset correspondiente.

¿Alguien me puede ayudar? No sé si me habré explicado medianamente bien: la información de los textbox, sé guardarla, pero la foto que cargo en el control image, no sé cómo almacenarla en el campo OLE de mi tabla access.

Gracias y un saludo.

[Avellaneda]

Hola,

Prueba con este código:

Código:

Dim b() As Byte
    Open sRuta For Binary As #1
    ReDim b(FileLen(sRuta))
    Get #1, , b
    Close #1
    rs.Fields("Foto").AppendChunk b
    rs.Update

donde:
sRuta es la ruta y el archivo desde el cual cargas el control Image p.e. "c:\Mis imágenes\Foto1.jpg" (previamente debes declarar esta variable como String).

rs es el recordset que ya tienes abierto

Foto es el nombre del campo OLE de la tabla.

[inindigo]

Muchas gracias Avellaneda.

[inindigo]

Hola de nuevo. Me ha surgido otro problema:

Ahora ya, al parecer, he almacenado la imagen del control image en el campo "Foto", de tipo OLE, de la tabla de Access, como binario largo. Pero he intentado visualizar la foto generando un autoformulario, en el propio Access, y no se ve nada. ¿Cómo podría hacer para ver ese binario con la información de la foto?

Saludos.

[Avellaneda]

Hola,

para visualizar la foto en VB (siguiendo con ejemplo anterior):

Colocas un control Image (Image1) en el formulario con la propiedad Strecht
a True y a continuación este código:

Código:

Set Image1.DataSource = rs
Image1.DataField = "Foto"