Después de leer bastante por internet (incluido este foro) me decidí por la propuesta de shordi, en lo que respecta a guardar imagenes en una base de datos sqlite, utilizando un campo para el nombre del archivo y otro campo (blob) para la imagen.
Lo he conseguido con el código que pongo a continuación.
Ahora bien, si no entendí mal lo que he leído, la imagen no se puede mostrar directamente en el picturebox, sino que hay que «construirla» con los datos bse64 que se guardaron en la base ¿estoy en lo correcto?
He intentado con esto, pero no logro comprender que hago mal.
Public Sub btnSUBIRFOTO_Click()
Dim archivo As Blob
'ME CONCETO A LA BD
cx = Mconex.conectar()
cx.Begin
rs = cx.Edit("Pers_Fisicas", "ID_PERSFISICA=&1", id)
If Dialog.OpenFile() Then Return
txtNOMBREFOTO.text = Str(rs["NOMBREFOTO"])
archivo = rs["IMAGEN"]
File.Save(Application.path &/ "imagen.tmp", archivo.Data)
picIMAGEN.Picture = Picture.Load(Application.path &/ "imagen.tmp")
rs.Update
cx.Commit
Mconex.desconectar(cx)
id = 0
llenarGrid
End
Dim archivo As Blob
'ME CONCETO A LA BD
cx = Mconex.conectar()
cx.Begin
rs = cx.Edit("Pers_Fisicas", "ID_PERSFISICA=&1", id)
If Dialog.OpenFile() Then Return
txtNOMBREFOTO.text = Str(rs["NOMBREFOTO"])
archivo = rs["IMAGEN"]
File.Save(Application.path &/ "imagen.tmp", archivo.Data)
picIMAGEN.Picture = Picture.Load(Application.path &/ "imagen.tmp")
rs.Update
cx.Commit
Mconex.desconectar(cx)
id = 0
llenarGrid
End
