Binding Dropdown in VB.Net

  1. Public Sub BindBaseLocation()      
  2.         Dim query As String = "Select Id,LocationName from Table_name ORDER BY LocationName ASC"      
  3.         Using con As New SqlConnection("Your Connection String")      
  4.             Using cmd As New SqlCommand(query)      
  5.                 cmd.CommandType = CommandType.Text      
  6.                 cmd.Connection = con      
  7.                 Using sda As New SqlDataAdapter(cmd)      
  8.                     Dim ds As New DataSet()      
  9.                     sda.Fill(ds)      
  10.                     ddlBaseLocation.DataSource = ds.Tables(0)      
  11.                     ddlBaseLocation.DataTextField = "LocationName"      
  12.                     ddlBaseLocation.DataValueField = "Id"      
  13.                     ddlBaseLocation.DataBind()      
  14.                 End Using      
  15.             End Using      
  16.         End Using      
  17.         ddlBaseLocation.Items.Insert(0, New ListItem("--Select--", "0"))      
  18. End Sub