** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Visual Basic Clásico (VB3...VB6)
  Mensajes nuevos Mensajes nuevos RSS - Combobox Anidado
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCombobox Anidado

 Responder Responder
Autor
Mensaje
JCC Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 20/Septiembre/2013
Localización: Chile
Estado: Sin conexión
Puntos: 853
Enlace directo a este mensaje Tema: Combobox Anidado
    Enviado: 24/Junio/2014 a las 21:39
Hola,

Les cuento estoy Integrándome al Visual Basic a través de Visual studio, Pues Tengo experiencia en Access y ahí e desarrollado Varias mini aplicaciones.

mi Problema Es el Siguiente:Un Form e Integrado Lo siguiente :

1. Combobox1 Con Origen de datos en Access y que Muestra los Continentes.
2-Combobox2 Con Origen de datos en Access ( Campos Zonas y Origen ) y que Muestra los Orígenes.

Pues Hasta Ahí voy Bien, Lo que no tengo claro es: como debo hacer para que cuando elija un valor del Combobox1 ( Ejemplo : Asia ) este Filtre el a través del Campo ( Zona ) el Combobox2 y este muestre los Orígenes de Asia ( Ejemplo: China,Singapore,India ETC )

en Access yo tomaba el Combobox2 lo basaba en una consulta Interna i en el Campo [Zona] dejaba como Criterio el Combobox1 y así obtenía el Resultado Requerido.

Vuestra Ayuda Por Favor,


Muchas Gracias....
Saludos desde Chile....
Arriba
JCC Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 20/Septiembre/2013
Localización: Chile
Estado: Sin conexión
Puntos: 853
Enlace directo a este mensaje Enviado: 26/Noviembre/2014 a las 21:23
Amigos gracias a Dios he tomado un poquito mas de experiencia en la materia de VB.NET y es por esto que muestro cual es una de las soluciones a lo planteado en el Post Anterior:

1.- Al Combobox2, en el evento al entrar, programe la conexión a la base de datos, luego asigne un Query con el SelectValued del combobox1.

El resultado lo pase a un datatable para así finalmente asignarlo al Datasource del Combobox2.

Este es el Código:

Private Sub CbmPais_Enter(sender As Object, e As EventArgs) Handles CbmPais.Enter
        Dim Conection As String
        Dim query As String
        Dim Da As SqlClient.SqlDataAdapter
        Dim Comando As New SqlClient.SqlCommand
        Dim dt As DataTable


        Conection = "Server=192.168.1.121;Uid=sa1;Pwd=******;Database=BDGeneral;"
        query = "Select * From Zonas Where País='" & me.combobox1.SelecValued & "'"
        Dim oConn As New SqlClient.SqlConnection
        oConn.ConnectionString = Conection
        Try
            oConn.Open()
            Da = New SqlClient.SqlDataAdapter(query, oConn)
            dt = New DataTable
            Da.Fill(dt)

            With CbmZona
               .DataSource = dt
               .DisplayMember = "Pais"
               .ValueMember = "Pais"
            End With

            oConn.Close()
        Catch ex As Exception
            MsgBox(ex.Message().ToString())
            oConn.Close()
        End Try
    End Sub



Por favor cerrar Hilo.
Saludos desde Chile....
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable