Hacer una consulta y mostrar los resultados en un ListBox
Visual Basic .NET

Muchas veces cuando realizemos una consulta no vamos a querer mostrar los resultados en un DataGrid, en cambio vamos a querer mostrar los resultados en otro tipo de componentes, por ejemplo un ListBox. Por lo tanto hoy veremos como mostrar los resultados en en un ListBox. COmo siempre vamos a ver el código completo:

[highlight=vb.net]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

conexion = New MySqlConnection()
conexion.ConnectionString = "server=" & servidor & ";" & "user id=" & usuario & ";" & "password=" & pswd & ";" & "database=" & nombre_conexion & ";"
conexion.Open()

Dim consulta As String
Dim comando As MySqlCommand
Dim reader As MySqlDataReader = Nothing

comando = New MySqlCommand
consulta = "SELECT nombres FROM visitantes WHERE cedula = " & "'" & TextBox1.Text & "';"
Try
comando.CommandText = consulta
comando.CommandType = CommandType.Text
comando.Connection = conexion

reader = comando.ExecuteReader()
ListBox1.Items.Clear()
While reader.Read()
ListBox1.Items.Add(reader(0))
End While
Catch ex As MySqlException
MessageBox.Show("No se ha podido realizarla consulta.")
End Try
reader.Close()[/highlight]

Pasaré a la parte importante, ya que casi todo el código mostrado son cosas básicas que ya de por sí doy por hecho que el lector ya las sabe. Entonces tenemos:

[highlight=vb.net] reader = comando.ExecuteReader()
ListBox1.Items.Clear()
While reader.Read()
ListBox1.Items.Add(reader(0))
End While[/highlight]

Como la variable comando es la que contiene toda la consulta, eso lo vamos a meter todo en un solo reader y lo ejecutaremos con Execute.Reader(). Luego haremos un bucle para que muestre los resultados y por ultimo añadimos:

Objeto.Item.función --> en este caso la función es añadir, ¿pero que añadiremos? fácil lo que haya en la variable reader(0) en la posición por la que pase el bucle while.