Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/04/2009, 11:47
Avatar de Bazookao
Bazookao
 
Fecha de Ingreso: diciembre-2008
Ubicación: Mexico
Mensajes: 139
Antigüedad: 16 años, 2 meses
Puntos: 1
Pregunta Consulta Base de Datos Para LLenar un ListBox

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:
Ver original
  1. Dim mitabla As New DataTable
  2.         mitabla = DataSet11.Tables("Tabla1")
  3.         Dim cfila As DataRowCollection
  4.         cfila = mitabla.Rows
  5.         Dim filaBuscada As DataRow()
  6.         Dim NL As String
  7.         NL = Environment.NewLine
  8.         filaBuscada = mitabla.Select("Expr2 LIKE '*" + ListBox1.SelectedItem + "*'")
  9.         If filaBuscada.GetUpperBound(0) = -1 Then
  10.             MessageBox.Show("No se encontro", "Buscar")'Esto en teoria Nunca Debe Pasar XD
  11.            Return
  12.         End If
  13.         Dim i As Integer
  14.         Dim j As Integer
  15.         Dim k As Integer
  16.         k = filaBuscada.GetUpperBound(0)
  17.         For i = 0 To k
  18.             If MessageBox.Show("Es este?" + Str(filaBuscada(i)(0)), "Buscar", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
  19.                 For j = 0 To cfila.Count - 1
  20.                     If cfila(j).Equals(filaBuscada(i)) Then
  21.                         BindingContext(DataSet11, "tabla1").Position = j
  22.                     End If
  23.                 Next
  24.                 Return
  25.             End If
  26.         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

Última edición por Bazookao; 10/04/2009 a las 11:48 Razón: Errores de ortografia