Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/06/2010, 00:40
carnero
 
Fecha de Ingreso: noviembre-2009
Mensajes: 315
Antigüedad: 15 años, 1 mes
Puntos: 0
Exclamación urente!! repeticion de datos combo

hola bueno tengo el siguiente problema, gracias al profesor tube que cambiar todas mis tabalas y ahora tengo los datos que antes tenia en 1 tabla en 2 o 3, la cosa esque lore hacer un codigo que llene los combos, pero si el nombre se repite este tambien lo repite en la lista del combo, eso es lo que quiero evitar y no se como.
gracias por la ayuda, el codigo:
Código vb:
Ver original
  1. login.SQL = "SELECT     COUNT(cod_r) FROM         solicitar "
  2. login.rst.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
  3. login.est = True
  4. X = login.rst.Fields(0)
  5. login.SQL = "SELECT DISTINCT * FROM solicitar "
  6. login.rst.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
  7. login.est = True
  8. Combo4.Clear
  9. Combo5.Clear
  10. Combo6.Clear
  11. Combo7.Clear
  12. Combo4.AddItem ""
  13. Combo5.AddItem ""
  14. Combo6.AddItem ""
  15. Combo7.AddItem ""
  16. For I = 0 To X - 1
  17.                  
  18. login.cod_r = login.rst.Fields("cod_r")
  19. login.cod_f = login.rst.Fields("cod_f")
  20. Combo4.AddItem login.rst("cod_r")
  21. login.rst.MoveNext
  22.                        
  23.                    
  24. login.SQL = "SELECT DISTINCT * FROM funcionario where cod_f ='" & login.cod_f & "'  "
  25. login.rst1.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
  26.                                    
  27. Combo5.AddItem login.rst1("sucursal")
  28. Combo6.AddItem login.rst1("depto")
  29. Combo7.AddItem login.rst1("nombre")
  30. login.rst1.Close
  31. Next

pd: si me pueden ayudar a mejor el codigo estaria muuuuuuy agradecido
pd2: tengo que llenar unos listbox con informacion igual como lo que intente con el codigo de arriba, si pueden ayudarme con eso tambien se los agradecerias