CFF Coding Source - Bootstrap Tags Input (VB.NET and SQL Server Database)

HTML

JavaScript

var citynames = new Bloodhound({
    datumTokenizer: Bloodhound.tokenizers.obj.whitespace('name'),
    queryTokenizer: Bloodhound.tokenizers.whitespace,
    prefetch: {
        url: 'Tags.ashx',
        filter: function (list) {
            return $.map(list, function (cityname) {
                return { name: cityname };
            });
        }
    }
});
citynames.initialize();
/**
 * Typeahead
 */
var elt = $('.example_typeahead > > input');
elt.tagsinput({
    typeaheadjs: {
        name: 'citynames',
        displayKey: 'name',
        valueKey: 'name',
        source: citynames.ttAdapter()
    }
});
// HACK: overrule hardcoded display inline-block of typeahead.js
$(".twitter-typeahead").css('display', 'inline');

SQL

-- Create a new database called [Virtual-Class-01] in SQL Server.
-- Right-click and choose [New Query]
-- Copy and paste the code below and hit [Execute]

USE [Virtual-Class-01]
GO
/****** Object:  Table [dbo].[Tags]    Script Date: 8/15/2022 7:46:55 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Tags](
    [TagID] [int] IDENTITY(1,1) NOT NULL,
    [TagName] [nvarchar](50) NOT NULL,
 CONSTRAINT [PK_Tags] PRIMARY KEY CLUSTERED 
(
    [TagID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, OPTIMIZE_FOR_SEQUENTIAL_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]
GO
SET IDENTITY_INSERT [dbo].[Tags] ON 
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (1, N'Dallas')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (2, N'Charlotte')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (3, N'Raleigh')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (4, N'Houston')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (5, N'Washington')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (6, N'New York')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (7, N'Los Angeles')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (8, N'Sydney')
GO
INSERT [dbo].[Tags] ([TagID], [TagName]) VALUES (9, N'Melbourne')
GO
SET IDENTITY_INSERT [dbo].[Tags] OFF
GO

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" requestValidationMode="2.0" />
  </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
        Dim LessonCon As New SqlConnection
        Dim LessonCMD As SqlCommand = Nothing
        LessonCon = New SqlConnection(ConfigurationManager.ConnectionStrings("Virtual-Learning").ConnectionString)
        LessonCon.Open()

        Dim getTag As New SqlCommand("select TagID, TagName from Tags", LessonCon)
        Dim rsTag As SqlDataReader
        rsTag = getTag.ExecuteReader()
        Context.Response.Write("<ol>")
        If rsTag.Read() Then
            While rsTag.Read()
                Dim strTag As String = rsTag("TagName")
                Context.Response.Write("<li>" & strTag & "</li>")
            End While
        Else
            Context.Response.Write("No records found.")
        End If
        Context.Response.Write("</ol>")
        LessonCon.Close()
    End Sub

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

 Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim names As List(Of String) = New List(Of String)()
        Dim LessonconString As String = ConfigurationManager.ConnectionStrings("Virtual-Learning").ConnectionString
        Using LessonCon As SqlConnection = New SqlConnection(LessonconString)
            Using cmd As SqlCommand = New SqlCommand("select TagID, TagName from Tags", LessonCon)
                LessonCon.Open()
                Dim sdr As SqlDataReader = cmd.ExecuteReader()

                While sdr.Read()
                    names.Add(sdr("TagName").ToString())
                End While

                LessonCon.Close()
            End Using
        End Using

        context.Response.ContentType = "text/plain"
        context.Response.Write(String.Format("[""{0}""]", String.Join(""",""", names)))
    End Sub

Preview

About Company

Top Viewed Articles