Ver Mensaje Individual
  #8 (permalink)  
Antiguo 06/02/2010, 13:46
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
Respuesta: Problema con la tabla dinámica

Hola a todos y muchas gracias de antemano por vuestra ayuda. Sigo con problemas, ahora en el sentido de crear dos consultas asociadas a un mismo comando me da el siguiente error
Cita:
Ya hay un DataReader abierto asociado a este comando, debe cerrarlo primero.
el código que tengo ahora es el siguiente:
Código PHP:
Partial Class _Default
    Inherits System
.Web.UI.Page
    Dim conexion 
As New Cconexion
    Dim rs1 
As SqlDataReader
    Dim rs2 
As SqlDataReader

    
Protected Sub Page_Load(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.Load
        Dim respuesta 
As Integer "4"
        
Dim rs1 As SqlDataReader
        Dim rs2 
As SqlDataReader
        Me
.lblsesion.Text Session("alumno")

        
Dim filas As New TableRow
        Dim celdas 
As New TableCell
        rs1 
Me.conexion.consultar("select*from T_preguntas")

        Do While 
rs1.Read
            filas 
= New TableRow 'Iniciamos el objeto fila
            celdas = New TableCell '
Iniciamos el objeto columna
            filas
.Cells.Add(celdas'Agragamos celda a la fila
            celdas.Text = rs1("c_pregunta")    '
Texto para la celda
            Me
.tblEjemplo.Rows.Add(filas'Agragamos la fila a la tabla
            rs2 = Me.conexion.consultar("select * from T_respuestas where c_idpregunta='" & rs1("
c_idpregunta") & "'")
            Do While rs2.Read
                filas = New TableRow '
Iniciamos el objeto fila
                celdas 
= New TableCell 'Iniciamos el objeto columna
                filas.Cells.Add(celdas) '
Agragamos celda a la fila
                celdas
.Text rs2("c_respuestas")    'Texto para la celda
                Me.tblEjemplo.Rows.Add(filas) '
Agragamos la fila a la tabla
            Loop
            rs2
.Close()
              
Loop
        rs1
.Close()
    
End Sub
End 
Class