Hola
yo tengo esta forma para poder mostrar imagenes dinamicas en crystal reports
lo primero que hago es crear un Dataset que se llama 'dsImagenes'
Dim dt As New DataTable
Dim dr As DataRowDim ds As New DataSet
Dim Dapt As New SqlDataAdapterDim Dset As New DataSet
Dim query As String
query = "select Rtrim(path)+'\'+rtrim(nombre)+'.Jpg' as PathdeImagenes from Tabla where campo = '" & codigo & "'"
Dapt.SelectCommand = New SqlCommand(query, cnn)Dapt.Fill(Dset, "Llenar")
'Creo otro dataset con la misma estructura que mi dataset dsImagenes
dt.Columns.Add(
New DataColumn("Codigo", GetType(Short)))dt.Columns.Add(New DataColumn("Descripcion", GetType(String)))
dt.Columns.Add(
New DataColumn("Imagen", GetType(Byte())))For Each MiDataRow As DataRow In Dset.Tables("Llenar").Rows
dr = dt.NewRow()
dr("Codigo") = IdSolicitud
dr(
"Descripcion") = 'Descripcion si la quiero colocar'dr("Imagen") = ImageToByte(Image.FromFile(MiDataRow("PathdeImagenes")))
dt.Rows.Add(dr)
Next
ds.Tables.Add(dt)
ds.Tables(0).TableName =
"Imagenes"Dim iDS As New dsImagenes
iDS.Merge(ds,
False, System.Data.MissingSchemaAction.Ignore)Return iDS
End Function
'esta es la funcion que se encarga de pasar imagenes a bytes
Public Function ImageToByte(ByVal pImagen As Image) As Byte()
Dim mImage() As Byte
Try
If Not IsNothing(pImagen) ThenDim ms As New System.IO.MemoryStream
pImagen.Save(ms, pImagen.RawFormat)
mImage = ms.GetBuffer
ms.Close()
Return mImage
End If
Catch
End TryEnd Function
Espero que te sirva ami no me ha dado ningun problema lo unico que tengo yo es el path de las imagenes no guardo las imagense en la base de datos cualquier duda estoy a la orden.