Estoy desarrollando una aplicacion de gestion de CD de musica, y me gustaria poder incorporar como campo, la caratula frontal del disco. Como puedo guardar una imagen en un campo de tipo OLE de la BD.
Utilizo Visual Basic 6 y Mocosoft Access XP. En la aplicacion, utilizo controles ADO.
He probado un codigo que me permite guardar imagenes en GIF y BMP pero no en JPG. Alguien sabe como para hacerlo en JPG???

Mira si te sirve este código:

Código:

 Dim sImagen As String, bDatos() As Byte
 CommonDialog1.FileName = ""
 CommonDialog1.Filter = "Imágenes (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
 CommonDialog1.Flags = cdlOFNHideReadOnly
 CommonDialog1.ShowOpen
 If CommonDialog1.FileName = "" Then Exit Sub
sImagen = CommonDialog1.FileName
 Open sImagen For Binary As #1
 ReDim bDatos(FileLen(sImagen))
 Get #1, , bDatos
 Close #1
Adodc1.Recordset("Foto").AppendChunk bDatos
 Adodc1.Recordset.Update
 Adodc1.Refresh

Para visualizar la foto en un control Image con la propiedadstretch = True:


Saludos

nyghuioiufgyhuiuytgyui


frghjkhgfghj


dfghjkiutyu


iuyuioi


iyuioiuyuiuo,<ctgytgyyug,c<ygugvgh, hygghg.


olokp

anibal el codigo anterior funciona para el data1? o se guarda de otra forma