Visual Basic - Cargar información en un combobox al seleccionar otro combobox

Life is soft - evento anual de software empresarial
   
Vista:

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad