none
ComboBox RRS feed

  • Pergunta

  • no meu form de consulta de clientes cadastrado, coloquei um código para que meu comboBox me de o nome dos clientes cadastrado no banco de dados do access, só que eu não consigo fazer com que meus textbox automaticamente seja preenchido com os dados do cliente que eu selecionei no meu comboBox. podem me ajudar ?
    sexta-feira, 15 de maio de 2015 16:45

Respostas

  • Esse é o problema todos são comboBox e cadê os textbox, a impressão que tive foi que queria fazer um combobox em cascara, que escolhendo uma razão preenchia os demais.

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    segunda-feira, 18 de maio de 2015 01:59

Todas as Respostas

  • Está usando qual evento do ComboBox? SelectedIndexChanged?
    sexta-feira, 15 de maio de 2015 17:56
  • Primeiro de tudo ,como esta sendo feito essa consulta (código) e como esta pegando o retorno, sabendo-se isso, por exemplo, se estiver retornando um dataTable basta fazer um foreach e implicar os dados para os respectivos textBox.

    Mais o Ideal é que poste seu código e o método que utiliza do combobox.

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    sábado, 16 de maio de 2015 10:34
  • Essa é a minha de linda de comando .

    Imports System.Data.OleDb
    Public Class Frm_Edit_Clientes

        Private Sub Frm_Edit_Clientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Cmb_Buscar.Enabled = False
            Cmb_CPF_CNPJ.Enabled = False
            Cmb_Nome_Fantasia.Enabled = False
            Cmb_Razão_Social.Enabled = False
        End Sub

        Private Sub Cmb_Filtrar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Filtrar.SelectedIndexChanged
            'Regras de Validação dos campos de busca.
            If Cmb_Filtrar.Text.Contains("Razão Social") Then
                Razao()
                Cmb_Razão_Social.Enabled = True
                Cmb_Razão_Social.Visible = True
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Nome_Fantasia.Enabled = False
                Cmb_Nome_Fantasia.Visible = False
                Cmb_CPF_CNPJ.Enabled = False
                Cmb_CPF_CNPJ.Visible = False
            End If
            If Cmb_Filtrar.Text.Contains("Nome Fantasia") Then
                Fantasia()
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Razão_Social.Enabled = False
                Cmb_Razão_Social.Visible = False
                Cmb_CPF_CNPJ.Enabled = False
                Cmb_CPF_CNPJ.Visible = False
                Cmb_Nome_Fantasia.Enabled = True
                Cmb_Nome_Fantasia.Visible = True
            End If
            If Cmb_Filtrar.Text.Contains("CPF/CNPJ") Then
                CPFCNPJ()
                Cmb_Nome_Fantasia.Enabled = False
                Cmb_Nome_Fantasia.Visible = False
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Razão_Social.Enabled = False
                Cmb_Razão_Social.Visible = False
                Cmb_CPF_CNPJ.Enabled = True
                Cmb_CPF_CNPJ.Visible = True
            End If
        End Sub

        Private Sub Txt_Razão_Social_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Razão_Social.TextChanged

        End Sub
        Private Sub Razao()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_Razão_Social.ValueMember = "ID"
                    Cmb_Razão_Social.DisplayMember = "Razao_Social"

                    Cmb_Razão_Social.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub
        Private Sub Fantasia()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_Nome_Fantasia.ValueMember = "ID"
                    Cmb_Nome_Fantasia.DisplayMember = "Nome_Fantasia"

                    Cmb_Nome_Fantasia.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub
        Private Sub CPFCNPJ()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_CPF_CNPJ.ValueMember = "ID"
                    Cmb_CPF_CNPJ.DisplayMember = "CPF_CNPJ"

                    Cmb_CPF_CNPJ.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub

        Private Sub Frm_Edit_Clientes_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
            Select Case e.KeyCode
                Case Keys.Enter
                    SendKeys.Send("{Tab}")

            End Select

        End Sub

        Private Sub Btn_Edit_Salvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Edit_Salvar.Click

        End Sub


        Private Sub Btn_Sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Sair.Click
            Me.Close()
        End Sub

        Private Sub Txt_ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_ID.TextChanged

        End Sub

        Private Sub Grp_Cad_Edit_Cliente_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grp_Cad_Edit_Cliente.Enter

        End Sub
    End Class

    sábado, 16 de maio de 2015 14:59
  • Essa é a minha de linda de comando .

    Imports System.Data.OleDb
    Public Class Frm_Edit_Clientes

        Private Sub Frm_Edit_Clientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Cmb_Buscar.Enabled = False
            Cmb_CPF_CNPJ.Enabled = False
            Cmb_Nome_Fantasia.Enabled = False
            Cmb_Razão_Social.Enabled = False
        End Sub

        Private Sub Cmb_Filtrar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Filtrar.SelectedIndexChanged
            'Regras de Validação dos campos de busca.
            If Cmb_Filtrar.Text.Contains("Razão Social") Then
                Razao()
                Cmb_Razão_Social.Enabled = True
                Cmb_Razão_Social.Visible = True
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Nome_Fantasia.Enabled = False
                Cmb_Nome_Fantasia.Visible = False
                Cmb_CPF_CNPJ.Enabled = False
                Cmb_CPF_CNPJ.Visible = False
            End If
            If Cmb_Filtrar.Text.Contains("Nome Fantasia") Then
                Fantasia()
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Razão_Social.Enabled = False
                Cmb_Razão_Social.Visible = False
                Cmb_CPF_CNPJ.Enabled = False
                Cmb_CPF_CNPJ.Visible = False
                Cmb_Nome_Fantasia.Enabled = True
                Cmb_Nome_Fantasia.Visible = True
            End If
            If Cmb_Filtrar.Text.Contains("CPF/CNPJ") Then
                CPFCNPJ()
                Cmb_Nome_Fantasia.Enabled = False
                Cmb_Nome_Fantasia.Visible = False
                Cmb_Buscar.Enabled = False
                Cmb_Buscar.Visible = False
                Cmb_Razão_Social.Enabled = False
                Cmb_Razão_Social.Visible = False
                Cmb_CPF_CNPJ.Enabled = True
                Cmb_CPF_CNPJ.Visible = True
            End If
        End Sub

        Private Sub Txt_Razão_Social_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Razão_Social.TextChanged

        End Sub
        Private Sub Razao()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_Razão_Social.ValueMember = "ID"
                    Cmb_Razão_Social.DisplayMember = "Razao_Social"

                    Cmb_Razão_Social.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub
        Private Sub Fantasia()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_Nome_Fantasia.ValueMember = "ID"
                    Cmb_Nome_Fantasia.DisplayMember = "Nome_Fantasia"

                    Cmb_Nome_Fantasia.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub
        Private Sub CPFCNPJ()
            Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable

                    da.Fill(dt)
                    Cmb_CPF_CNPJ.ValueMember = "ID"
                    Cmb_CPF_CNPJ.DisplayMember = "CPF_CNPJ"

                    Cmb_CPF_CNPJ.DataSource = dt

                Catch ex As Exception
                Finally
                    con.Close()
                End Try

            End Using
        End Sub

        Private Sub Frm_Edit_Clientes_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
            Select Case e.KeyCode
                Case Keys.Enter
                    SendKeys.Send("{Tab}")

            End Select

        End Sub

        Private Sub Btn_Edit_Salvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Edit_Salvar.Click

        End Sub


        Private Sub Btn_Sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Sair.Click
            Me.Close()
        End Sub

        Private Sub Txt_ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_ID.TextChanged

        End Sub

        Private Sub Grp_Cad_Edit_Cliente_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grp_Cad_Edit_Cliente.Enter

        End Sub
    End Class

    sábado, 16 de maio de 2015 14:59
  • Vamos as dicas:

     1 - Se vai usar uma variavel N vezes com a mesma informação faz somente uma vez, me refiro ao codigo abaixo que se refere a mesma coisa em varios locais, basta declarar como Global as variáveis e só fazer o reaproventamento.:

           Dim sql As String = "SELECT * FROM Clientes"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable
    2 - O que seria isso:
    Cmb_Buscar
    Cmb_Razão_Social
    Cmb_CPF_CNPJ
    Cmb_Nome_Fantasia
    Cmb_Filtrar
    São Botoes? São ComboBox ? São textBox?

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    domingo, 17 de maio de 2015 11:35
  • São ComboBox. eu quero escolher por no meu ComboBox a razão social e automaticamente carregue mo meu textbox todos os dados do banco de dados que foi cadastrado nessa razão social. entende ?
    domingo, 17 de maio de 2015 13:45
  • Esse é o problema todos são comboBox e cadê os textbox, a impressão que tive foi que queria fazer um combobox em cascara, que escolhendo uma razão preenchia os demais.

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    segunda-feira, 18 de maio de 2015 01:59