como puedo hacer para que un combobox dependa de otro?????

[juancho24]

hola amigos del foro, me podrian ayudar a hacer lo siguiente:

miren tengo dos combobox, quiero que uno contenga las regiones de Chile, y el otro las cuidades(si no entienden eso, es como continentes y paises), necesito que al escoger una region del primer combobox, me muestre en el 2ºcombobox las ciudades relacionadas a esa region, porfavor espero que me hallan entendido

no se como hacerlo, si usar una tabla para esto u otra cosa, ayudenme porfavor

esto es con "ADO" en visual 6 con access 2000

gracias

saludos

[KATRICH]

hola,
tomas los datos de la base de datos o ingresas los datos directo a codigo?
si es en la base de datos como tienes las tablas 1 para regiones y otra tabla para ciudades?

[juancho24]

gracias por responder, pero la verdad no me quedo claro lo que debo hacer para relacionarla y haga lo que coloque en mi consulta,

gracias

saludos
FELIZ NAVIDAD!!!!

[extrem_bcn]

amigo juancho24, aun no te han dicho que hagas nada jejejeje solo te han preguntado si tienes la lista de Regiones y Ciudades en una Base de datos (en tablas) o si directamente las has escrito en el código del programa. Y si en caso de tenerlas en Tablas si las tienes separadas o no.

Sobre que has de hacer... yo lo que haria (no soy un experto) es:
- Cambiar la propiedad ENABLE del ComBox_Ciudades a FALSE
- Cargar todos los items en el ComBox_Regiones
- En el Evento Click del ComBox_Regiones filtrar los items del ComBox_Ciudades para que muestre solo las que quieres y luego poner la propiedad ENABLE a TRUE del ComBox_Ciudades

[juancho24]

Iniciado por extrem_bcn

amigo juancho24, aun no te han dicho que hagas nada jejejeje solo te han preguntado si tienes la lista de Regiones y Ciudades en una Base de datos (en tablas) o si directamente las has escrito en el código del programa. Y si en caso de tenerlas en Tablas si las tienes separadas o no.

Sobre que has de hacer... yo lo que haria (no soy un experto) es:
- Cambiar la propiedad ENABLE del ComBox_Ciudades a FALSE
- Cargar todos los items en el ComBox_Regiones
- En el Evento Click del ComBox_Regiones filtrar los items del ComBox_Ciudades para que muestre solo las que quieres y luego poner la propiedad ENABLE a TRUE del ComBox_Ciudades

Gracias por responder extrem_bcn, ok creo que te entendi, pero me queda una duda, ¿como filtro un combobox?, no se como hacerlo con un if preguntar que item se ah seleccionado,

porfavor ayudame

gracias

saludos

[extrem_bcn]

para hacer la selección de las ciudades (para el combo que depende de las Regiones) deberias de hacer la sentencia SQL (para que se llene el combo de las ciudades) con la región que ha seleccionado el usuario, entonces quedaria así:

una vez el usuario haya seleccionado una Región (por ejemplo: machupichu) deben de aparecer todas las ciudades de "machupichu" en el otro Combo:

la senteica SQL seria:

"Select * FROM TablaDondeTienesLasCiudades WHERE CampoRelacionadoConLaRegion = '" & " & combo1.text & "';"

Esto lo haria en el Evento CLICK del Combo1.

Creo que no me he explicado muy bien. Seria importante que dijeras donde has guardado los registros y como!

Feliz Navidad.

[juancho24]

Iniciado por extrem_bcn

para hacer la selección de las ciudades (para el combo que depende de las Regiones) deberias de hacer la sentencia SQL (para que se llene el combo de las ciudades) con la región que ha seleccionado el usuario, entonces quedaria así:

una vez el usuario haya seleccionado una Región (por ejemplo: machupichu) deben de aparecer todas las ciudades de "machupichu" en el otro Combo:

la senteica SQL seria:

"Select * FROM TablaDondeTienesLasCiudades WHERE CampoRelacionadoConLaRegion = '" & " & combo1.text & "';"

Esto lo haria en el Evento CLICK del Combo1.

Creo que no me he explicado muy bien. Seria importante que dijeras donde has guardado los registros y como!

Feliz Navidad.

hola amigo

no eh logrado aun sacar este problema, mira a ver si me ayudas, tengo una tabla con campos que son las regiones (por ejemplo: I Region de Trapaca) y a cada uno de esos campos le agregue registros, que son las ciudades correspondientes a cada region (por ejemplo a la I Region de Tarapaca, le ingrese como registros sus ciudades que son: Arica, Iquique y Parinacota)

mi idea es que en el primer combobox lleno la lista manualmente con los mismos campos de la tabla, y que si es k se puede comparar la opcion seleccionada en el primer combobox con los campos de la tabla y que me despliegue en el segundo combobox los registros del campo seleccionado, es decir si se selecciono en el primer combobox la opcion de "I Region de Tarapaca", me muestre en el segundo la lista (sacados de la tabla) los registro "Arica,Iquique y Parinacota,

Ojala me puedan ayudar mas, la verdad no se como hacerlo

gracias por la ayuda

Feliz año 2008

saludos

[Lalybs]

Iniciado por juancho24

hola amigo

no eh logrado aun sacar este problema, mira a ver si me ayudas, tengo una tabla con campos que son las regiones (por ejemplo: I Region de Trapaca) y a cada uno de esos campos le agregue registros, que son las ciudades correspondientes a cada region (por ejemplo a la I Region de Tarapaca, le ingrese como registros sus ciudades que son: Arica, Iquique y Parinacota)

