DB Connectivity 1. SELECT Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html > <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <br /> <br /> <br /> <br /> <asp:DataGrid ID="DataGrid" runat="server" CellPadding="4" ForeColor="#333333" GridLines="None"> <AlternatingItemStyle BackColor="White" /> <EditItemStyle BackColor="#7C6F57" /> <FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" /> <HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" /> <ItemStyle BackColor="#E3EAEB" /> <PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" /> <SelectedItemStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" /> </asp:DataGrid> </div> </form> </body> </html> Default.aspx.vb Imports System.Data Imports System.Data.OleDb 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 DBConn As OleDb.OleDbConnection Dim DBCommand As OleDb.OleDbDataAdapter Dim DSPageData As New DataSet DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBCommand = New OleDbDataAdapter("SELECT RollNo,Stud_Name,Course,Marks from Students", DBConn) DBCommand.Fill(DSPageData, "Students") DataGrid.DataSource = DSPageData.Tables("Students").DefaultView DataGrid.DataBind() End If End Sub End Class 2. DELETE Default2.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %> <!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></title> </head> <body> <form id="form1" runat="server"> <div> <br /> <br /> <br /> <br /> <asp:DataGrid ID="DataGrid1" runat="server" CellPadding="4" ForeColor="#333333" GridLines="None"> <AlternatingItemStyle BackColor="White" /> <FooterStyle BackColor="#990000" Font-Bold="True" ForeColor="White" /> <HeaderStyle BackColor="#990000" Font-Bold="True" ForeColor="White" /> <ItemStyle BackColor="#FFFBD6" ForeColor="#333333" /> <PagerStyle BackColor="#FFCC66" ForeColor="#333333" HorizontalAlign="Center" /> <SelectedItemStyle BackColor="#FFCC66" Font-Bold="True" ForeColor="Navy" /> </asp:DataGrid> <br /> <br /> <asp:Button ID="Button1" runat="server" Text="submit" /> </div> </form> </body> </html> Default2.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default2 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBcommand As New OleDb.OleDbDataAdapter Dim DBDelete As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBDelete.CommandText = "Delete from Students where RollNo=3" DBDelete.Connection = DBConn DBDelete.Connection.Open() DBDelete.ExecuteNonQuery() DBConn.Close() End Sub End Class 3. INSERT Default3.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default3.aspx.vb" Inherits="Default3" %> <!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></title> </head> <body> <form id="form1" runat="server"> <div> <asp:TextBox ID="txtrollno" runat="server" style="z-index: 1; left: 12px; top: 22px; position: absolute"> </asp:TextBox> <br /> <br /> <br /> <asp:TextBox ID="txtnm" runat="server" style="z-index: 1; left: 186px; top: 20px; position: absolute"> </asp:TextBox> <br /> <asp:Button ID="Button1" runat="server" style="z-index: 1; left: 671px; top: 15px; position: absolute" Text="Add" /> <br /> <br /> <asp:TextBox ID="txtm1" runat="server" style="z-index: 1; left: 354px; top: 19px; position: absolute"> </asp:TextBox> <br /> <br /> <br /> <br /> <asp:TextBox ID="txtm2" runat="server" style="z-index: 1; left: 512px; top: 19px; position: absolute"> </asp:TextBox> </div> </form> </body> </html> Default3.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default3 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBInsert As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") Response.Write(txtnm.Text) DBInsert.CommandText = "Insert into Students(RollNo,Stud_Name,Course,Marks) values(?,?,?,?)" DBInsert.Parameters.AddWithValue("?", Val(txtrollno.Text)) DBInsert.Parameters.AddWithValue("?", txtnm.Text) DBInsert.Parameters.AddWithValue("?", txtm1.Text) DBInsert.Parameters.AddWithValue("?", Val(txtm2.Text)) DBInsert.Connection = DBConn DBInsert.Connection.Open() DBInsert.ExecuteNonQuery() DBConn.Close() End Sub End Class 4. UPDATE Default4.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default4.aspx.vb" Inherits="Default4" %> <!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></title> </head> <body> <form id="form1" runat="server"> <div> <asp:TextBox ID="txtroll" runat="server"></asp:TextBox> <asp:TextBox ID="txtnm" runat="server"></asp:TextBox> <asp:TextBox ID="txtm1" runat="server"></asp:TextBox> <asp:TextBox ID="txtm2" runat="server"></asp:TextBox> <asp:Button ID="Button1" runat="server" Text="SELECT" /> <asp:Button ID="Button2" runat="server" style="z-index: 1; left: 596px; top: 14px; position: absolute" Text="UPDATE" /> </div> </form> </body> </html> Default4.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default4 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBcommand As New OleDb.OleDbDataAdapter Dim DSPageData As New DataSet DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBcommand = New OleDbDataAdapter("SELECT RollNo,Stud_Name,Course,Marks from Students WHERE RollNo = " & Val(txtroll.Text), DBConn) DBcommand.Fill(DSPageData, "t2") txtroll.Text = DSPageData.Tables("t2").Rows(0).Item("RollNo") txtnm.Text = DSPageData.Tables("t2").Rows(0).Item("Stud_Name") txtm1.Text = DSPageData.Tables("t2").Rows(0).Item("Course") txtm2.Text = DSPageData.Tables("t2").Rows(0).Item("Marks") DBConn.Close() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim DBConn As OleDb.OleDbConnection Dim DBUpdate As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") Response.Write(txtnm.Text) DBUpdate.CommandText = "update Students set Stud_Name=?,Course=?,Marks=? where RollNo=?" DBUpdate.Parameters.AddWithValue("?", txtnm.Text) DBUpdate.Parameters.AddWithValue("?", txtm1.Text) DBUpdate.Parameters.AddWithValue("?", Val(txtm2.Text)) DBUpdate.Parameters.AddWithValue("?", Val(txtroll.Text)) DBUpdate.Connection = DBConn DBUpdate.Connection.Open() DBUpdate.ExecuteNonQuery() DBConn.Close() End Sub End Class Validation Controls SOURCE CODE — 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"> Name: <asp:TextBox ID="txtName" runat="server"></asp:TextBox> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtName" ErrorMessage="Name is required" ForeColor="Red"> </asp:RequiredFieldValidator> <br /><br /> Age: <asp:TextBox ID="txtAge" runat="server"></asp:TextBox> <asp:RangeValidator ID="RangeValidator1" runat="server" ControlToValidate="txtAge" MinimumValue="18" MaximumValue="50" Type="Integer" ErrorMessage="Age must be between 18 and 50" ForeColor="Red"> </asp:RangeValidator> <br /><br /> Email: <asp:TextBox ID="txtEmail" runat="server"></asp:TextBox> <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="txtEmail" ValidationExpression="\w+@\w+\.\w+" ErrorMessage="Invalid email" ForeColor="Red"> </asp:RegularExpressionValidator> <br /><br /> Password: <asp:TextBox ID="txtPassword" runat="server" TextMode="Password"> </asp:TextBox> <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtPassword" ErrorMessage="Password is required" ForeColor="Red"> </asp:RequiredFieldValidator> <br /><br /> Confirm Password: <asp:TextBox ID="txtConfirmPassword" runat="server" TextMode="Password"> </asp:TextBox> <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtConfirmPassword" ControlToCompare="txtPassword" Operator="Equal" ErrorMessage="Passwords do not match" ForeColor="Red"> </asp:CompareValidator> <br /><br /> Number: <asp:TextBox ID="txtNumber" runat="server"></asp:TextBox> <asp:CustomValidator ID="cvNumber" runat="server" ControlToValidate="txtNumber" ErrorMessage="Enter an even number" ForeColor="Red" OnServerValidate="cvNumber_ServerValidate"> </asp:CustomValidator> <br /><br /> <asp:Button ID="Button1" runat="server" Text="Submit" /> </form> </body> </html> LOGIC CODE — Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub cvNumber_ServerValidate( ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) _ Handles cvNumber.ServerValidate If Val(txtNumber.Text) Mod 2 = 0 Then args.IsValid = True Else args.IsValid = False End If End Sub Protected Sub Button1_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If Page.IsValid Then Response.Write("Validation successful") End If End Sub End Class