grabar imagenes

Este es el codigo que yo uso para grabar una imagen de un picturebox a una
base de datos Acces,

Dim ms As New MemoryStream()



picNormal.Image.Save(ms, ImageFormat.Jpeg)

Dim bytBLOBData(ms.Length - 1) As Byte

ms.Position = 0

ms.Read(bytBLOBData, 0, ms.Length)

Try

Dim DSet As New DataSet()

Dim DRow As DataRow

cn.Open()

Dim DAdapter As New OleDb.OleDbDataAdapters(SQL, cn)

Dim CB As New OleDb.OleDbCommandBuilder(DAdapter)

DAdapter.Fill(DSet, "Imagenes")

DRow = DSet.Tables("Imagenes").NewRow

DRow("Imagen") = bytBLOBData



DSet.Tables("Imagenes").Rows.Add(DRow)

DAdapter.Update(DSet, "Imagenes")

DSet.AcceptChanges()

Catch ex As Exception

MsgBox(ex.message)

Finally

cn.Close()

End Try



Y para leer,



Dim stmBLOBData As New MemoryStream(DRow("Imagen"))

If stmBLOBData.Length <> 0 Then

LeerImagenDB = Image.FromStream(stmBLOBData)

Else

LeerImagenDB = Nothing

End If


"fernando" escribió en el mensaje
news:

Hola grupo, alguien me puede decir la forma de guardar una imagen jpg en

la

base de datos. Resulta que necesito mostrar imagenes en un reporte, estas
imagenes ahora estan con su path, pero no encuentro la forma de indicarle

el

camino a CrystalReport para que cargue las imagenes, ya que las mismas se
deben cargar dinámicamente, varian de acuerdo a lo que seleccionen. Bueno
espero se haya entendido la pregunta. Gracias

fernando

gracias , ahora mismo lo pruebo.

fernando
"Edwin Monsalve" escribió en el mensaje
news:

Este es el codigo que yo uso para grabar una imagen de un picturebox a una
base de datos Acces,

Dim ms As New MemoryStream()



picNormal.Image.Save(ms, ImageFormat.Jpeg)

Dim bytBLOBData(ms.Length - 1) As Byte

ms.Position = 0

ms.Read(bytBLOBData, 0, ms.Length)

Try

Dim DSet As New DataSet()

Dim DRow As DataRow

cn.Open()

Dim DAdapter As New OleDb.OleDbDataAdapters(SQL, cn)

Dim CB As New OleDb.OleDbCommandBuilder(DAdapter)

DAdapter.Fill(DSet, "Imagenes")

DRow = DSet.Tables("Imagenes").NewRow

DRow("Imagen") = bytBLOBData



DSet.Tables("Imagenes").Rows.Add(DRow)

DAdapter.Update(DSet, "Imagenes")

DSet.AcceptChanges()

Catch ex As Exception

MsgBox(ex.message)

Finally

cn.Close()

End Try



Y para leer,



Dim stmBLOBData As New MemoryStream(DRow("Imagen"))

If stmBLOBData.Length <> 0 Then

LeerImagenDB = Image.FromStream(stmBLOBData)

Else

LeerImagenDB = Nothing

End If


"fernando" escribió en el mensaje
news:
> Hola grupo, alguien me puede decir la forma de guardar una imagen jpg

en

la
> base de datos. Resulta que necesito mostrar imagenes en un reporte,

estas

> imagenes ahora estan con su path, pero no encuentro la forma de

indicarle

el
> camino a CrystalReport para que cargue las imagenes, ya que las mismas

se

> deben cargar dinámicamente, varian de acuerdo a lo que seleccionen.

Bueno

> espero se haya entendido la pregunta. Gracias
>
> fernando
>
>