Bind Data in a ListBox in VB.NET

In this article we will bind records from database to a ListBox. Here we can bind only one column from the database. For that we have to mention the field name in DataTextField property of theListBox.

Table structure

Table-in-SQL-Server.gif
 

Program

Default.aspx code 

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Untitled Page</title>
</head>
<
body>
    <form id="form1" runat="server">
    <div>
    </div>

    <asp:ListBox ID="ListBox1" runat="server" Height="242px"
        SelectionMode="Multiple" Width="337px"></asp:ListBox>
    </form>
</body>
</
html>

Default.aspx.vb code

Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
    Dim con As New SqlConnection(strConnString)
    Dim str As String
    Dim com As SqlCommand
    Dim sqlda As SqlDataAdapter
    Dim ds As DataSet
    Protected Sub Page_Load(ByVal sender As ObjectByVal e As System.EventArgs) HandlesMe.Load
        con.Open()
        str = "select * from employee"
        com = New SqlCommand(str, con)
        sqlda = New SqlDataAdapter(com)
        ds = New DataSet
        sqlda.Fill(ds, "employee")
        ListBox1.DataValueField = "empid"
        ListBox1.DataTextField = "empname"
        ListBox1.DataSource = ds
        ListBox1.DataMember = "employee"
        ListBox1.DataBind()
        con.Close()
    End Sub
End Class

Output

Here we have field name as empname in DataTextField property of the ListBox.

ListBox-Control-in-VB.NET.gif


Similar Articles