Cargar información en un combobox al seleccionar otro combobox
Publicado por Gustavo (1 intervención) el 23/01/2018 18:39:56
Buen dia a todos, soy novato en esto de programación en Visual Basic y SQL y me gustaria que expertos como ustedes me ayuden en la duda que tengo: realizo un programa para inventario de equipo de computo, el cual lleva varios modulos de consulta, donde tengo problema es a la hora de la clasificación del equipo:
Combo 1 - Tipo de equipo (PC, LAPTOP, IMPRESORA, etc)
Combo 2 - Marca (HP, DELL, PANASONIC, ETC.)
Combo 3 - Modelo (6200 SFF, LATITUDE 7480, etc.)
Aqui es donde tengo la duda de como hacer para que al momento de seleccionar un combo, solo me aparezca lo que debe de ser y no todo.
Les comparto como lleno los combobox:
En este ultimo combo, lo que me solicitan es que cuando seleccione el modelo, me llene campos de texto, ejemplo:
- LAPTOP
- DELL
- LATITUDE 7480 - Textbox a rellenar (Procesador,RAM,HDD,etc)
De antemanos les agradeceria la ayuda brindada.
Gracias.
Combo 1 - Tipo de equipo (PC, LAPTOP, IMPRESORA, etc)
Combo 2 - Marca (HP, DELL, PANASONIC, ETC.)
Combo 3 - Modelo (6200 SFF, LATITUDE 7480, etc.)
Aqui es donde tengo la duda de como hacer para que al momento de seleccionar un combo, solo me aparezca lo que debe de ser y no todo.
Les comparto como lleno los combobox:
1
2
3
4
5
6
7
8
9
10
11
Public Sub comboDisp()
'llena el combo de dispositivos
conectar()
Dim cmd As New SqlCommand("select Dispositivo,Id_Dispositivo from SAATI_Dispositivos ", conexion)
Dim sdr As New SqlDataAdapter(cmd)
Dim dt As New DataTable
sdr.Fill(dt)
Me.Combo_Disp.DataSource = dt
Me.Combo_Disp.DisplayMember = "Dispositivo"
Me.Combo_Disp.ValueMember = "Id_Dispositivo"
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub comboMarca()
'llena el combo de Marca
conectar()
'Dim sql As String = (" select Id_Marca,Marca from SAATI_Marca ",conexion)
Dim cmd As New SqlCommand("select Id_Marca,Marca from SAATI_Marca", conexion)
Dim sdr As New SqlDataAdapter(cmd)
Dim dt As New DataTable
sdr.Fill(dt)
Me.Combo_Marca.DataSource = dt
Me.Combo_Marca.DisplayMember = "Marca"
Me.Combo_Marca.ValueMember = "Id_Marca"
End Sub
1
2
3
4
5
6
7
8
9
10
11
Public Sub comboMod()
'llena el combo de modelo
conectar()
Dim cmd As New SqlCommand("select Modelo,Id_Modelo from SAATI_Modelos ", conexion)
Dim sdr As New SqlDataAdapter(cmd)
Dim dt As New DataTable
sdr.Fill(dt)
Me.Combo_Disp.DataSource = dt
Me.Combo_Disp.DisplayMember = "Modelo"
Me.Combo_Disp.ValueMember = "Id_Modelo"
End Sub
En este ultimo combo, lo que me solicitan es que cuando seleccione el modelo, me llene campos de texto, ejemplo:
- LAPTOP
- DELL
- LATITUDE 7480 - Textbox a rellenar (Procesador,RAM,HDD,etc)
De antemanos les agradeceria la ayuda brindada.
Gracias.
Valora esta pregunta
0