Bind Data in a ListBox in VB.NET

Satyapriya Nayak
11y
25.1k
0
0

Article

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

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 Object, ByVal 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