4. crud operations Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head id="Head1" runat="server"> <title>Student Database</title> </head> <body> <form id="form1" runat="server"> Roll No: <asp:TextBox ID="txtRollNo" runat="server"></asp:TextBox> <br /><br /> Student Name: <asp:TextBox ID="txtName" runat="server"></asp:TextBox> <br /><br /> Course: <asp:TextBox ID="txtCourse" runat="server"></asp:TextBox> <br /><br /> Marks: <asp:TextBox ID="txtMarks" runat="server"></asp:TextBox> <br /><br /> <asp:Button ID="btnInsert" runat="server" Text="Insert" /> <asp:Button ID="btnUpdate" runat="server" Text="Update" /> <asp:Button ID="btnDelete" runat="server" Text="Delete" /> <asp:Button ID="btnRetrieve" runat="server" Text="Retrieve" /> <br /><br /> <asp:DataGrid ID="DataGrid1" runat="server"> </asp:DataGrid> <br /> <asp:Label ID="lblMessage" runat="server"> </asp:Label> </form></body></html> Vb code Imports System.Data Imports System.Data.OleDb Partial Class _Default Inherits System.Web.UI.Page Dim con As New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: \ Users \ Hemasri J \ OneDrive \ Documents \ Visual Studio 2010 \ WebSites \ WebSite11 \ Database4.mdb") ' INSERT Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsert.Click Dim query As String = "INSERT INTO Table1 ([Roll No], Stud_Name, Course, Marks) VALUES (?, ?, ?, ?)" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", Val(txtRollNo.Text)) cmd.Parameters.AddWithValue("?", txtName.Text) cmd.Parameters.AddWithValue("?", txtCourse.Text) cmd.Parameters.AddWithValue("?", Val(txtMarks.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Student inserted successfully." RetrieveData() End Sub ' SELECT / RETRIEVE Protected Sub btnRetrieve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRetrieve.Click RetrieveData() End Sub Private Sub RetrieveData() Dim query As String = "SELECT * FROM Table1" Dim da As New OleDbDataAdapter(query, con) Dim dt As New DataTable() da.Fill(dt) DataGrid1.DataSource = dt DataGrid1.DataBind() End Sub ' UPDATE Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim query As String = "UPDATE Table1 SET Stud_Name=?, Course=?, Marks=? WHERE [Roll No]=?" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", txtName.Text) cmd.Parameters.AddWithValue("?", txtCourse.Text) cmd.Parameters.AddWithValue("?", Val(txtMarks.Text)) cmd.Parameters.AddWithValue ("?", Val(txtRollNo.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Student updated successfully." RetrieveData() End Sub ' DELETE Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim query As String = "DELETE FROM Table1 WHERE [Roll No]=?" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", Val(txtRollNo.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Table1 deleted successfully." RetrieveData() End Sub End Class 7 . 7. Create a webpage using HTML server control – textbox, button , dropdown, Listbox Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>HTML Server Controls</title> </head> <body> <form id="form1" runat="server"> <h2>Student Details</h2> Name: <input type="text" id="txtName" runat ="server" /> <br /><br /> Department: <select id="ddlDept" runat="server"> <option value="CS">Computer Science</option> <option value="IT">Information Technology</option> <option value="Commerce">Commerce</option> </select> <br /><br /> Subjects: <select id="lstSubjects" runat="server" multiple="true"> <option value="Java">Java</option> <option value="HTML">HTML</option> <option value="ASP.NET">ASP.NET</option> </select> < br /><br /> <input type="submit" id="btnSubmit" value="Submit" runat="server" onserverclick="btnSubmit_ServerClick" /> <br /><br /> <asp:Label ID="lblResult" runat="server" /> </form> </body> </html> VB code — Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_ServerClick( ByVal sender As Object, ByVal e As System.EventArgs) lblResult.Text = "Name: " & txtName.Value & "<br>Department: " & ddlDept.Value End Sub End Class 8. Create a webpage using Web server control – textbox, button , radiobutton, dropdown Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>Web Server Controls</title> </head> <body> <form id="form1" runat="server"> <h2>Student Form</h2> Name: <asp:TextBox ID="txtName" runat="server" /> <br /><br /> Gender: <asp:RadioButton ID="rbMale" runat="server" Text="Male" GroupName="Gender" /> < asp:RadioButton ID="rbFemale" runat="server" Text="Female" GroupName="Gender" /> <br /><br /> Department: <asp:DropDownList ID="ddlDept" runat="server"> <asp:ListItem>Computer Science</asp:ListItem> <asp:ListItem>Information Technology</asp:ListItem> <asp:ListItem>Commerce</asp:ListItem> </asp:DropDownList> <br /><br /> Address: <asp:TextBox ID="txtAddress" runat="server" TextMode="MultiLine" Rows="3" /> <br /><br /> Subjects: <asp:ListBox ID="lstSubjects" runat="server"> <asp:ListItem>Java</asp:ListItem> <asp:ListItem>HTML</asp:ListItem> <asp:ListItem>ASP.NET</asp:ListItem> </asp:ListBox> <br /><br /> Year: <asp:RadioButtonList ID="rblYear" runat="server"> <asp:ListItem>I Year</asp:ListItem> <asp:ListItem>II Year</asp:ListItem> <asp:ListItem>III Year</asp:ListItem> </asp:RadioButtonList> <br /> <asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClick="btnSubmit_Click" /> <br /><br /> <asp:Label ID="lblResult" runat="server" /> </form> </body> </html> VB code — Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click Dim gender As String = "Not selected" If rbMale.Checked Then gender = "Male" ElseIf rbFemale.Checked Then gender = "Female" End If lblResult.Text = "Name: " & txtName.Text & "<br>Gender: " & gender & "<br>Department: " & ddlDept.SelectedValue & "<br>Address: " & txtAddress.Text & "<br>Year: " & rblYear.SelectedValue End Sub End Class 9. Create a web page with the following controls : textbox, listbox, dropdown, checkboxlist, radiobuttonlist, link, image, calendar control ,button. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>ASP.NET Controls</title> </head> <body> <form id="form1" runat="server"> <h2>Student Registration</h2> Name: <asp:TextBox ID="txtName" runat="server" /> <br /><br /> Department: <asp:DropDownList ID="ddlDept" runat="server"> <asp:ListItem>Computer Science</asp:ListItem> <asp:ListItem>Information Technology</asp:ListItem> <asp:ListItem>Commerce</asp:ListItem> </asp:DropDownList> <br /><br /> Subjects: <asp:ListBox ID="lstSubjects" runat="server"> < asp:ListItem>Java</asp:ListItem> <asp:ListItem>HTML</asp:ListItem> <asp:ListItem>ASP.NET</asp:ListItem> </asp:ListBox> <br /><br /> Hobbies: <asp:CheckBoxList ID="cblHobbies" runat="server"> <asp:ListItem>Reading</asp:ListItem> <asp:ListItem>Music</asp:ListItem> <asp:ListItem>Sports</asp:ListItem> </asp:CheckBoxList> Gender: <asp:RadioButtonList ID="rblGender" runat="server"> <asp:ListItem>Male</asp:ListItem> <asp:ListItem >Female</asp:ListItem> </asp:RadioButtonList> <br /> <asp:Image ID="imgStudent" runat="server" ImageUrl="student.jpg" Width="100px" /> <br /><br /> <asp:HyperLink ID="link1" runat="server" NavigateUrl="https://www.google.com" Text="Visit Google" /> <br /><br /> Select Date: <asp:Calendar ID="Calendar1" runat="server" /> <br /> <asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClick="btnSubmit_Click" /> <br /><br /> <asp:Label ID="lblResult" runat="server" /> </form> </body> </html> Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click lblResult.Text = "Name: " & txtName.Text & "<br>Department: " & ddlDept.SelectedValue & "<br>Gender: " & rblGender.SelectedValue & "<br>Selected Date: " & Calendar1.SelectedDate.ToShortDateString() End Sub End Class 10. Write an ASP.net program to define a datatable student and display the content on data repeater. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>Student Repeater</title> </head> <body> <form id="form1" runat="server"> <h2>Student Details</h2> <asp:Repeater ID="Repeater1" runat="server"> <HeaderTemplate> <table border="1" cellpadding="5"> <tr> <th>ID</th> <th>Name</th> <th>Department</th> </tr> </HeaderTemplate> <ItemTemplate> <tr> <td><%# Eval("StudentID") %></td> <td><%# Eval("StudentName") %></td> <td><%# Eval("Department") %></td> </tr> </ItemTemplate> <FooterTemplate> </table> </FooterTemplate> </asp:Repeater </form> </body> </html> Default.aspx.vb Imports System.Data Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load( ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Dim dt As New DataTable() dt.Columns.Add("StudentID") dt.Columns.Add("StudentName") dt.Columns.Add("Department") dt.Rows.Add("101", "Nandy", "Computer Science") dt.Rows.Add ("102", "Hans", "Information Technology") dt.Rows.Add("103", "Hira", "Computer Science") dt.Rows.Add("104", "Nivu", "Commerce") Repeater1.DataSource = dt Repeater1.DataBind() End If End Sub End Class 11. Create and ASP.Net application to display Advertisement using Adrotator. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>Advertisement Page</title> </head> <body> <form id="form1" runat ="server"> <h2>Advertisement Home Page</h2> Select Category: <asp:DropDownList ID="ddlCategory" runat="server" AutoPostBack="True" OnSelectedIndexChanged="ddlCategory_SelectedIndexChanged"> <asp:ListItem>Education</asp:ListItem> <asp:ListItem>Sports</asp:ListItem> </asp:DropDownList> <br /><br /> <asp:AdRotator ID="AdRotator1" runat="server" AdvertisementFile="Advertisements.xml" KeywordFilter="Education" Width="300px" Height="150px" /> </form> </body> </html> Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub ddlCategory_SelectedIndexChanged( ByVal sender As Object, ByVal e As System.EventArgs) AdRotator1.KeywordFilter = ddlCategory.SelectedValue End Sub End Class Advertisements.xml <?xml version="1.0" encoding="utf - 8"?> <Advertisements> <Ad> <ImageUrl>Education.jpg</ImageUrl> <NavigateUrl >https://www.google.com</NavigateUrl> <AlternateText>Education Advertisement</AlternateText> <Keyword>Education</Keyword> <Impressions>50</Impressions> </Ad> <Ad> <ImageUrl>Sports.jpg</ImageUrl> <NavigateUrl>https://www.google.com</NavigateUrl> <AlternateText>Sports Advertisement</AlternateText> <Keyword>Sports</Keyword> <Impressions>50</Impressions> </Ad> </Advertisements> 12. Create and ASP.Net application to display Calendar control Calendar.aspx <%@ Page Language="VB" AutoEventWireup ="false" CodeFile="Calendar.aspx.vb" Inherits="CalendarPage" %> <!DOCTYPE html> <html> <head runat="server"> <title>Calendar Control</title> </head> <body> <form id="form1" runat="server"> <h2>Calendar</h2> <asp:Calendar ID="MyCal" runat="server" OnSelectionChanged="calSelectChange" /> <br /> <asp:Label ID="lblMessage" runat="server" /> </form> </body> </html> Calendar.aspx.vb Partial Class CalendarPage Inherits System.Web.UI.Page Protected Sub calSelectChange( ByVal sender As Object, ByVal e As System.EventArgs) lblMessage.Text = "You Selected " & MyCal.SelectedDate.ToShortDateString() End Sub End Class 13. Write a program to implement the following validation controls RequiredField, Range Validator Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html> <html> <head runat="server"> <title>Validation Controls</title> </head> <body> <form id="form1" runat="server">