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 originallogin.SQL = "SELECT COUNT(cod_r) FROM solicitar "
login.rst.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
login.est = True
X = login.rst.Fields(0)
login.SQL = "SELECT DISTINCT * FROM solicitar "
login.rst.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
login.est = True
Combo4.Clear
Combo5.Clear
Combo6.Clear
Combo7.Clear
Combo4.AddItem ""
Combo5.AddItem ""
Combo6.AddItem ""
Combo7.AddItem ""
For I = 0 To X - 1
login.cod_r = login.rst.Fields("cod_r")
login.cod_f = login.rst.Fields("cod_f")
Combo4.AddItem login.rst("cod_r")
login.rst.MoveNext
login.SQL = "SELECT DISTINCT * FROM funcionario where cod_f ='" & login.cod_f & "' "
login.rst1.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
Combo5.AddItem login.rst1("sucursal")
Combo6.AddItem login.rst1("depto")
Combo7.AddItem login.rst1("nombre")
login.rst1.Close
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