Consulta Base de Datos Para LLenar un ListBox

[lucasarts_18]

Hola:

Te dejo un ejemplo usando un DataReader, el ejemplo es para SQL Server, pero se puede pasar para access utilizando Oledb (ve la documentación, casi todos los comandos son similares a los expuesto en este ejemplo).

Este código lo puedes poner en el evento load del formulario como también puede ser un objeto botón.

Código:

'Crear conexión
      Dim oConexion As New SqlClient.SqlConnection
      oConexion.ConnectionString = "Server=(local);" & _
        "Database=Northwind;uid=sa;pwd=160783;"

      'Crear comando
      Dim oComando As New SqlClient.SqlCommand("select * from Employees", oConexion)

      'Crear DataReader
      Dim oDataReader As SqlClient.SqlDataReader
      oConexion.Open()
      oDataReader = oComando.ExecuteReader() 'obtiene un objeto datareader

      'recorrer filas
      While oDataReader.Read
         LstEmpleados.Items.Add(oDataReader("LastName"))
      End While

      oDataReader.Close()
      oConexion.Close()

Espero que te sirva u oriente.

Saludos .-