Uso de OleDbDataReader para consultar datos

[MauSan]

Tengan muy buenas.

Quisiera pedirles su ayuda con el siguiente codigo.

Lo que estoy tratando de hacer es leer una base de datos de access y mostrar los resultados en una ventana tipo formulario...


Dim Coneccion As String = ("PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & Path_Padron)

Dim oAccessConn As New OleDbConnection(Coneccion)

oAccessConn.Open()

Dim oCmdSelect As New OleDbCommand("SELECT * FROM Nacional WHERE Cedula = @TextBox1"", oAccessConn)



' En esta parte me detiene el compilador y me da el siguiente error:
' "No se han especificado valores para algunos de los parámetros requeridos."
Dim oReader As OleDbDataReader = oCmdSelect.ExecuteReader()



If oReader.Read() Then

MsgBox("Encontrado.")

Else

MsgBox("No encontrado.")

End If


Les agradeceria mucho su ayuda, gracias.

[Eduval]

Iniciado por MauSan

Tengan muy buenas.

Quisiera pedirles su ayuda con el siguiente codigo.

Lo que estoy tratando de hacer es leer una base de datos de access y mostrar los resultados en una ventana tipo formulario...


Dim Coneccion As String = ("PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & Path_Padron)

Dim oAccessConn As New OleDbConnection(Coneccion)

oAccessConn.Open()

Dim oCmdSelect As New OleDbCommand("SELECT * FROM Nacional WHERE Cedula = @TextBox1"", oAccessConn)



' En esta parte me detiene el compilador y me da el siguiente error:
' "No se han especificado valores para algunos de los parámetros requeridos."
Dim oReader As OleDbDataReader = oCmdSelect.ExecuteReader()



If oReader.Read() Then

MsgBox("Encontrado.")

Else

MsgBox("No encontrado.")

End If


Les agradeceria mucho su ayuda, gracias.

Hola Mau San , el mensaje de error que te da te lo dice todo , te falta pasarle un parametro ya que cuando creas el oldbcomand :

Dim oCmdSelect As New OleDbCommand("SELECT * FROM Nacional WHERE Cedula = @TextBox1"", oAccessConn)

Le estas pidiendo que te devuelva todo de la tabla nacional where cedula sea igual a textbox1 , texbox1 es un parametro que le tienes que pasar , antes de hacer el oCmdSelect.ExecuteReader()

Prueba a poner :

oCmdSelect.Parameters.AddWithValue("TextBox1", valor_que_quieres_que_tenga_texbox1)

despues de esto ya puedes hacer el executeReader