Member Avatar for jaimin4829 
obcon.cmd.CommandText = " select f_name + ' ' + m_name + ' ' + l_name from contact where type='" & ledcmbsrctype.Text & "'"
            obcon.con.Open()
            Dim dr As SqlDataReader
            dr = obcon.cmd.ExecuteReader
            While (dr.Read)
                ledcmbsrcitem.Items.Add(dr.Item(0))
            End While

'name is added to combo box and i want to get id for selected name.

Edited by Ezzaral because: Added code tags. Please use them to format any code that you post.
  • 2 Contributors
  • 1 Reply
  • 139 Views
  • 8 Hours Discussion Span
  • Latest Post Latest Post by adam_k
Member Avatar for adam_k

You need to change your code to something like:

obcon.cmd.CommandText = " select id, f_name + ' ' + m_name + ' ' + l_name as 'name' from contact where type='" & ledcmbsrctype.Text & "'"
            obcon.con.Open()
            Dim dr As SqlDataReader
            dr = obcon.cmd.ExecuteReader
ledcmbsrcitem.valuemember = "id"
ledcmbsrcitem.displaymember = "name"

            While (dr.Read)
                ledcmbsrcitem.Items.Add(dr.Item(0),dr.Item(1)) 
            End While

you get the id using ledcmbsrcitem.value and the displayed text with ledcmbsrcitem.text

Edited by adam_k because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.