Access - Visualizar JPG´s

 
Vista:

Visualizar JPG´s

Publicado por Miguel Ángel (18 intervenciones) el 24/06/2003 14:37:14
Hola tengo un código para insertar una imagen en una base de datos
a través de un control OLE.

Dim sFoto as string

sFoto = "C:\Mis Imagenes\FOTO.BMP"
' * Verifica que la foto exista, de no existir no hace nada
If Len(Dir(sFoto)) > 0 Then
' * Para poder usar el campo desbloqueamos
Me.FOTO.Locked = False
' * No hay OLE Incrustado?
If Me.FOTO.OLEType = acOLENone Then
' *Si vas a usar solo BMP o PCX no hace llamar la clase indicada
' *en la siguiente linea, en cambio para usar JPG o GIF debes
' *usar la clase correspondiente por ejemplo Photo Edit
' *Me.FOTO.Class = "Paint.Picture"
' * Apuntamos a la imagen
Me.FOTO.SourceDoc = sFoto
' * Le decimos que es incrustado
Me.FOTO.OLETypeAllowed = acOLEEmbedded
' * Actualizamos nuestro campo
Me.FOTO.Action = acOLECreateEmbed
Else
' * El campo tiene un OLE que ha sido creado antes
' * Esto es util si tienes una foto mas reciente que quieras
' * actualizar en tu base de datos
Me.FOTO.SourceDoc = sFoto
' * Entonces solo actualizamos la imagen
Me.FOTO.Action = acOLEUpdate
End If
' * Bloqueamos para no editarlo con el boton derecho del raton
Me.FOTO.Locked = True
End If

Insertar lo inserta como "paquete" y al visualizarlo en un formulario en vez de salir la imagen sale el icono de la imagen.

Sabe alguien como puedo hacer para visualizarlo como imagen ?

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

RE:Visualizar JPG´s

Publicado por Jesus (861 intervenciones) el 25/06/2003 03:01:19
Normalmente suele ser porque en el marco de la imagen del formulario tienes activada una casilla que pone precisamente eso: mostrar como icono.
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

RE:Visualizar JPG´s

Publicado por Miguel Angel (20 intervenciones) el 25/06/2003 10:18:33
Ya he resuelto el problema. El tema es que se necesita la clase MSPhotoEd.3 Que se instala con el MS Photo Editor que viene en office 2000. Y yo no lo tenía instalado con lo cual no disponía de esa clase.

Usaba la Paint.Picture que es para visualizar BMP´s.

Gracias por tu ayuda.

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