04/06/2008, 10:47
|
| | | Fecha de Ingreso: mayo-2003 Ubicación: Concepción
Mensajes: 80
Antigüedad: 21 años Puntos: 0 | |
| colocar registros en un lisbox
hola de nuevo necesito colocar registros de una bd en dos listbox ej:
id | nombre | fecha | materia
2 | pepe | 2/5/08| quimica
2 | pepe |3/5/08 | lenguaj.
2 | pepe |3/5/08 | cast.
3 | toto |2/6/08 | fisica
el codigo que utilizo es este me funciona si pregunto por el id=2 me arroja 3 registros pero me imprime siempre los datos de la primera linea es decir se repite 3 veces pepe 2/5/08 Quimica siendo que deberia ser distintos, me conecto a una bd acces.
desde ya gracias
Private Sub rut_per_keypress(KeyAscii As Integer)
Data1.Refresh
tb.MoveFirst
Do While Not tb.EOF
If tb!id= id.Text Then
Text2.Text = Data1.Recordset.Fields(1).Value
Text3.Text = Data1.Recordset.Fields(2).Value
Text4.Text = Data1.Recordset.Fields(5).Value
List1.AddItem Data1.Recordset.Fields(3).Value
List2.AddItem Data1.Recordset.Fields(4).Value
End If
tb.MoveNext
Data1.Refresh
Loop
End Sub
__________________
deep |