VB.NET ASP.NET DropDownList Bind To Table Source Code Example
VB.NET ASP.NET DropDownList Bind To Table Source Code
Purpose: – Illustrates using DropDownList and bind to data table for VB.NET ASP.NET.
Prerequistes:
- Install Visual Web Developer 2008
- Install SQL Server Express
- Download Northwind Database
- Attach Northwind Database to Databases in Sql Express
Instructions:
- Use Visual Web Developer 2008
- Select File/new web site; select template ASP.NET website; Select Visual Basic for Language;
name of website in Location field could be VBNET_ASPNET_Syntax.
- Right-click project name in solution explorer; add new folder; name of folder could be Standard_Controls
- Right-click folder; add new item; Select Web Form; check place code behind in separate file;
Web Form Name could be DropDownListBindToTable
- Copy first set of code into DropDownListBindToTable.aspx
- Copy second set of code into DropDownListBindToTable.aspx.vb
- Right-click on DropDownListBindToTable.aspx and select View in Browser
Step 1: Click on XML to Cut-n-paste code into DropDownListBindToTable.aspx
< %@ Page Language="VB" AutoEventWireup="false" CodeFile="DropDownListBindToTable.aspx.vb"
Inherits="Standard_DropDownListBindToTable" %>
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
Step 2: Click on VB to Cut-n-paste code into DropDownListBindToTable.aspx.vb
Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class Standard_DropDownListBindToTable
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim con As SqlConnection = New SqlConnection("Server=(local)\SQLEXPRESS;Initial
Catalog=Northwind;Integrated Security=SSPI")
Dim cmd As New SqlCommand()
cmd.CommandText = "SELECT EmployeeID, FirstName + ' ' + LastName as FullName FROM
Employees"
cmd.Connection = con
Dim Table1 As DataTable
Table1 = New DataTable("Employees")
'creating a table named Employees
Dim Row1 As DataRow
'declaring row for the table
Dim EmployeeID As DataColumn = New DataColumn("EmployeeID")
'declaring a column named EmployeeID
EmployeeID.DataType = System.Type.GetType("System.Int32")
'setting the datatype for the column
Table1.Columns.Add(EmployeeID)
'adding the column to table
Dim FullName As DataColumn = New DataColumn("FullName")
FullName.DataType = System.Type.GetType("System.String")
Table1.Columns.Add(FullName)
Try
con.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader '(CommandBehavior.SingleRow)
While reader.Read()
Row1 = Table1.NewRow()
'declaring a new row
Row1.Item("EmployeeID") = reader.GetInt32(0)
'filling the row with values. Item property is used to set the field value.
Row1.Item("FullName") = reader.GetString(1)
'filling the row with values. adding FullName
Table1.Rows.Add(Row1)
End While
reader.Close()
Finally
con.Close()
End Try
DropDownList1.DataSource = Table1
Me.DropDownList1.DataTextField = "FullName"
Me.DropDownList1.DataValueField = "EmployeeID"
DropDownList1.DataBind()
End Sub
End Class |
