Posteado por: toniogago | 31 diciembre 2010

Ya hay un DataReader abierto asociado a este comando, debe cerrarlo primero


Normalmente lo que hago para leer una tabla es utilizar un objeto SQLDataReader. Me tiene pasado en alguna aplicación la necesidad de ejecutar un Update dentro del bucle de lectura. Al estar abierto el SQLDataReader salta el error “Ya hay un DataReader abierto asociado a este comando, debe cerrarlo primero”.

Para solucionarlo empleo un objeto DataTable que nos sirve igual que el DataReader. Un ejemplo de uso sería:

Dim Cmd As New SQLCommand("Select a, b, c, d from Tabla", Conexion)
Dim dt As New DataTable

dt.TableName = 'Tabla'
dt.Load(Cmd.ExecuteReader)

For Each Fila As DataRow In dt.Rows
'Ahora se puede utilizar una consulta SQL sin que dé el error del DataReader
Next


dt = Nothing
Cmd = Nothing

Espero que le sirva a alguien. Un saludo.

Anuncios

Responses

  1. Hola a mi me aparece el mismo error , ojala pudieras ayudarme este el código:

     Dim vdesp As String
            v_fila.Connection = dbSanciones
            v_fila.CommandType = CommandType.Text
            v_SQLmostrar = "SELECT Area FROM Jefes WHERE Id_Jefe=  '" & CmbArea07.SelectedValue & "'"
    
            dbSanciones.Open()
            'v_fila.CommandText = v_SQLmostrar
            'v_reg = v_fila.ExecuteReader
    
            v_fila.CommandText = v_SQLmostrar
            v_reg = v_fila.ExecuteReader()
            Do While v_reg.Read
                vareacombo = v_reg(0).ToString.Trim
                'MsgBox(v_reg(0)) 
    
                vdesp = "Despacho del Títular"
                MsgBox(vdesp)
    
                ' MsgBox(vareacombo)
    
                Select Case vdesp
                    Case "Despacho del Títular"
                        LlamarDatos("Select  Personal.Num_nom,Num_Inv as No_Inv,Descrip As Nombre,Marca,Modelo,Num_Serie,EdoFisico As Estado_Fisico,Obser AS Datos_Comple,Personal.Nombre+Personal.Apat+Amat As Responsable,Ubicacion " & _
                                                   " FROM BM  INNER JOIN Asig_Personal ON Asig_Personal.Num_Bm=BM.Num_Bm  " & _
                                                   " INNER JOIN Personal ON Asig_Personal.Num_nom=Personal.Num_nom " & _
                                                   "  INNER JOIN JEFES as j ON (j.Id_Jefe=Personal.Jefe1 Or j.Id_Jefe=Personal.Jefe2 Or j.Id_Jefe=Personal.Jefe3 Or j.Id_Jefe=Personal.Jefe4 Or j.Id_Jefe=Personal.Jefe5)" & _
                                                   "  INNER JOIN Catalogo_BM  ON BM.Id_mod = Catalogo_BM.Id_mod " & _
                                                   " Where  j.Id_Jefe=  '0' and  not Catalogo_Bm.Id_mod in (83,12,7,38,202,260,272,294,122,259) and Personal.Jefe5='0'  and Fec_fin='1900/01/01' order by Responsable")
    
                        Datab = New DataTable
                        Datadap.Fill(Datab)
                        DG07.DataSource = Datab
                        DG07.Columns(0).Visible = False
                End Select
               
    
            Loop
            dbSanciones.Close()
            v_reg.Close()
    

    El error me lo marca señalando la linea:
    Datadap.Fill(Datab)

    Por tu ayuda Gracias!!!

    • Hora Bere,
      en vez de utilizar un DataReader procura utilizar un DataTable para recorrer la consulta que necesites.

      prueba con este código:

              Dim vdesp As String
              v_fila.Connection = dbSanciones
              v_fila.CommandType = CommandType.Text
              v_SQLmostrar = "SELECT Area FROM Jefes WHERE Id_Jefe=  '" & CmbArea07.SelectedValue & "'"
      
              dbSanciones.Open()
              'v_fila.CommandText = v_SQLmostrar
              'v_reg = v_fila.ExecuteReader
      
              v_fila.CommandText = v_SQLmostrar
      
              Dim jefes As DataTable = New DataTable("Jefes")
              jefes.Load(v_fila.ExecuteReader())
      
              For Each v_reg As DataRow In jefes.Rows
      
                  vareacombo = v_reg(0).ToString.Trim
                  'MsgBox(v_reg(0)) 
      
                  vdesp = "Despacho del Títular"
                  MsgBox(vdesp)
      
                  ' MsgBox(vareacombo)
      
                  Select Case vdesp
                      Case "Despacho del Títular"
                          LlamarDatos("Select  Personal.Num_nom,Num_Inv as No_Inv,Descrip As Nombre,Marca,Modelo,Num_Serie,EdoFisico As Estado_Fisico,Obser AS Datos_Comple,Personal.Nombre+Personal.Apat+Amat As Responsable,Ubicacion " & _
                                                     " FROM BM  INNER JOIN Asig_Personal ON Asig_Personal.Num_Bm=BM.Num_Bm  " & _
                                                     " INNER JOIN Personal ON Asig_Personal.Num_nom=Personal.Num_nom " & _
                                                     "  INNER JOIN JEFES as j ON (j.Id_Jefe=Personal.Jefe1 Or j.Id_Jefe=Personal.Jefe2 Or j.Id_Jefe=Personal.Jefe3 Or j.Id_Jefe=Personal.Jefe4 Or j.Id_Jefe=Personal.Jefe5)" & _
                                                     "  INNER JOIN Catalogo_BM  ON BM.Id_mod = Catalogo_BM.Id_mod " & _
                                                     " Where  j.Id_Jefe=  '0' and  not Catalogo_Bm.Id_mod in (83,12,7,38,202,260,272,294,122,259) and Personal.Jefe5='0'  and Fec_fin='1900/01/01' order by Responsable")
      
                          Datab = New DataTable
                          Datadap.Fill(Datab)
                          DG07.DataSource = Datab
                          DG07.Columns(0).Visible = False
                  End Select
      
      
              Next
              dbSanciones.Close()
              v_reg.Close()
      

      puede que te haga falta importar el espacio de nombres System.Data


Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

A %d blogueros les gusta esto: