urente!! repeticion de datos combo

carnero · #1 (**permalink**) 14/06/2010, 00:40

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

Insomnia · #2 (**permalink**) 14/06/2010, 03:14

Hola

Mirandolo solo un poco por encima, me parece rara la SQL "SELECT DISTINCT *", si la tabla tiene más de un campo, al poner distinct * no se lo que te cogerá, porque no pruebas a poner el campo que quieres cargar en cada combo, de esa manera no se deverian de repetir los valores, es decir, algo como:

Cita:

SELECT DISTINCT nombre from...

--Saludos--

carnero · #3 (**permalink**) 14/06/2010, 08:46

EL PROBLEMA ES QUE LA 2ª CONSULTA SE HACE POR CADA "COD_r" QUE SE OBTIENE DE LA PRIMERA CONSULTA

ESPERO SE ENTIENDA

-rommel_ · #4 (**permalink**) 14/06/2010, 09:53

Pues... llena el Primer Combo con el Dato que quieres llenar y el segudno Combo con los datos... pero extrayendo datos del primer Combo... el primer combo ni siquiera lo muestres solo para que te almacene los datos... para llenar el 2do haz un FOR del priemro combo y listo ya tienes tu consulta...

lokoman · #5 (**permalink**) 14/06/2010, 10:28

Saludos!!!

Yo lo haria asi:

En el evento Load

Código vb:

Ver original'LIMPIAMOS LOS COMBOS
Combo4.Clear
Combo5.Clear
Combo6.Clear
Combo7.Clear
 
'CONECTAMOS EL QUERY
strSQL = "SELECT DISTINCT COD_R FROM SOLICITAR "
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
'CARGAMOS EL COMBO 4
if rsLogin.eof=false then
do while not rsLogin.eof = true
Combo4.AddItem rsLogin!COD_R
rsLogin.movenext
loop
end if

Ahora para cargar los demas combos, en el evento CLICK del COMBO 4:

Código vb:

Ver originalstrSQL = "SELECT *  from funcionario where COD_R  ='" & COMBO4.TEXT & "'"
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
                                    
Combo5.AddItem srLogin!sucursal
Combo6.AddItem srLogin!depto
Combo7.AddItem srLogin!nombre

NOTA: en tu codigo la segunda consulta es con el campo: "COD_F ", el COMBO 4 lo cargas con el campo: "COD_R", son campos distintos... si la consulta va con el campo: "COD_F":

Código vb:

Ver original'PRIMERO OBTENEMOS EL CAMPO "COD_F" CORRESPONDIENTE AL REGISTRO SELECCIONADO
strSQL = "SELECT DISTINCT COD_F FROM SOLICITAR WHERE COD_R='" & COMBO4.TEXT & "'"
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
if rsLogin.eof=false then
strSQL = "SELECT *  from funcionario where COD_F  ='" & rsLogin!COD_F & "'"
rsLogin1.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
if rsLogin1.eof=false then
do hile not rsLogin1.eof=true                                    
Combo5.AddItem rsLogin1!sucursal
Combo6.AddItem rsLogin1!depto
Combo7.AddItem rsLogin1!nombre
rsLogin1.movenext
loop
end if

Prueba a ver!!!

carnero · #6 (**permalink**) 14/06/2010, 14:40

esque el usuario puede usar solo el combo 7 por ejemplo, sin tocar el resto de los combos, voy a probar igual gracias, son filtros

gasafonso · #7 (**permalink**) 14/06/2010, 16:59

Yo tengo el mismo problema solo que lo hice con recordset

alguien me sabe decir como hacer para que no se repitan los nombres en el combobox?

Código vb:

Ver originalWhile Not dsArticulos.Recordset.EOF
            CboLaboratorio.AddItem (dsArticulos.Recordset!laboratorio)
      dsArticulos.Recordset.MoveNext
Wend

graciassss

-rommel_ · #8 (**permalink**) 15/06/2010, 08:08

ya me confundieron... la solucion! es la consulta... que otro limitante podria haber? puedes mostrarnos graficamente cual es tu problema en realidad???... y como quisieras que trabaje??? Saludos

