Inicio > Visual Basic > ralvaradot > Combo dependiente desde access

Combo dependiente desde access

Experto:
Usuario:
Fecha: 08/11/2009
Valoración: (5,00 sobre 5) Categoría: Visual Basic
26/10/2009
adrian105, usuario preguntando en Visual Basic
Usuario
Buenos dias, quisiera que me colaboraras con lo siguiente, tengo tres combos y lo que quiero hacer es que me queden dependientes,,las tres tablas estan en access..seria algo asi.
en el combo1 tengo el listado REMISION,TERAPIA,IMAGENES DX,ESPECIALISTA,  si esgojo la opcion IMAGNES DX EN EL COMBO 1,,,en el combo2 me aparezca RAYOSX,ECOGRAFIA,TAC si escojo en el combo2 RAYOSX,,,en el combo3 me aparezca RADIOGRAFIA DE MANO,RADIOGRAFIA DE RODILLA,RADIOGRAFIA DE CRANE,,,
Agradezco la colaboracion.
 
 
28/10/2009
adrian105, experto respondiendo en Visual Basic
Experto
Hola
Cargas elprimer combo, en el evento click de este combo llenas el segundo de acuerdo a lo seleccionado en el primer combo, esto es de acuerdo al codigo seleccionado, haces la consulta a la base de datos y filtras los datos para llenar el segundo combo.
Luego en le segundo combo en el evento click al seleccionar un item, haces la consulta a la base de datos para llenar el tercer combo.
SAludos,
 
28/10/2009
adrian105, usuario preguntando en Visual Basic
Usuario
Tengo el siguiente codigo, para cargarlos datos en un combo1..Ahora hize una consulta y tengo los datos que tengo en una sola tabla con las columnas...  Tipo servicio,Servicios ,Detalles...Ahora la cuestion seria..Combo1 escojo servicio...
el combo2 depende del tipo de servicio del combo1, y el combo 3 detalles depende del servicio que scogi en el combo2.  ej:combo1 escogi RADIOLOGIA, EN EL COMBO2 SE CARGARIAN,,,RAYOSX,ECOGRAFIA,TAC..DEL COMBO2 ESCOGERIA RAYOS X...EN EL COMBO3 SE ME CARGARIAN LOS DETALLES DE RADIOGRAFIAS,,RADIOGRAFIA MANO,RADIOGRAFIA PIE ETC...
Como haria con la tabla consulta para para traer las tres columnas dependiente una de otra.
Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rayosx = New ADODB.Recordset
' suponemos que la BD está en el mismo directorio que la aplicación
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Historias.mdb"
rayosx.CursorLocation = adUseClient
rayosx.Open "SELECT * FROM RayosX", BD, adOpenStatic, adLockOptimistic
 
With rayosx
Do Until .EOF
' suponemos que la columna a cargar es la primera
Combo1.AddItem .Fields(1)
.MoveNext
    Loop
End With
End Sub
 
02/11/2009
adrian105, experto respondiendo en Visual Basic
Experto
Hola
Con ese codigo estas llenando el combo
Hay un evento Click del combo que es cuando seleccionan un item de la lista, en este evento, revisas cual seleccionaron y de acuerdo a eso haces la consulta a la base de datos y llenas el segundo Combobox, igual con el tercero.
Saludos,
04/11/2009
adrian105, usuario preguntando en Visual Basic
Usuario
Gracia..si me pudieras escribir un ejemplo te lo agradezco,ya que mis conocimientos son escasos en visual basic..y pues necesito de ejemplos para guiarme..
07/11/2009
adrian105, experto respondiendo en Visual Basic
Experto
Hola
En el load cargo el combo1, luego en el evento click del combo1 lleno el combo 2
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "frutas"
Combo1.AddItem "verduras"
Combo2.Clear
End Sub
Private Sub Combo1_Click()
Select Case Me.Combo1.Text ' Aqui verifico que item seleccionaron del combo 1
Case "frutas":
Combo2.Clear
Combo2.AddItem "naranjas", 0
Combo2.AddItem "manzanas", 1
Case "verduras":
Combo2.Clear
Combo2.AddItem "brocolis", 0
Combo2.AddItem "coliflores", 1
End Select
End Sub
Saludos,
08/11/2009
adrian105, usuario preguntando en Visual Basic
Usuario
GRacias,,,ahora si lo pude hacer
Enlaces patrocinados