image
Inicio » Foros » ASP.NET

Foro sobre ASP.NET

Error en Reader.

Volver al foro | Responder | Añadir nuevo tema


De: Henry Salcedo
Fecha: 12/11/2011
Mensaje:

indicando Ya hay un DataReader abierto asociado a este Command, debe cerrarlo primero. y no logro encontrar el error. el codigo de la pagina es la siguiente. Dim MyReader As SqlDataReader Dim DetReader As SqlDataReader Dim StrSql, StrSql2 As String StrSql = "SELECT Operacion.SeriOper, Operacion.NumOper, (Operacion.SeriOper+'-'+Operacion.NumOper) as Operacion,Operacion.TipOper,Operacion.AnulOper, " _ & " Operacion.NumDI, Operacion.FecOper, Operacion.HoraOper, Operacion.TotOper,Operacion.Observac,Operacion.Usuario,TipOper.DesOper " _ & " FROM Operacion INNER JOIN TipOper ON Operacion.TipOper = TipOper.TipOper " _ & " WHERE Operacion.Numdi='" & Trim(Session("Codigo_Usuario").ToString()) & "' " _ & " ORDER BY Operacion.FecOper DESC " 'Crear una nueva conexion a la bsae de datos Base_Datos = New SqlConnection(StrConexion) 'Comando a la tabla SeriOper Dim mycomand As New SqlCommand(StrSql, Base_Datos) Dim commDet As SqlCommand 'Try 'Abrir la base de datos Base_Datos.Open() 'ejecutar la consulta de datos MyReader = mycomand.ExecuteReader() 'recorrer toda la tabla de datos. While MyReader.Read Response.Write(MyReader("SeriOper").ToString()) Response.Write(". ." & FormatDateTime(MyReader("FecOper").ToString())) Response.Write("
") 'Generar la consulta de datos de la tabla detalles. StrSql2 = "SELECT PlanContab.l_cuen, DetOper.Importe, DetOper.dFecOper,DetOper.AñoAcad, " _ & " DetOper.PeriAcad,DetOper.Nivel,DetOper.Seccion, " _ & " DetOper.SeriOper, DetOper.NumOper, (Rtrim(DetOper.codcontab)) AS codcontab , " _ & " (DetOper.SeriOper+'-'+DetOper.NumOper) as Operacion " _ & " FROM DetOper INNER JOIN PlanContab ON DetOper.codcontab = PlanContab.c_cuen " _ & " WHERE DetOper.SeriOper='" & MyReader("SeriOper").ToString() & "' AND " _ & " DetOper.NumOper='" & MyReader("NumOper").ToString() & "'" commDet = New SqlCommand(StrSql2, Base_Datos) DetReader = commDet.ExecuteReader While DetReader.Read Response.Write("hola") Response.Write(DetReader("aaaa" & "Importe").ToString()) End While DetReader.Close() End While MyReader.Close() 'Catch ex As Exception 'Finally Base_Datos.Close() 'End TryEl problema sucedio cuando agregue el segundo reader (el que se encuentra dentro del reader principal - DetReader), el que muestra el detalle de las operaciones . porque al poner el codigo que solo muestre las operaciones normal me ejecuta. Espero su pronta respuesta.


Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.