Hola, tengo un problema y es que cuando quiero obtener una imagen almacenada en un campo blob del MYSQL 5, lo que me sale es codigo binario y no la imagen, este el codigo que utilizo:
Código:
Function Buscar_Imagen()
'******************************************
Dim MyConnection3 As OdbcConnection
Dim MYCommand3 as OdbcCommand
Dim DS3 as DataSet
DS3 = New DataSet()
Dim myReader3 As OdbcDataReader
MyConnection3 = New OdbcConnection (ConfigurationSettings.AppSettings("CadenaConexion"))
MyConnection3.Open()
MYCommand3 = New OdbcCommand("SELECT * FROM perfiles",MyConnection3)
myReader3 = MYCommand3.ExecuteReader()
dim num_fila as integer
num_fila=0
dim salir as string
salir="no"
WHILE myReader3.Read()
if ((myReader3("codigo").ToString()<>request.querystring("perfil")) and (salir="no")) THEN
num_fila=num_fila+1
else
salir="si"
end if
END WHILE
response.Write("numero de fila:"& num_fila &"<br>")
myReader3.Close()
MyConnection3.Close()
'**************
Dim MyConnection2 As OdbcConnection
Dim DS2 as DataSet
DS2 = New DataSet()
MyConnection2 = New OdbcConnection (ConfigurationSettings.AppSettings("CadenaConexion"))
MyConnection2.Open()
Dim da2 As OdbcDataAdapter
da2 = New OdbcDataAdapter("SELECT * FROM perfiles", MyConnection2)
Dim MyCB As OdbcCommandBuilder = New OdbcCommandBuilder(da2)
da2.Fill (ds2, "perfiles")
Dim myRow As DataRow
myRow = ds2.Tables("perfiles").Rows(num_fila)
Dim MyData() As Byte
MyData = myRow("img_desc1")
Response.Buffer = True
Response.ContentType = "Image/JPEG"
Response.BinaryWrite(MyData)
MyCB = Nothing
ds2 = Nothing
da2 = Nothing
MyConnection2.Close()
'***************
End Function
Esto es una función a la que llamo dentro del codigo html.
¿Cual puede ser el problema?
Salu2