none
Dice que mi datareader esta abierto RRS feed

  • Pregunta

  •   With Cmd : .Connection = oConexion : .CommandType = CommandType.Text : End With
            Sql = "" : Sql = "select FormaPago from TbPrestamo Where Id_Prestamo = '" & vId_Prestamo & "' And Id_Compania = '" & IdCompania & "'" : Cmd.CommandText = Sql
            Try : Dr = Cmd.ExecuteReader
                Dr.Read()
                If Dr.HasRows Then
                    FormaPagoPrest = Dr(0).ToString
                End If
                Dr.Close()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try

    ese es mi codigo cuando lo ejecuto    luego ejecuto este

     DatagridCobro.DataSource = Nothing : DatagridCobro.Rows.Clear() : DatagridCobro.Columns.Clear()

            Dim oCmd As New SqlCommand("Ver_Cobro", oConexion)
            oCmd.CommandType = CommandType.StoredProcedure
            oCmd.Parameters.AddWithValue("@Valor", vId_Prestamo) : oCmd.Parameters.AddWithValue("@Valor2", IdCompania)

            Dim da As New SqlDataAdapter() : da.SelectCommand = oCmd : da.SelectCommand.Connection = oConexion
            Ds1.Clear() : da.Fill(Ds1, "TbCobro, TbPrestamo")

            If Ds1.Tables("TbCobro, TbPrestamo").Rows.Count() = 0 Then

            ElseIf Ds1.Tables("TbCobro, TbPrestamo").Rows.Count() > 0 Then
                DatagridCobro.DataSource = Ds1.Tables("TbCobro, TbPrestamo")
                Personalizacion_DatagridCobro()
            End If

    cuando ese se ejecuta me sale un error de que datareader esta abierto que necesito cerrarlo ante des

    alguien me puede ayudar

    • Cambiado Enrique M. Montejo martes, 26 de agosto de 2014 14:41 Pregunta relacionada con el acceso a datos.
    viernes, 22 de agosto de 2014 13:39

Todas las respuestas