error: There is already an open DataReader

[mrprogman]

alguien sabe por que marca este error:

There is already an open DataReader associated with this Command which must be closed first.


este es mi codigo

Dim sqlCon As SqlConnection = New SqlConnection("Data Source=192.168.10.20;Initial Catalog=Papeleria;User ID=sa;Password=stm01;MultipleActiveResultSets=True ;")
sqlCon.Open()
Dim sqlCmd As SqlCommand = New SqlCommand
sqlCmd.CommandText = "select precio from articulos where descripcion = '" & Label6.Text.Trim() & "'"
sqlCmd.Connection = sqlCon
Label65.Text = sqlCmd.ExecuteScalar.ToString

sqlCon.Close()
'-----------------------
Dim sqlCon1 As SqlConnection = New SqlConnection("Data Source=192.168.10.20;Initial Catalog=Papeleria;User ID=sa;Password=stm01;MultipleActiveResultSets=True ;")
sqlCon1.Open()
Dim sqlCmd1 As SqlCommand = New SqlCommand
sqlCmd1.CommandText = "select precio from articulos where descripcion = '" & Label7.Text.Trim() & "'"
sqlCmd1.Connection = sqlCon1
Dim leerbd As SqlDataReader = sqlCmd1.ExecuteReader()
If leerbd.Read <> False Then
Label66.Text = sqlCmd1.ExecuteScalar.ToString
Else
Label66.Text = ""

End If

sqlCon1.Close()

[Dradi7]

El error esta claro, menciona que si tu ya estas usando un DataReader ya no puedes utilizar ExecuteScalar

[mrprogman]

Entonces no se puede hacer eso que quiero..alguna recomendacion.de como hacerlo..?..gracias

[Dradi7]

Pero tu estas haciendo mal el codigo revisa bien si ya has leido el SqlDataReader solo te basta con recorrerlo para que tomes sus valores trata de usar

leerbd.GetString(0) // donde get recupera el valor por cada fila recorrida y el 0 es el indice de la columna a buscar

[mrprogman]

algun otro metodo para meter una consulta en un label..?

[cristiantorres]

Estas haciendo mal tu consulta imagino que quieres mostrar el dato que obtentes de la consulta en un label.

Código vb.net:

Using conn As New SqlConnection(Data Source=192.168.10.20;Initial Catalog=Papeleria;User ID=sa;Password=stm01;MultipleActiveResultSets=True ;)
 
     conn.Open()
     Dim query As String = "select precio from articulos where descripcion=@desc"
     Dim cmd As New SqlCommand(sql, conn)
     cmd.Parameters.AddWithValue("@desc", Label6.Text)
 
 
     Dim reader As SqlDataReader = cmd.ExecuteReader()
 
     If reader.Read() Then
          Label65.Text = Convert.ToString(reader("NombrCampo"))
     End If
 
 
End Using
 

Esa seria la mejor forma de hacerlo siempre en tus consultas usa parámetros.

Saludos.

[mrprogman]

Funciona a la perfeccion....gracias por sus respuestas..