lokoman · #9 (**permalink**) 16/06/2010, 07:41

Estoy de acuerdo con -Rommel-... que es lo que quieres presentar al usuario?

Sergestux · #10 (**permalink**) 16/06/2010, 07:58

Cita:

Iniciado por gasafonso

Yo tengo el mismo problema solo que lo hice con recordset

alguien me sabe decir como hacer para que no se repitan los nombres en el combobox?

Código vb:

Ver originalWhile Not dsArticulos.Recordset.EOF
            CboLaboratorio.AddItem (dsArticulos.Recordset!laboratorio)
      dsArticulos.Recordset.MoveNext
Wend

graciassss

Mi estimado lo tienes facil, para llegar a este punto, tuviste que hacer una consulta SQL, haz lo que te estan diciendo los colegas. Si no deseas que se repitan los datos usa la clausula DISTINCT y/o GROUP BY

gasafonso · #11 (**permalink**) 16/06/2010, 17:25

pero no se como hacerlo, por que yo no se cual "laboratorio" va a estar repetido

garcias

Sergestux · #12 (**permalink**) 17/06/2010, 07:45

Antes de llegar a ese codigo que pones, pusiste una sentencia SQL verdad? Si es asi es ahi donde debes usar la clausula DISTINCT

gasafonso · #13 (**permalink**) 17/06/2010, 17:34

No , no tengo una SQL lo tengo con un control DATA

hunter18 · #14 (**permalink**) 17/06/2010, 19:07

gasafonso
Entonces cambia la consulta que pusiste dentro de tu control data, busca en las propiedades de tu control data en una de ellas esta tu consulta

gasafonso · #15 (**permalink**) 20/06/2010, 13:32

con eso carga todos los datos del data.recordset.field

NO HAY NINGUNA SQL !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

lokoman · #16 (**permalink**) 21/06/2010, 09:59

gasafonso:
Que tienes en el RecordSource de tu control?

gasafonso · #17 (**permalink**) 21/06/2010, 15:50

el nombre de la tabla TbArticulos tengo en el recordsource del control "DATA"

-rommel_ · #18 (**permalink**) 22/06/2010, 13:17

En una pestaña de las propiedades de ese control DATA esta especificada la consulta que llena tu combo... esa consulta tienes que cambiarla... sino hay dentro de ese CONTROL... entonces esta dentro del codigo de tu proyecto...

gasafonso · #19 (**permalink**) 22/06/2010, 17:37

EYYYYY muchachosssssssss, NO TENGO NINGUNA S Q L !!!!!!!!!!!!!!!!!!!!!!!!!!!!

esta asociado a una campo de una tabla y trae todos los datos de ese campo

Insomnia · #20 (**permalink**) 23/06/2010, 01:25

Hola

En lugar de asociarlo a una tabla, asócialo a una consulta SQL, en la propiedad CommandType selecciona adcmunknown y en el RecordSource pones la Sentencia Select que quieras.

--Saludos--

-rommel_ · #21 (**permalink**) 23/06/2010, 10:30

ok ok...
hubieras empezado por decir eso... entonces todos los elementos de tu COMBO.. metelo a una lista... y ahi haz el algoritmo de busqeuda y eliminacion de repetidos... luego que eliminas los repetidos... limpias tu control COMBO y de ahi agregas 1 por 1 los elementos de tu Lista a tu COmbo... si queires te ayudamos con el algoritmos pero creo que eso si lo puedes hacer tu...

algo asi???.. puedes manipular tu COMBO verdad???

lokoman · #22 (**permalink**) 23/06/2010, 18:02

Cita:

Iniciado por gasafonso

No , no tengo una SQL lo tengo con un control DATA

Utiliza el control ADO DATA CONTROL, es mas versatil que el DATA.

gasafonso · #23 (**permalink**) 25/06/2010, 17:30

Cita:

Iniciado por -rommel_

