Ya hay un Datareader abierto a este command, debe cerrarlo primero

[maialenlopez]

Iniciado por jhonjairo00

Hola

Inténtalo así

Código vb:

Protected Sub eliminarDatos(ByRef ident As String)
        Dim conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("conexion").ConnectionString)
 
        Dim comm1 As SqlCommand = New SqlCommand("DELETE FROM dbo.temp_datosGuardados WHERE id_identificador = @id_identificador", conn)
        'Dim reader1 As SqlDataReader
        Dim mytrans As SqlTransaction
 
        Try
            With comm1
                .CommandType = CommandType.Text
                .Parameters.AddWithValue("id_identificador", ident)
            End With
 
            Using conn
 
                conn.Open()
                mytrans = conn.BeginTransaction()
 
                Try
                    With comm1
                        .Transaction = mytrans
                        'reader1 = .ExecuteReader()
                        'While reader1.Read()
                        .ExecuteNonQuery()
                        .Dispose()
                        'End While
                        mytrans.Commit()
                    End With
                Catch ex As Exception
 
                    mytrans.Rollback()
                    MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
                    'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message)
                End Try
            End Using
 
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
            'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
    End Sub
 

Lo único que hice fue comentar en donde usas el reader, ya que cómo no vas a capturar datos no es necesario usarlo...

Espero te sirva

Saludos.

Gracias;

Así si funciona perfectamente