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
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
0