Problemas con imagen AYUDA!

International Español
1

Hola, tengo el siguiente problema que hace rato no puedo solucionar, haber si alguien le a pasado o puede darme una ayuda, tengo una base de datos mysql, quiero guardar una imagen y poder recuperarla,lo que tengo es lo siguiente:

Dim pTmp As Picture=imwpicture.Image
Dim mbEnc As MemoryBlock= pTmp.GetData(Picture.FormatPNG) ’ Puede ser jpg
Dim sEnc As String= EncodeBase64(mbEnc.StringValue(0, mbEnc.Size))
Dim sql As String= “UPDATE lista SET imagen= '”+ sEnc+ “’ WHERE id=2”
App.mDB.SQLExecute(sql)
If App.mDB.Error Then MsgBox “Error”

Hasta ah parecera que la imagen esta guardada, ya que en campo blob me figura algo as como “6956424F5277304B47676F414141414E5” pero el problema es despues poder visualizarla, no logro cargar la imagen, alguien me puede ayudar.

Gracias de antemano al foro, siempre me ha sido de mucha ayuda!
Saludos
Mike

2

Este es el codigo que tengo para cargar la imagen pero no funciona, cual es el error?

Dim mb As String
Dim p As Picture = imwpicture.Image
Dim rs As RecordSet=app.mdb.SQLSelect(“SELECT * FROM lista WHERE id=1”)
mb= DecodeBase64(DecodeHex(rs.Field(“imagen”).StringValue))
p= Picture.FromData(mb)

saludos
mike