Cita:
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
