Agregar registros a combo

[spiderman78]

que tal como estan, de nuevo aqui con una consulta, les comento mi problema es que tengo una tabla con un campo llamado codigo, aqui el problema q tengo es q en ese campo tengo varios registros con el numero 1 o con el numero 300, etc, entonces al momento q agrego ese campo a mi combo pues me muetra los 10 codigos 1 o los 3 codigos 4 ya sea el caso, y lo q trato de hacer es q si encuentra 10 codigos 1 o 20 codigos 5 solo me muestre 1 es de cir solo me muestre q tengo codigo 1 o codigo 5 o codigo 10, etc etc......... espero habrme explicado optimamente, de antemano gracias por la ayuda

saludos

[boluart]

probaste hacerle un distinct a tu consulta?

[spiderman78]

Iniciado por boluart

probaste hacerle un distinct a tu consulta?

no la verdad no se como hacerlo ...........

este es el codigo q utilizo para agregar los campos al combo

Código:

Private Sub Agregar_Combo_Codigos()
    Call VisualizarPresupuestos
    If presupuestos.BOF = True Or presupuestos.EOF = True Then
    Exit Sub
    Else
        With presupuestos
            codigo.Clear
            .MoveFirst
        Do Until .EOF
            codigo.AddItem .Fields(3)
            codigo.ItemData(codigo.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
    End If
End Sub

Gracias
saludos

[David]

En la consulta SQL:

Código sql:

SELECT DISTINCT campo FROM Tabla
 

[spiderman78]

Iniciado por David el Grande

En la consulta SQL:

Código sql:

SELECT DISTINCT campo FROM Tabla
 

gracias por la respuesta, mira ya modifique mi codihgo de esta manrea pero me marca error

3265- no se encontro el elemento en la coleccion que corresponde con el nombre o el ordinal pedido

Código:

Private Sub Agregar_Combo_Codigos()
    Call ConsultaCodigos
    If codigos.BOF = True Or codigos.EOF = True Then
    Exit Sub
    Else
        With codigos
            codigo.Clear
            .MoveFirst
        Do Until .EOF
            codigo.AddItem .Fields(3)----------------------------------> error
            codigo.ItemData(codigo.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
    End If
End Sub

Private Sub ConsultaCodigos()
    Dim sql As String, cadena As String, cadena1 As String
    Call VisualizarCodigos
        sql = "SELECT DISTINCT codigo FROM tblcodigo "
    Set codigos = New ADODB.Recordset
        codigos.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub

no se si haciendo la consulta de esta manera y llamandola en el combo tenga q agregar asi todos los datos o q este haciendo mal .......


saludos y gracias por la ayuda

[David]

Es que en ese caso hay un sólo Field. Por lo que el índice 3 no existe.

[Sergestux]

En ese caso es mejor usar GROUP BY.

Código sqL:

SELECT codigo FROM tblcodigo GROUP BY codigo
 

[spiderman78]

Iniciado por David el Grande

Es que en ese caso hay un sólo Field. Por lo que el índice 3 no existe.

Bueno tengo varios campos en esa tabla y el del codigo es el numero 3, es mas antes de realizar la consulta me funciona es decir no me marca ningun error a escepcion de q vuelvo a mi problema anterio q es q me pone todos los campos es decir todos los 1 o todos los 20 etc, etc

Iniciado por Sergestux

En ese caso es mejor usar GROUP BY.

Código sqL:

SELECT codigo FROM tblcodigo GROUP BY codigo
 

ya agregue el GROUP BY codigo pero sigue marcandome el mismo error


saludos y gracias por la ayuda

[David]

Es que aunque tengas varios campos en la tabla, en la consulta SQL sólo recuperas un campo, por lo que el resto de campos no estará disponible y te marcará error.

[Sergestux]

Código sql:

SELECT Campo1, Campo2, codigo FROM tblcodigo GROUP BY Campo1, Campo2, codigo
 

O tambien puedes cambiar el codigo de visual basic a codigo.AddItem.Fields(1) en caso de que solo traigas un campo

[the_k]

El error está en que quizás antes realizabas la consulta seleccionando todos los campos, por eso te aceptaba el field(3), que era la posiciñon de ese campo, pero al realizar la ocnsulta con un distinct campo, sólo abrá 1 campo de salida, por lo que el fields no será igual a 3.
Prueba poniendo el nombre del campo, en vez de la posición

codigo.AddItem codigos!codigo

Saludos

[spiderman78]

Iniciado por David el Grande

Es que aunque tengas varios campos en la tabla, en la consulta SQL sólo recuperas un campo, por lo que el resto de campos no estará disponible y te marcará error.

Iniciado por the_k

El error está en que quizás antes realizabas la consulta seleccionando todos los campos, por eso te aceptaba el field(3), que era la posiciñon de ese campo, pero al realizar la ocnsulta con un distinct campo, sólo abrá 1 campo de salida, por lo que el fields no será igual a 3.
Prueba poniendo el nombre del campo, en vez de la posición

codigo.AddItem codigos!codigo

Saludos

Muchas gracias por la ayuda, bueno primero David gracias por orientarme q a tenia q hacer una consulta con el Distinct, y The_k gracias efectivamente lo q me faltaba era poner el nombre del campo y ya me fucniono perfectamente bien y solo me muestra 1 registro de cada uno............ problema resuleto

saludos y gracias de nuevo por la ayuda