Bind (Populate) HTML DataList from database using C# and VB.Net in ASP.Net

Hi IamAzhar,

Check this example. Now please take its reference and correct your code.

Database

For this example I have used of Northwind database that you can download using the link given below.

Download Northwind Database

HTML

<input list="dlCountries" runat="server" class="form-control" />
<datalist id="dlCountries" runat="server">
</datalist>

Namespaces

C#

using System.Configuration;
using System.Data;
using System.Data.SqlClient;
using System.Text;

VB.Net

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

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!this.IsPostBack)
    {
        DataTable dt = GetData();
        StringBuilder sb = new StringBuilder();
        for (int i = 0; i <= dt.Rows.Count - 1; i++)
        {
            sb.Append(String.Format("<option value='{0}'{1}>", dt.Rows[i][0].ToString(), System.Environment.NewLine));
        }
        this.dlCountries.InnerHtml = sb.ToString();
    }
}

private DataTable GetData()
{
    string conString = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
    string query = "SELECT DISTINCT Country FROM Customers";
    using (SqlCommand cmd = new SqlCommand(query))
    {
        using (SqlConnection con = new SqlConnection(conString))
        {
            using (SqlDataAdapter sda = new SqlDataAdapter())
            {
                cmd.Connection = con;
                sda.SelectCommand = cmd;
                using (DataTable dt = new DataTable())
                {
                    sda.Fill(dt);
                    return dt;
                }
            }
        }
    }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        Dim dt As DataTable = GetData()
        Dim sb As StringBuilder = New StringBuilder()
        For i As Integer = 0 To dt.Rows.Count - 1
            sb.Append(String.Format("<option value='{0}'{1}>", dt.Rows(i)(0).ToString(), System.Environment.NewLine))
        Next
        Me.dlCountries.InnerHtml = sb.ToString()
    End If
End Sub

Private Function GetData() As DataTable
    Dim conString As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Dim query As String = "SELECT DISTINCT Country FROM Customers"
    Using cmd As SqlCommand = New SqlCommand(query)
        Using con As SqlConnection = New SqlConnection(conString)
            Using sda As SqlDataAdapter = New SqlDataAdapter()
                cmd.Connection = con
                sda.SelectCommand = cmd
                Using dt As DataTable = New DataTable()
                    sda.Fill(dt)
                    Return dt
                End Using
            End Using
        End Using
    End Using
End Function

Screenshot