27/12/2007, 13:56
|
| | Fecha de Ingreso: agosto-2002
Mensajes: 32
Antigüedad: 22 años, 4 meses Puntos: 0 | |
Re: Ver Imagen en nueva pagina codigo del boton que visualiza la imagen:
Dim r As DataRow
oDataAdapter = New SqlDataAdapter
oDataSet = New DataSet
' crear conexión
oConexion = New SqlConnection(cadenaCnn)
' crear adaptador
oDataAdapter = New SqlDataAdapter
Dim oCmdConsulta As New SqlCommand("SELECT * FROM PLANOS", _
oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
oDataSet = New DataSet
' crear conjunto de datos
Me.oDataSet.Clear()
Me.oDataAdapter.Fill(Me.oDataSet, "PLANOS")
oConexion.Close() ' cerrar conexión
Response.ContentType = "image/pjpeg"
Dim bddImagen
bddImagen = oDataSet.Tables(0).Rows(0)("IMAGEN")
Response.BinaryWrite(bddImagen) |