enlazar dos combos desde base de datos
Publicado por Felipe Gomez (2 intervenciones) el 09/07/2007 22:25:32
Hola quisiera que me ayudaran...tengo dos combos,,en el primero traigo todas las regiones y al seleccionar una region esta me carge las ciudades respectivas en otro combo..todos los datos estan en base access..yo cargo el primer comboo de las regiones de esta forma..
'Consulta a tabla parametros carga regiones en combo box.
Sub carga_region()
'Limpiar combo
CmbRegion.Clear
'Abrir la conexion al servidor
conecta_rcs_servidor
'Realizar consulta
sql = "SELECT descripcion FROM parametros where codigo = 42"
(el codigo 42 corresponde a las regiones)
rcs.Open sql, oCon
'Asignar los nombres de los campos al combo
Do While Not rcs.EOF
CmbRegion.AddItem rcs![descripcion]
rcs.MoveNext
Loop
'Inicializar combo con primer valor
CmbRegion.ListIndex = 0
'Cerrar el recordset y la conexión
desconecta_rcs_servidor
End Sub
,,,,ahora deseo que en otro combo me traiga regiones de la ciudad
si tiene otro ejemplo de como se los agradeceria muchisimo...
'Consulta a tabla parametros carga regiones en combo box.
Sub carga_region()
'Limpiar combo
CmbRegion.Clear
'Abrir la conexion al servidor
conecta_rcs_servidor
'Realizar consulta
sql = "SELECT descripcion FROM parametros where codigo = 42"
(el codigo 42 corresponde a las regiones)
rcs.Open sql, oCon
'Asignar los nombres de los campos al combo
Do While Not rcs.EOF
CmbRegion.AddItem rcs![descripcion]
rcs.MoveNext
Loop
'Inicializar combo con primer valor
CmbRegion.ListIndex = 0
'Cerrar el recordset y la conexión
desconecta_rcs_servidor
End Sub
,,,,ahora deseo que en otro combo me traiga regiones de la ciudad
si tiene otro ejemplo de como se los agradeceria muchisimo...
Valora esta pregunta


0