Monday, 13 November 2017

Show multiple combobox selected value in vb.net window application

*Namespaces:-
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        lblMsg.Text = "Your name is " + ComboBox2Name.SelectedItem.ToString() + " and Your selected the languages " + ComboBox1Languages.SelectedItem.ToString() + " Date is " + ComboBox1Number.SelectedItem.ToString()
    End Sub

ComboBox1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim StrCon As String = "Server=PRADEEP-HP;Database=ClassDemo;User id=sa;Password=pradeeppc"
        Dim SqlCon As SqlConnection = New SqlConnection(StrCon)
        Dim SqlQuery As String = "Select EmpId,EmpName from EMPTable"
        'Dim dt As New DataTable
        'Dim da As SqlDataAdapter = New SqlDataAdapter(SqlQuery, SqlCon)
        Dim SqlCom As SqlCommand = New SqlCommand(SqlQuery, SqlCon)
        SqlCon.Open()
        Dim Dr As SqlDataReader
        Dr = SqlCom.ExecuteReader()
        Dim bs As BindingSource = New BindingSource()
        bs.DataSource = Dr
        ComboBox1.DataSource = bs
        ComboBox1.DisplayMember = "EmpName"
        ComboBox1.ValueMember = "EmpId"
        ComboBox1.Text = ""
        ComboBox1.Items.Insert(0, New ListViewItem("---Select---", "0"))
    End Sub

End Class

0 comments

Post a Comment