Leer DataReader

Hola tengo una consulta este es mi codigo no se si esta mal pero ejecuta
cuando llama al procedimiento almacenado para obtener los datos si los
devuelve pero cuando quiero leer el registro que esta en el data reader me
muestra un mensaje que "Error de lectura porque no hay datos" no se en que
este mal , estoy usando este data reader para comparar el valor con el
cuadro de texto para ver si es igual o no y en base a eso hago la demas
validación, gracias de antemano no se en que parte este mal



Dim MyCommand As SqlClient.SqlCommand

Dim MyDataSet As New DataSet

Try

MyAdapter = New SqlClient.SqlDataAdapter

MyCommand = New SqlClient.SqlCommand("Sp_UsrSelect", Cn)

MyCommand.CommandType = CommandType.StoredProcedure

Dim Prm As New SqlClient.SqlParameter("@CodUsuario", SqlDbType.Char, 15)

Prm.Direction = ParameterDirection.Input

Prm.Value = CBoUser.SelectedValue

MyCommand.Parameters.Add(Prm)

Dim Dr As SqlClient.SqlDataReader = MyCommand.ExecuteReader

If Dr.HasRows = True Then

'hay registro

If Trim(Dr.Item("USR_PASSW")) = Trim(txtPassword.Text) Then '''' EN

PARTE DE AUI ME MUESTRA EL ERROR CUANDO LLEGO A ESTA PARTE DE EJECUCION

TextBox1.Text = Dr.Item("USR_PASSW")

End If

MessageBox.Show("ingrespp")

Dr.Close()

Else

MessageBox.Show("no ingreso")

End If

Dr.Close()

Else

End If

Hola, te falta colocar un Dr.Read, antes de hacer un Dr.Item



Sta Cruz, Bolivia

"J o H n U s (PE)" wrote in message
news:e$
> Hola tengo una consulta este es mi codigo no se si esta mal pero ejecuta
> cuando llama al procedimiento almacenado para obtener los datos si los
> devuelve pero cuando quiero leer el registro que esta en el data reader

> muestra un mensaje que "Error de lectura porque no hay datos" no se en

> este mal , estoy usando este data reader para comparar el valor con el
> cuadro de texto para ver si es igual o no y en base a eso hago la demas
> validación, gracias de antemano no se en que parte este mal
>
>
>
> Dim MyCommand As SqlClient.SqlCommand
>
> Dim MyDataSet As New DataSet
>
> Try
>
> MyAdapter = New SqlClient.SqlDataAdapter
>
> MyCommand = New SqlClient.SqlCommand("Sp_UsrSelect", Cn)
>
> MyCommand.CommandType = CommandType.StoredProcedure
>
> Dim Prm As New SqlClient.SqlParameter("@CodUsuario", SqlDbType.Char, 15)
>
> Prm.Direction = ParameterDirection.Input
>
> Prm.Value = CBoUser.SelectedValue
>
> MyCommand.Parameters.Add(Prm)
>
> Dim Dr As SqlClient.SqlDataReader = MyCommand.ExecuteReader
>
> If Dr.HasRows = True Then
>
> 'hay registro
>
> If Trim(Dr.Item("USR_PASSW")) = Trim(txtPassword.Text) Then '''' EN
LA
> PARTE DE AUI ME MUESTRA EL ERROR CUANDO LLEGO A ESTA PARTE DE EJECUCION
>
> TextBox1.Text = Dr.Item("USR_PASSW")
>
> End If
>
> MessageBox.Show("ingrespp")
>
> Dr.Close()
>
> Else
>
> MessageBox.Show("no ingreso")
>
> End If
>
> Dr.Close()
>
> Else
>
> End If
>
>