ASP.NET - ASP.NET (VB Version) Database Driven Select Menu (Dropdown Menu) : Code Entry

Live Editing Disabled for Server-Side Example

HTML

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Load.aspx.vb" Inherits="Load" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <strong>ASP.NET (VB Version) SQL Server Database Driven Dropdown Menu</strong><br />
This demonstration populates a Select Menu with values from a database table.<br />
    <form id="form1" runat="server">
        <div>
            <asp:DropDownList ID="DropDownList1" runat="server">
                
            </asp:DropDownList>
        </div>
    </form>
</body>
</html>

SQL

ASP.NET

<?xml version="1.0"?>
<configuration>
  <connectionStrings configSource="database.config" />
  <system.web>
    <compilation debug="true" strict="false" explicit="true" targetFramework="4.7.2" />
    <httpRuntime targetFramework="4.7.2" />
  </system.web>
</configuration>

<?xml version="1.0"?>
<connectionStrings>
  <add name ="Virtual-Learning" connectionString="Data Source=sqlcorecs-01\sql2019;Database=Virtual-Class-01;User ID=testuser;Password=testuser;MultipleActiveResultSets=True"/>
</connectionStrings>

Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient

 Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Dim constr As String = ConfigurationManager.ConnectionStrings("Virtual-Learning").ConnectionString
            Using con As New SqlConnection(constr)
                Using cmd As New SqlCommand("SELECT ddId, ddName FROM Dropdown")
                    cmd.CommandType = CommandType.Text
                    cmd.Connection = con
                    con.Open()
                    DropDownList1.DataSource = cmd.ExecuteReader()
                    DropDownList1.DataTextField = "ddName"
                    DropDownList1.DataValueField = "ddId"
                    DropDownList1.DataBind()
                    con.Close()
                End Using
            End Using
            DropDownList1.Items.Insert(0, New ListItem("--Select Programming Language--", "0"))
        End If
    End Sub

Preview

About Company

Top Viewed Articles