Imagen en Acces

[PanKrdo]

Hola,

Necesito que me ayuden a insertar una imagen de un control image en un campo (de tipo binarios largos) de una base de datos en access y despues poder cargar la imagen en el control image.

Para el manejo de la base de datos utilizo el ADODB

Espero me puedan ayudar

[Avellaneda]

Iniciado por PanKrdo

Hola,

Necesito que me ayuden a insertar una imagen de un control image en un campo (de tipo binarios largos) de una base de datos en access y despues poder cargar la imagen en el control image.

Para el manejo de la base de datos utilizo el ADODB

Espero me puedan ayudar

Mira, coloca un CommondDialog y un control Image en el Form, y por ejemplo, en un CommandButton pega éste código:

Suponemos que ya tenemos un recordset abierto llamado "rs" y que el campo OLE se llama "Foto"

Código:

    Dim sRuta As String
    With CommonDialog1
        .FileName = ""
        .Filter = "Imágenes (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
        .Flags = cdlOFNHideReadOnly
        .ShowOpen
    End With
    If CommonDialog1.FileName = "" Then Exit Sub
        
    Image1.Visible = False   ' para evitar el efecto parpadeo
    sRuta = CommonDialog1.FileName
    
    Dim b() As Byte
    Open sRuta For Binary As #1
    ReDim b(FileLen(sRuta))
    Get #1, , b
    Close #1
    
    rs.AddNew   ' si es un registro nuevo. Si no lo es, quitar esta instrucción
    rs.Fields("Foto").AppendChunk b
    rs.Update
    
    ' mostrar el campo "Foto" en el control Image
    Image1.Stretch = True
    Set Image1.DataSource = rs
    Image1.DataField = "Foto"

    Image1.Visible = True

[PanKrdo]

Problema Resuelto,

Muchas Gracias es justo lo que nesecitaba ya que antes guardaba la ruta de la imagen y habia problemas si se eliminaba o renombraba la imagen pero en fin

Grancias.