¿Cómo puedo recuperar imágenes de una base de datos?
Estimado amigo.
Quería hacerle una consulta, tengo una base de datos en access, y en una tabla tengo un campo de tipo OLE donde guardo imágenes.
Lo que quiero es mostrar esas imágenes en una página web utilizando asp,
ya realize algunas aplicaciones utilizando asp con pws, pero a la hora de mostrar imágenes utilizaba la etiqueta img src, para llamar a mis archivos .jpg
Ahora ya no utilizo las imágenes en jpg, sino las coloque en el campo de tipo OLE.
Por favor si me puede ayudar le estaría muy agradecido.
Saludos: Jaime Covarrubias.
Quería hacerle una consulta, tengo una base de datos en access, y en una tabla tengo un campo de tipo OLE donde guardo imágenes.
Lo que quiero es mostrar esas imágenes en una página web utilizando asp,
ya realize algunas aplicaciones utilizando asp con pws, pero a la hora de mostrar imágenes utilizaba la etiqueta img src, para llamar a mis archivos .jpg
Ahora ya no utilizo las imágenes en jpg, sino las coloque en el campo de tipo OLE.
Por favor si me puede ayudar le estaría muy agradecido.
Saludos: Jaime Covarrubias.
Respuesta de corday
Te envío un código de ejemplo para hacer lo que me has preguntado.
Espero que te sea de utilidad.
Un Saludo.
Juan
-------------------------------------------------- Cortar por aquí
<% @ LANGUAGE=VBScript %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<%
' Este ejemplo utiliza el campo imagen de la tabla PUB_INFO
' Esta tabla viene instalada por defecto en la BD PUBS de SQL Server
Dim oConn
Dim oRs
Dim Pic
Dim PicSize
' Configurar la información de cabecera HTTP para que el browser interprete
' los datos devueltos como un archivo gif.
' Date cuenta que los browsers interpretan la información devuelta usando
' cabeceras MIME, no extensiones de fichero
Response.Buffer = TRUE
Response.ContentType = "image/gif"
' Crear el Objeto ADO Connection.
' Usa IISSDK ODBC Source con la cuenta por defecto sa y sin password
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
' Consulta SQL para obtener el recordset que contiene el gif BLOB
Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE
pub_id='0736'")
' Obtener una variable global para el GIF
PicSize = oRs("logo").ActualSize
Pic = oRs("logo").GetChunk(PicSize)
' Enviar la información al cliente.
' Como el tipo MIME esta establecido a image/gif, el browser dibujara
' automáticamente la imagen
Response.BinaryWrite Pic
Response.End
%>
Espero que te sea de utilidad.
Un Saludo.
Juan
-------------------------------------------------- Cortar por aquí
<% @ LANGUAGE=VBScript %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<%
' Este ejemplo utiliza el campo imagen de la tabla PUB_INFO
' Esta tabla viene instalada por defecto en la BD PUBS de SQL Server
Dim oConn
Dim oRs
Dim Pic
Dim PicSize
' Configurar la información de cabecera HTTP para que el browser interprete
' los datos devueltos como un archivo gif.
' Date cuenta que los browsers interpretan la información devuelta usando
' cabeceras MIME, no extensiones de fichero
Response.Buffer = TRUE
Response.ContentType = "image/gif"
' Crear el Objeto ADO Connection.
' Usa IISSDK ODBC Source con la cuenta por defecto sa y sin password
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
' Consulta SQL para obtener el recordset que contiene el gif BLOB
Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE
pub_id='0736'")
' Obtener una variable global para el GIF
PicSize = oRs("logo").ActualSize
Pic = oRs("logo").GetChunk(PicSize)
' Enviar la información al cliente.
' Como el tipo MIME esta establecido a image/gif, el browser dibujara
' automáticamente la imagen
Response.BinaryWrite Pic
Response.End
%>
