Jump to content

Recommended Posts

Posted

Boas pessoal, eu tenho uma combobox que vais buscar dados a uma tabela mostrando um nome e guardando um ID, acontece que quando eu pesquiso um "contacto" e o selecciona para aparecer no formulário ele mostrame o numero de "ID" e nao o "Nome", como faço para ele ao carregar ler o ID depositado e associar ao nome que vai mostrar e mostrar o nome, o codigo que tenho para carregar os campos é o seguinte:

Private Sub carregaempresas(ByVal ID_Empresa As Integer)
        Dim strConn As String = My.Settings.BDSofioConnectionString.ToString()
        Dim strSQL As String = "Select * from Empresas Where ID_Empresa = " & ID_Empresa
        Dim dr As SqlDataReader

        'define objeto connection e command
        Dim con As New SqlConnection(strConn)
        Dim cmd As New SqlCommand(strSQL, con)
        Try
            con.Open()
            dr = cmd.ExecuteReader
            If (dr.HasRows) Then
                dr.Read()
                empID_EmpresaTextBox.Text = dr("ID_Empresa").ToString
                empEmpresaTextBox.Text = dr("Empresa").ToString
                empID_TEmpresaComboBox.Text = dr("ID_TEmpresa").ToString
                empTelefoneTextBox.Text = dr("Telefone").ToString
                empFaxTextBox.Text = dr("Fax").ToString
                empEmailTextBox.Text = dr("Email").ToString
                validempmail()
                empEndereçoTextBox.Text = dr("Endereço").ToString
                empLocalidadeTextBox.Text = dr("Localidade").ToString
                empCodigo_PostalTextBox.Text = dr("Codigo_Postal").ToString
                empPaisTextBox.Text = dr("Pais").ToString
                empWebTextBox.Text = dr("Web").ToString
                validempweb()
            End If
        Catch ex As Exception
            MsgBox("Erro ao obter dados das Empresas. Erro : " & ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.