Visual Basic.NET - Alguna idea de como pasar datos de una BD a un ListBox

 
Vista:
Imágen de perfil de Emmanuel
Val: 9
Ha disminuido su posición en 11 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Alguna idea de como pasar datos de una BD a un ListBox

Publicado por Emmanuel (6 intervenciones) el 03/06/2018 20:25:36
Uso Acces y VB . net 2010
Intento hacer que por medio de un comando de buscar me busque el nombre y los demás datos apellidos, dirección, etc. Se muestren en un listbox para posteriormente imprimirlo (Imprimir es lo de menos)
Alguna idea?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Emmanuel
Val: 9
Ha disminuido su posición en 11 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Alguna idea de como pasar datos de una BD a un ListBox

Publicado por Emmanuel (6 intervenciones) el 03/06/2018 22:23:22
Mi codigo:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
    Dim Comando As New OleDb.OleDbCommand("SELECT * FROM Usuarios WHERE [Código]= '" & CódigoTextBox.Text & "'", Conexion)
    Dim DataReader As OleDb.OleDbDataReader
    Me.Conexion.Open()
    DataReader = Comando.ExecuteReader()
    While DataReader.Read
        LboListaCompra.Items.Add(DataReader("Nombre"))
    End While
    DataReader.Close()
    Me.Conexion.Close()
End Sub
y en
1
DataReader = Comando.ExecuteReader()
sale un error "No coinciden los tipos de datos en la expresión de criterios." no tengo ni idea que mas puedo hacer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de gilman
Val: 222
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Alguna idea de como pasar datos de una BD a un ListBox

Publicado por gilman (70 intervenciones) el 04/06/2018 13:07:42
Código, ¿es un campo númerico?, si es así verifica que CódigoTextBox.Text sea también númerico y elimina los apóstrofos, en los campos númericos no son necesarios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Alguna idea de como pasar datos de una BD a un ListBox

Publicado por Cristian Saavedra (11 intervenciones) el 05/06/2018 18:52:49
Primero valida que dato esta ingresando en la consulta:
1
Dim Comando As New OleDb.OleDbCommand("SELECT * FROM Usuarios WHERE [Código]= '" & CódigoTextBox.Text & "'", Conexion)

ya que puede que estés pasando mal el dato.Ahora con respecto a lo que te devuelve tu consulta yo lo guardaria en un datareader y despues se lo paso a tu listbox o dropdownlist asi:

1
2
3
4
LboListaCompra.DataSource = DR -------> DataReader
LboListaCompra.DataTextField = "nombre"
LboListaCompra.DataValueField = "id"
LboListaCompra.DataBind()

Tambien lo podrias hacer de la siguiente manera:
1
2
3
While DataReader.Read
    LboListaCompra.Items.Add(newListItem(Server.HtmlDecode(DR.Item("nombre")), DR.Item("Id")) )
End While

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar