none
Problema para filtrar dos COMBOBOX "AYUDA" RRS feed

  • Pregunta

  • Necesito filtrar de una tabla regiones sus provincias osea al seleccionar una region me aparesca las provincias respectivas.
    AYUDA. 
    Este es el codigo que tengo hasta ahora necesito su ayuda. . .  
    Public Class addcomunass
        Public con As New classconexion
         
    Public Sub llenar_regiones()
            Dim Sql1 As String = "SELECT * FROM regiones"
            Dim EJECUTAR As New MySQLDriverCS.MySQLCommand(Sql1, con.con)
            
            EJECUTAR.ExecuteScalar()
            Dim da As New MySQLDriverCS.MySQLDataAdapter(EJECUTAR)
            Dim tabla As New DataSet
            da.Fill(tabla)
            ComboBox1.DataSource = tabla.Tables(0)
            ComboBox1.DisplayMember = "reg_nom"
        End Sub
     
      Private Sub addcomunas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            con.conectar()
            llenar_regiones()
        End Sub
      
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Me.Close()
        End Sub
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim sql As String = "INSERT INTO comunas(com_cod,com_nom,com_prov_cod)"
            sql += "VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox2.Text & "')"
            Dim cmd As New MySQLDriverCS.MySQLCommand(sql, con.con)
            cmd.ExecuteReader()
            MsgBox("Los datos del COMUNA han sido guardados", MsgBoxStyle.Information, "")
            Me.Hide()
        End Sub
       
        Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
            Dim val As Integer
            Dim Sql1 As String = "SELECT * FROM regiones where reg_nom='" & ComboBox1.SelectedText & "'"
            Dim EJECUTAR As New MySQLDriverCS.MySQLCommand(Sql1, con.con)
            'con.conectar()
            EJECUTAR.ExecuteScalar()
            Dim da As New MySQLDriverCS.MySQLDataAdapter(EJECUTAR)
            Dim tabla As New DataTable
            da.Fill(tabla)
            For Each dt As DataRow In tabla.Rows
                val = dt(0)
            Next
            Dim Sql As String = "SELECT * FROM PROVINCIAS where prov_reg_cod='" & val & "'"
            Dim EJECUTAR1 As New MySQLDriverCS.MySQLCommand(Sql, con.con)
            'con.conectar()
            EJECUTAR1.ExecuteScalar()
            Dim da1 As New MySQLDriverCS.MySQLDataAdapter(EJECUTAR1)
            Dim tabla1 As New DataSet
            da1.Fill(tabla1)
            ComboBox2.DataSource = tabla1.Tables(0)
            ComboBox2.DisplayMember = "prov_nom"
        End Sub
    End Class
    • Cambiado Enrique M. Montejo sábado, 22 de octubre de 2011 5:47 acceso a datos (De:Lenguaje VB.NET)
    viernes, 21 de octubre de 2011 17:04

Todas las respuestas