RE:Guaradr Imagenes en Base de datos
Bueno, os pongo un ejemplo porque hoy estoy de buen humor
en la opción de guardar la foto:
rs.Fields("Foto").AppendChunk GuardarFoto(sRuta)
rs.Update
donde rs es el recordset creado anteriormente y sRuta es la dirección donde está la foto y Foto es el campo de la tabla donde se guarda la imagen (es un campo Objeto OLE de binarios largos)
y ahora la función GuardarFoto:
Function GuardarFoto(ByVal sRutaFoto As String) As Byte()
Dim b() As Byte
Open sRutaFoto For Binary As #1
ReDim b(FileLen(sRutaFoto))
Get #1, , b
Close #1
GuardarFoto = b
End Function
eso es para guardar una imagen en un campo Objeto OLE de una base de datos Access, ahora para visualizar la imagen:
Image1.Stretch = True
Set Image1.DataSource = rs
Image1.DataField = "Foto"
Te habrás dado cuenta que la imagen se presenta en un control Image y no en un PictuteBox.
porqué? pues porque el control PictureBox no tiene ninguna propiedad que ajuste el tamaño de la imagen en el propio control, sin embargo el control Image sí que tiene la propiedad Stretch que justamanete eso es lo que hace
Espero que os haya servido de algo (y de paso que el profesor con 10 años impartiendo clases, también les enseñe algo a sus alumnos)