imagen con access y Vb2005 - CrystalReport..?

[freegirl]

Hola,

Guardar y recuperar imágenes:

tengo el código para vb.net 2003, nose si te servirá para 2005 o lo deberás retocar un poco.

Función cargar imagen

Function LoadImage1(ByVal imageData As Byte()) As Image
Try
Dim imageStream As New IO.MemoryStream(imageData)
Dim imageObject As Image
imageStream.Flush()
imageObject = Image.FromStream(imageStream)
imageStream.Close()
Return imageObject
Catch ex As Exception
Return Nothing
msgbox("Error al cargar imagen.")
End Try
End Function

Función guardar imagen:

Function SaveImage1(ByVal imageObject As Image) As Byte()
Try
Dim imageStream As New IO.MemoryStream
Dim imageData As Byte()
imageObject.Save(imageStream, System.Drawing.Imaging.ImageFormat.Png)
imageStream.Flush()
imageData = imageStream.GetBuffer()
Return imageData
Catch ex As Exception
Return Nothing
msgbox("Error al cargar imagen.")
End Try
End Function

Ejemplo de como utilizar las funciones:

'cargar la imagen en el picture:

.
.
.
cmd.CommandText = "select img1 from tabla"
if isdbnull(cmd.executeScalar)=false
Me.pct1.Image = LoadImage1(DirectCast(cmd.executeScalar, Byte()))
end if
.
.

Ejemplo de como guardar la imagen en la bd access:

.
.
cmd.commandtext="insert into tabla (img1) values (@img1)
cmd.Parameters.Add("@img1", Me.SaveImage1(Me.pct1.Image))
.
.
.

Espero que te sirva.

saludos