Muchas gracias
Un saludo!
Rubén Vigón
Microsoft MVP Visual Basic
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro
Public Sub SubirArchivo(Rs As ADODB.Recordset, ByVal strRutaArchivo As String)
Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
With Stm
.Type = adTypeBinary
.Open
.LoadFromFile strRutaArchivo
Rs.AddNew
Rs.Fields("NombreCampoBLOB").Value = .Read
Rs.Update
.Close
End With
Set Stm = Nothing
End Sub
Un saludo
"Rubén Vigón" <vi...@wanadoo.es> escribió en el mensaje
news:uDQOpYZ...@TK2MSFTNGP10.phx.gbl...
Public Sub BajarArchivo(Rs As ADODB.Recordset, ByVal strRutaArchivo As String)
Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
With Stm
.Type = adTypeBinary
.Open
.Write Rs.Fields("NombreCampoBLOB").Value
.SaveToFile strRutaArchivo, adSaveCreateOverWrite
picImagen.Picture = LoadPicture(strRutaArchivo)
donde picImagen es un picturebox, pero obtengo el siguiente error
Error 481 en tiempo de ejecución
La imagen no es valida
Un saludo
Jaime
"Rubén Vigón" <vi...@wanadoo.es> escribió en el mensaje
news:uHHZijbi...@TK2MSFTNGP11.phx.gbl...
Un saludo y muchas gracias por la ayuda
Jaime
"Rubén Vigón" <vi...@wanadoo.es> escribió en el mensaje
news:O8Y3YbDj...@TK2MSFTNGP09.phx.gbl...
Si la imagen es almacenada como mapa de bits (como ocurre cuando copias y pegas una imagen en
Access, o utilizas un control PictureBox o Image enlazado) en realidad se almacenan sólo los bytes
necesarios para componer la imagen, de manera que no es posible pasar éstos bytes a un archivo
físico de disco (sería posible, pero el archivo no sería válido)
En resumen, si el archivo fue almacenado "completo", mediante un ADODB.Stream, debes restaurarlo a
disco para visualizarlo mediante «LoadPicture». Si el archivo fue almacenado como mapa de bits (tu
caso), debes visualizarlo mediante controles enlazados (PictureBox o Image)
"Rubén Vigón" <vi...@wanadoo.es> escribió en el mensaje
news:Ojqf$AKjDH...@TK2MSFTNGP12.phx.gbl...