Código:
Esto es una función a la que llamo dentro del codigo html.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
¿Cual puede ser el problema?
Salu2