RE:Guardar Imagenes en SQL Server
Derechos de: Victor Rafael Bocanegra Arias, Microsoft Newsgroups
Supongamos que "c:\prueba.jpg" es el archivo de imagen que se debe almacenar
en la DB, "rs" es un objeto ADODB.Recordset abierto sobre la tabla de la DB
(esto se podria modificar para que trabajase sobre un parametro de un
procedimiento almacenado si fuera el caso) y "imagen" es el nombre de la
columna. Para grabar el archivo se usa el siguiente codigo:
Dim strm as New ADODB.Stream
strm.Type= adTypeBinary
strm.Open
strm.LoadFromFile= "c:\prueba.jpg"
rs.Fields("imagen").value= strm.Read
rs.Update
Para recuperar el archivo desde el servidor, se utiliza el siguiente código:
Dim strm as New ADODB.Stream
strm.Type= adTypeBinary
strm.Open
strm.Write rs.Fields("imagen").Value
strm.SaveToFile "c:\prueba.jpg", adSaveCreateOverWrite
Se puede almacenar cualquier tipo de archivo (imagenes, documentos,
plantillas, etc)