*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