mi idea es que en el primer combobox lleno la lista manualmente con los mismos campos de la tabla, y que si es k se puede comparar la opcion seleccionada en el primer combobox con los campos de la tabla y que me despliegue en el segundo combobox los registros del campo seleccionado, es decir si se selecciono en el primer combobox la opcion de "I Region de Tarapaca", me muestre en el segundo la lista (sacados de la tabla) los registro "Arica,Iquique y Parinacota,

Ojala me puedan ayudar mas, la verdad no se como hacerlo

gracias por la ayuda

Feliz año 2008

saludos

[Lalybs]

Buenas tardes, espero que hayas podido solucionar tu problema porq me encuentro en la misma situación.
tengo dos tablas a las llamo t1: Puestos; t2: cajas y lo que necesito es filtrar desde un combo2 las cajas de un puesto determinado y seleccionado del combo1.. para lo cual eh utilizado el siguiente código..

Para cargar los combos:

Dim ry As New ADODB.Recordset
ry.Open "Select * From puestos", con, adOpenKeyset, adLockOptimistic, adCmdText
Do Until ry.EOF()
Combo1.AddItem ry!denominacion
ry.MoveNext
Loop
ry.Close
Dim rs As New ADODB.Recordset

rs.Open "select * from cajas ", con, adOpenKeyset, adLockOptimistic, adCmdText
Do Until rs.EOF()
Combo2.AddItem rs!denominacion
rs.MoveNext
Loop
y para filtrar

sql = "SELECT puestos.denominacion, cajas.denominacion FROM cajas INNER JOIN puestos ON cajas.id= puestos.id Where puestos.id = " & Combo1.Text
ra.Open sql, con, adOpenKeyset, adLockOptimistic
If Not (ra.EOF And ra.BOF) Then
Combo2 = ra!denominacion

Combo2.SetFocus
ra.Update
ra.Close
End If
pero no me funciona, si alguien puede ayudarme por favor... desde ya muchas gracias! Saludos

[Avellaneda]

Iniciado por Lalybs

Buenas tardes, espero que hayas podido solucionar tu problema porq me encuentro en la misma situación.
tengo dos tablas a las llamo t1: Puestos; t2: cajas y lo que necesito es filtrar desde un combo2 las cajas de un puesto determinado y seleccionado del combo1.. para lo cual eh utilizado el siguiente código..

pero no me funciona, si alguien puede ayudarme por favor... desde ya muchas gracias! Saludos

Hola, lo puedes hacer de esta manera:
En el primer combo cargamos el campo denominacion de la tabla puestos y en la propiedad ItemData el id del mismo campo

Código:

Private Sub Form_Load()
Dim ry As New ADODB.Recordset
ry.Open "Select * From puestos", con, adOpenKeyset, adLockOptimistic, adCmdText
Do Until ry.EOF()
    Combo1.AddItem ry!denominacion
    Combo1.ItemData(Combo1.NewIndex) = ry!id
    ry.MoveNext
Loop
ry.Close
End Sub

y al seleccionar un elemento del combo, cargamos en el segundo los registros de la tabla cajas cuyo id coincida con el de la tabla anterior

Código:

Private Sub Combo1_Click()
Dim ra As New ADODB.Recordset
sql = "SELECT * FROM cajas WHERE id = " & Combo1.ItemData(Combo1.ListIndex)
ra.Open sql, con, adOpenKeyset, adLockOptimistic
Combo2.Clear
If Not (ra.EOF And ra.BOF) Then
    Do Until ra.EOF()
        Combo2.AddItem ra!denominacion
        ra.MoveNext
    Loop
    Combo2.SetFocus
End If
ra.Close
End Sub

[Lalybs]

Muy agradecida...el código funciona muy bien. Saludos y gracias nuevamente...

[Lalybs]

Hola otra vez.. me gustaria realizar una nueva consulta con respecto al combobox:
tengo un combo al que le cargo una descripción:

Dim re As New ADODB.Recordset
re.Open "select* from categorias", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not re.EOF
Combo3.AddItem re!categoria
re.MoveNext
Wend
y me gustaria que al seleccionar un items del combo me muestre el id en un textbox, lo eh probado con el siguiente código pero me da un error de parámetros..

Private Sub Combo3_click()
Dim ri As New ADODB.Recordset
ri.Open "select * from categorias Where categoria= " & Combo3, con, adOpenKeyset, adLockOptimistic, adCmdText
If Not (ri.EOF And ri.BOF) Then
Text6 = ri!idcategoria
editar = True
Text3.SetFocus
End If
ri.Close
End Sub

Ayuda...!!!!
Gracias,
Saludos.

[Avellaneda]

Iniciado por Lalybs

Hola otra vez.. me gustaria realizar una nueva consulta con respecto al combobox:
tengo un combo al que le cargo una descripción:

Dim re As New ADODB.Recordset
re.Open "select* from categorias", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not re.EOF
Combo3.AddItem re!categoria
re.MoveNext
Wend
y me gustaria que al seleccionar un items del combo me muestre el id en un textbox, lo eh probado con el siguiente código pero me da un error de parámetros..

Private Sub Combo3_click()
Dim ri As New ADODB.Recordset
ri.Open "select * from categorias Where categoria= " & Combo3, con, adOpenKeyset, adLockOptimistic, adCmdText
If Not (ri.EOF And ri.BOF) Then
Text6 = ri!idcategoria
editar = True
Text3.SetFocus
End If
ri.Close
End Sub

Ayuda...!!!!
Gracias,
Saludos.

El campo categoria es numérico?

Si no lo es, pon el valor entre comillas simples:

ri.Open "select * from categorias Where categoria= '" & Combo3 & "'", con, adOpenKeyset, adLockOptimistic, adCmdText

[Lalybs]

Gracias!!!!!