ok ok...
hubieras empezado por decir eso... entonces todos los elementos de tu COMBO.. metelo a una lista... y ahi haz el algoritmo de busqeuda y eliminacion de repetidos... luego que eliminas los repetidos... limpias tu control COMBO y de ahi agregas 1 por 1 los elementos de tu Lista a tu COmbo... si queires te ayudamos con el algoritmos pero creo que eso si lo puedes hacer tu...

algo asi???.. puedes manipular tu COMBO verdad???

y esto como se hace ?

yo no tengo ni idea

gracias

Sergestux · #24 (**permalink**) 26/06/2010, 08:37

para hacer lo que deseas, se me ocurre algo que no es optimo pero al menos funcionaria.

Código vb:

Ver originalWhile Not dsArticulos.Recordset.EOF
                  if  (ItemRepetido(dsArticulos.Recordset!laboratorio))
                    CboLaboratorio.AddItem (dsArticulos.Recordset!laboratorio)
            dsArticulos.Recordset.MoveNext
      Wend
 
 
 
private sub ItemRepetido(laboratorio) boolean
{
...
      CONT=0;
      While Not dsArticulos.Recordset.EOF
                  if (dsArticulos.Recordset!laboratorio == laboratorio)
                      CONT=CONT+1;
            dsArticulos.Recordset.MoveNext
      Wend
 
     if (CONT>1)
        ItemRepetido=false;
     else
        ItemRepetido=true;
}

Es un tipo de pseudocodigo que la verdad ya no se ni en que lenguaje lo puse

-rommel_ · #25 (**permalink**) 28/06/2010, 08:24

jejej... pues en realidad... yo tampoco se que en que Leng... pero si tiene logica... lo caso es que CARNERo lo pueda probar...
La logica es: "Recorrer uno x uno el Recordet del COMBO1, y coger el dato... Para ese dato recorrer de Nuevo el Recordset del COMBO1 preguntando si cada dato del Segundo Recordset es igual al Dato del primer recordset... si hasta el final del recordet es falso... entonces en el primer recordset se adiciona al combo el Dato tomado al inicio"... NO SE SI ME ENTIENDEN jajaja..

Sergestux · #26 (**permalink**) 28/06/2010, 09:31

yo si te entiendo

, espero que alguien lo pase a visual basic o el mismo gasafonso en caso de que lo haga, postee la solucion

gasafonso · #27 (**permalink**) 30/06/2010, 10:21

intente pasarlo a V b 6 pero no , estoy enredado

POR FAVOR AYUDAAAAAAAAAAAAAAAAAAAAAAA

Insomnia · #28 (**permalink**) 01/07/2010, 01:18

Hola

Carga el control con una select en lugar de con una tabla, en la select incluye la clausula DISTINCT para que no repita valores y luego carga el combo. Lo puedes hacer desde código de la siguiente forma:

Código vb:

Ver originalPrivate Sub Form_Load()
 
    Dim comando As String
    
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba.mdb;Persist Security Info=False"
    comando = "select DISTINCT(nombre) from Datos"
    Adodc1.CommandType = adCmdUnknown
    Adodc1.RecordSource = comando
    Adodc1.Refresh
    
    While not Adodc1.EOF
       combo1.additem adodc1.Recordset.Fields(0)
       adodc1.Recordset.MoveNext
    Wend
End Sub

P.D.: En el ejemplo utilizo un control ADODC en lugar del DATA

--Saludos--

gasafonso · #29 (**permalink**) 01/07/2010, 17:58

Sos groso Insomnia !!!!!!!!!!!!!!!!!!

Para hacerlo con un data solo debo reeemplazar el adbc por el data no ?

Insomnia · #30 (**permalink**) 02/07/2010, 02:09

Hola

No si será exactamente lo mismo, es decir, no si si comparten las mismas propiedades, pero la idea es esa. De todas formas y si me permites un pequeño consejo te recomiendo sustituir toda la tecnologia DAO (que ha quedado obsoleta) por el ADO, que supongo que también estará obsoleta si lo comparamos con .NET, pero creo que es lo último que quedo en acceso a bd en VB6 .

--Saludos--