Consulta Base de Datos Para LLenar un ListBox

[Bazookao]

Hola de nuevo Molestando por este medio

Imaginemos que tenemos una BD creada en Acces 2007 con Una Tabla: tabla1
que tiene 4 campos(ID,campo1,campo2,campo3)

quisiera que cuando se cargue el formulario un control ListBox cargue los valores (o filas) que tiene campo1 para que de ahi pueda seleccionar un valor y apretando otro boton me muestre ID, campo1 ,campo2, campo3

mas o menos el segundo boton actuaria haci

Código VB:

Dim mitabla As New DataTable
        mitabla = DataSet11.Tables("Tabla1")
        Dim cfila As DataRowCollection
        cfila = mitabla.Rows
        Dim filaBuscada As DataRow()
        Dim NL As String
        NL = Environment.NewLine
        filaBuscada = mitabla.Select("Expr2 LIKE '*" + ListBox1.SelectedItem + "*'")
        If filaBuscada.GetUpperBound(0) = -1 Then
            MessageBox.Show("No se encontro", "Buscar")'Esto en teoria Nunca Debe Pasar XD
            Return
        End If
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        k = filaBuscada.GetUpperBound(0)
        For i = 0 To k
            If MessageBox.Show("Es este?" + Str(filaBuscada(i)(0)), "Buscar", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                For j = 0 To cfila.Count - 1
                    If cfila(j).Equals(filaBuscada(i)) Then
                        BindingContext(DataSet11, "tabla1").Position = j
                    End If
                Next
                Return
            End If
        Next
 

y sto pondria los campos y sus valores en unos componentes(label's) en el form (segun yo)

pero lo que me falta es en el Load para que se Carguen los valores de la ListBox

[Trulala de cordoba]

Si lo que queres hacer es mostrar el detalle de lo seleccionado en un listBox lo que tenes que hacer es en el botón que usar mostrar buscar los datos del registro. Para eso usuarias algo como una función Datos_Buscar(int.parse(listbox.SelectedValue))

donde por parametro le estas enviando el id de tu registro. Por lo tanto en tu función deberías hacer una consulta "select Tabla donde id = id_que_viene_por_parametro"
Luego esta función te devuelve los datos que necesitas en un dataset o datable o lo que quieras y lo mostrar en los labels.
Esa sería la idea. Cualquier cosa detalla un poco más lo que queres hacer o lo que necesitas y vemos como resolverlo.
Suerte.

[Bazookao]

hola
lo que quiero es alreves, quiero meter datos a la listbox(sacarlos maso menos tengo la idea)
esos datos van a ser todos los regsitros de una columna de una tabla de una BD

[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 .-

[Bazookao]

muchisimas gracias me ha servido a la perfeccion

[xhinna]

Como puedo hacer para poder poner 2 listbox pero cada una se llena con consultas a tablas diferentes.??????


solo puedo poner uno pero el segundo ya no me permite realizarlo??


De antemano Gracias por su colaboracion.

[domanion]

has otro comando