Scribd
Upload
49 views

Code:-Aspx Code: Doctype HTML Head Title Title Style .Style1

This document contains code to create an ASP.NET web form with various controls like text boxes, radio buttons, check boxes, drop down lists, and file uploads. When the submit button is clicked, the code retrieves the values entered or selected in these controls and displays them in a label. It also uses sessions, cookies, query strings, view state, and application variables to store and retrieve data. The form is styled using CSS in a separate themes file.

Uploaded by

Sarang Rishit
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
49 views

Code:-Aspx Code: Doctype HTML Head Title Title Style .Style1

This document contains code to create an ASP.NET web form with various controls like text boxes, radio buttons, check boxes, drop down lists, and file uploads. When the submit button is clicked, the code retrieves the values entered or selected in these controls and displays them in a label. It also uses sessions, cookies, query strings, view state, and application variables to store and retrieve data. The form is styled using CSS in a separate themes file.

Uploaded by

Sarang Rishit
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 34

Q1.

Create a web page with following controls and display inputted/selected values: Text Box,
Radio Button, Radio Button List, Checkbox, Check box list, Calendar, Drop Down List. List
box, File Upload Control.
Code :-
aspx code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="reg.aspx.vb" Inherits="reg"
Theme="Theme1" %>

<!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>
<style type="text/css">
.style1
{
width: 463px;
}
.style2
{
}
.style3
{
}
.style4
{
width: 312px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td class="style3" colspan="2">
<h1>Register</h1>
</td>
</tr>
<tr>
<td class="style4">
&nbsp;
</td>
<td class="style1">
<asp:Label ID="lblmsg" runat="server"
ForeColor="White"></asp:Label>
</td>
</tr>
<tr>
<td class="style4">
Name :

1
</td>
<td class="style1">
<asp:TextBox ID="name" runat="server"></asp:TextBox>
</td>
<tr>
<td class="style4">
Gender :
</td>
<td class="style1">
<asp:RadioButton ID="rbMale" runat="server" Text="Male"
GroupName="xyz" />
<asp:RadioButton ID="rbFemale" runat="server" Text="Female"
GroupName="xyz" />
</td>
</tr>
</tr>
<tr>
<td class="style4">
Semester :
</td>
<td class="style1">
<asp:RadioButtonList ID="rbSem" runat="server" RepeatColumns="3"
RepeatDirection="Horizontal" Width="303px">
<asp:ListItem>Sem-1</asp:ListItem>
<asp:ListItem>Sem-2</asp:ListItem>
<asp:ListItem>Sem-3</asp:ListItem>
<asp:ListItem>Sem-4</asp:ListItem>
<asp:ListItem>Sem-5</asp:ListItem>
<asp:ListItem>Sem-6</asp:ListItem>
</asp:RadioButtonList>
</td>
</tr>
<tr>
<td class="style4">
Hobby :
</td>
<td class="style1">
<asp:CheckBox ID="chkMusic" runat="server" Text="Music" />
<asp:CheckBox ID="chkSwimming" runat="server" Text="Swimming" />
<asp:CheckBox ID="chkGaming" runat="server" Text="Gaming" />
</td>
</tr>
<tr>
<td class="style4">
Subject :
</td>
<td class="style1">
<asp:CheckBoxList ID="chksubject" runat="server"
RepeatColumns="3" RepeatDirection="Horizontal" Width="398px">
<asp:ListItem Value="100">JAVA</asp:ListItem>
<asp:ListItem Value="200">C++</asp:ListItem>
<asp:ListItem Value="300">ASP.NET</asp:ListItem>
<asp:ListItem Value="400">WEB DESIGNING</asp:ListItem>
<asp:ListItem Value="500">RDBMS</asp:ListItem>
</asp:CheckBoxList>

2
</td>
</tr>
<tr>
<td class="style4">
DOB :
</td>
<td class="style1">
<asp:TextBox ID="txtdate" runat="server"
TextMode="Date"></asp:TextBox>
</td>
</tr>
<tr>
<td class="style4">
City :
</td>
<td class="style1">
<asp:DropDownList ID="ddlcity" runat="server">
<asp:ListItem>--Select City--</asp:ListItem>
<asp:ListItem>Surat</asp:ListItem>
<asp:ListItem>Ahmedabad</asp:ListItem>
<asp:ListItem>Bhavnagar</asp:ListItem>
<asp:ListItem>Navsari</asp:ListItem>
<asp:ListItem>Bardoli</asp:ListItem>
<asp:ListItem>Valsad</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td class="style4">
Languages :</td>
<td class="style1">
<asp:ListBox ID="lsbLang" runat="server"
SelectionMode="Multiple">
<asp:ListItem>English</asp:ListItem>
<asp:ListItem>Hindi</asp:ListItem>
<asp:ListItem>Gujarati</asp:ListItem>
<asp:ListItem>Marathi</asp:ListItem>
<asp:ListItem>Telugu</asp:ListItem>
<asp:ListItem>Tamil</asp:ListItem>
<asp:ListItem>Bengoli</asp:ListItem>
<asp:ListItem>German</asp:ListItem>
<asp:ListItem>Spanish</asp:ListItem>
</asp:ListBox>
</td>
</tr>
<tr>
<td align="center" class="style2" colspan="2">
<asp:Button ID="btnsubmit" runat="server" Text="Submit"
Height="50px" Width="150px" />
</td>
</tr>
</table>
</div>
</form>
</body>

3
</html>

aspx.vb code

Partial Class reg


Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)


Handles btnsubmit.Click

'TextBox Code
Dim sname As String
sname = name.Text

'RadioButton Code
Dim str As String = ""
If rbMale.Checked = True Then
str = "Male"
Else
str = "Female"
End If
str = str.ToString()

'RadioButtonList Code
Dim sem As String
sem = rbSem.SelectedItem.ToString()

'CheckBox Code
Dim hobbies As String = ""
If chkMusic.Checked = True Then
hobbies = hobbies + " " +
chkMusic.Text.ToString() End If
If chkSwimming.Checked = True Then
hobbies = hobbies + " " + chkSwimming.Text.ToString()
End If
If chkGaming.Checked = True Then
hobbies = hobbies + " " + chkGaming.Text.ToString()
End If
hobbies = hobbies

'CheckBoxList Code
Dim subject As String = ""
Dim i As Integer = 0
For i = 0 To chksubject.Items.Count - 1
If (chksubject.Items(i).Selected = True) Then
subject = subject + " " + chksubject.Items(i).Text.ToString() + "(" +
chksubject.Items(i).Value.ToString() + ")"
End If
Next
subject = subject

4
'Calendar Code
Dim dob As String
dob = caldob.SelectedDate.ToString()

'DropDown Code
Dim city As String
city = ddlcity.SelectedItem.Text.ToString()

'ListBox Code
Dim lang As String = ""
Dim i1 As Integer = 0
For i1 = 0 To lsbLang.Items.Count - 1
If (lsbLang.Items(i1).Selected = True) Then
lang = lang + " " + lsbLang.Items(i1).Text.ToString()
End If
Next

'FileUpload Code
Dim path As String
path = Server.MapPath("Uploaded Files")
path = path + "\" +
FileUpload1.FileName
FileUpload1.SaveAs(path)

'Print All The Inputed Detail in Label


lblmsg.Text = "Name : " + sname + "<br/>" + "Gender : " + str + "<br/>" +
"Semester : " + sem + "<br/>" + "Hobbies : " + hobbies + "<br/>" + "Subject : " +
subject + "<br/>" + "DOB : " + dob + "<br/>" + "City : " + city + "<br/>" +
"Language
: " + lang + "<br/>" + "File : " + path

End Sub
End Class

Themes->.css File
body
{
background-color:#FFCC66;
font-size:large;
color:White;
font-family:Candara;
}
h1
{
color:#FFCC66;
padding-bottom:0;
font-size:55px;
text-decoration:underline;
}
#form1
{
background-color:#CC9900;
width:500px;
height:auto;
margin-left:auto;
5
margin-right:auto;

6
padding:30px;
}

td
{
padding-bottom:10px;
}

Output:-

7
Q2. Use session, query string, view state, cookies and application variable using
appropriate example (Set and Get).
Code :-
.aspx code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"
Inherits="_Default" %>

<!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>
<!-- Set values using various mechanisms -->
<% Session("UserName") = "Krishna"%>

<% Dim cookie As New HttpCookie("UserName") %>


<% cookie.Value = "Krishna"%>
<% Response.Cookies.Add(cookie) %>
<% Application("TotalUsers") = 100 %>
<% Response.Redirect("NextPage.aspx?param1=1&param2=2") %>
</div>
</form>
</body>
</html>

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

<!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>
<% ViewState("Counter") = 30 %>
<!-- Retrieve and display values from various mechanisms -->
<h2>Values retrieved from various mechanisms:</h2>
<p>Session State - UserName: <%= Session("UserName") %></p>
<p>View State - Counter: <%= ViewState("Counter") %></p>
<p>Cookies - UserName: <%= If(Request.Cookies("UserName") IsNot Nothing,
8
Request.Cookies("UserName").Value, String.Empty) %></p>

9
<p>Application Variable - TotalUsers: <%= Application("TotalUsers")
%></p>

<!-- Retrieve and display query string values -->


<h2>Query String Values:</h2>
<p>param1: <%= Request.QueryString("param1") %></p>
<p>param2: <%= Request.QueryString("param2") %></p>
</div>
</form>
</body>
</html>

Output:-

1
0
Q3. Develop web form for Vehicle Entry (Only HTML/ASPX Code).using appropriate
master page, header, footer and data base table.
[Hint: Vehicle Master (V_Id, V_Name. V_Type, OwnerName, V
PurchaseAmount, OwnerContactNo, OwnerEmail, OwnerAddress, V_RegDate)]
Code :-
Vehicle Entry Form
.aspx code
<%@ Page Title="" Language="VB"
MasterPageFile="~/MasterPage.master" AutoEventWireup="false"
CodeFile="reg.aspx.vb" Inherits="reg" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">
<div class="tbl">
<br />
<table>
<tr>
<td colspan="2">
<h1 class="ttl" style="color: #66FFCC">
Entry Form</h1>
</td></tr>
<tr>
<td colspan="2">
<asp:Label ID="lblmsg" runat="server"
ForeColor="#66FFCC"></asp:Label>
</td>
</tr>
<tr>
<td style="width: 646px; height: 30px;">
Vehicle Name :
</td>
<td style="width: 1016px; height: 30px;">
<asp:DropDownList ID="vname" runat="server" Height="40px"
Width="154px">
<asp:ListItem>--Select Name--</asp:ListItem>
<asp:ListItem>Activa</asp:ListItem>
<asp:ListItem>Maruti Suzuki</asp:ListItem>
<asp:ListItem>OLA</asp:ListItem>
<asp:ListItem>Splender</asp:ListItem>
<asp:ListItem>Access 125</asp:ListItem>
<asp:ListItem>Ford Mustang</asp:ListItem>
<asp:ListItem>KIA</asp:ListItem>
<asp:ListItem>Rickshaw</asp:ListItem>
<asp:ListItem>Mahindra</asp:ListItem>
</asp:DropDownList>
</td></tr>
<tr>
<td style="height: 31px; width: 646px;">
Vehicle Type :
</td>
<td style="height: 31px; width: 1016px;">
<asp:RadioButton ID="twowheel" runat="server" GroupName="type"

1
1
Text="Two Wheeler" ValidationGroup="abc" />

1
2
<br />
<asp:RadioButton ID="threewheel" runat="server" GroupName="type"
Text="Three Wheeler" ValidationGroup="abc" />
<br />
<asp:RadioButton ID="fourwheel" runat="server" GroupName="type"
Text="Four Wheeler" ValidationGroup="abc" />
</td></tr>
<tr>
<td style="width: 646px">
Owner Name :
</td>
<td style="width: 1016px">
<asp:TextBox ID="oname" runat="server"></asp:TextBox>
</td></tr>
<tr>
<td style="width: 646px">
Vehicle Purchase Amount
:
</td>
<td style="width: 1016px">
<asp:TextBox ID="pamount" runat="server"
TextMode="Number"></asp:TextBox>
</td></tr>
<tr>
<td style="width: 646px">
Contact No. :
</td>
<td style="width: 1016px">
<asp:TextBox ID="cno" runat="server"
TextMode="Number"></asp:TextBox>
</td></tr>
<tr>
<td style="width: 646px">
Email :
</td>
<td style="width: 1016px">
<asp:TextBox ID="email" runat="server"></asp:TextBox>
</td></tr>
<tr>
<td style="width: 646px">
Address :
</td>
<td style="width: 1016px">
<asp:TextBox ID="address" runat="server" Height="41px"
TextMode="MultiLine"></asp:TextBox>
</td></tr>
<tr>
<td style="height: 30px; width: 646px;">
Vehicle Register Date :
</td>
<td style="height: 30px; width: 1016px;">
<asp:TextBox ID="vregdate" runat="server"></asp:TextBox>
</td></tr>
<tr>
<td colspan="2" align="center">

1
<asp:Button ID="updatebtn" runat="server" Text="Update"
ValidationGroup="abc" Height="45px" Width="80px" Visible="False" />
<asp:Button ID="submit" runat="server" Text="Submit"
ValidationGroup="abc" Height="45px" Width="80px" />
<asp:Button ID="reset" runat="server" Text="Reset" Height="45px"
Width="80px" />
</td></tr>
</table>
</div>
&nbsp;&nbsp;&nbsp;
<br />
</asp:Content>

Output:-

->Master Page
.aspx code
<%@ Master Language="VB" CodeFile="MasterPage.master.vb" Inherits="MasterPage" %>
<!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>
<style type="text/css">
.style2

1
{
width: 1243px;}
</style>
</head>
<body>
<form id="form1" runat="server">
<div style="width: 982px; margin-right: 415px">
<table>

<tr>
<td class="style2">
<h1 align="center" style="color: #006666">Vehicle
Register</h1></td>
</tr>
<tr>
<td class="style1">
<asp:ContentPlaceHolder ID="ContentPlaceHolder1" runat="server">
</asp:ContentPlaceHolder>
</td></tr>
<tr>
<td class="style2" align="center" style="color: #006666">Copyright
© Vehicle LTD. All rights reserved.
</td></tr>
</table>
</div>
</form>
</body>
</html>

DataBase Table

Output :-

1
Q4. Apply validations in the form developed in the above Question No. 3.
Code :-
.aspx code
<tr>
<td style="width: 646px">
Owner Name :
</td>
<td style="width: 1016px">
<asp:TextBox ID="oname" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3"
runat="server" ControlToValidate="oname" ErrorMessage="Enter the Owner Name."
ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 646px">
Vehicle Purchase Amount :
</td>
<td style="width: 1016px">
<asp:TextBox ID="pamount" runat="server"
TextMode="Number"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4"
runat="server" ControlToValidate="pamount" ErrorMessage="Enter the Purchase
Amount." ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 646px">
Contact No. :
</td>
<td style="width: 1016px">
<asp:TextBox ID="cno" runat="server" TextMode="Number"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5"
runat="server" ControlToValidate="cno" ErrorMessage="Enter your Contact Number."
ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 646px">
Email :
</td>
<td style="width: 1016px">
<asp:TextBox ID="email" runat="server"></asp:TextBox>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1"
runat="server" ControlToValidate="email" ErrorMessage="Enter Valid Email Adress."
ForeColor="Red" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
ValidationGroup="abc">*</asp:RegularExpressionValidator>
<asp:RequiredFieldValidator ID="RequiredFieldValidator10"
runat="server" ControlToValidate="email" ErrorMessage="Enter your Email Adress."
ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>

1
<tr>
<td style="width: 646px">
Address :
</td>
<td style="width: 1016px">
<asp:TextBox ID="address" runat="server" Height="41px"
TextMode="MultiLine"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7"
runat="server" ControlToValidate="address" ErrorMessage="Enter Your current
Adress." ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="height: 30px; width: 646px;">
Vehicle Register Date :
</td>
<td style="height: 30px; width: 1016px;">
<asp:TextBox ID="vregdate" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator8"
runat="server" ControlToValidate="vregdate" ErrorMessage="Select your Vehicle
Register Date." ForeColor="Red" ValidationGroup="abc">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>
</td>
<td>
<asp:TextBox ID="txtSearch" runat="server"></asp:TextBox>
<asp:Button ID="search" runat="server" Text="Search" Height="39px"
Width="74px" />
</td>
</tr>
<tr>
<td colspan=2>
<asp:ValidationSummary ID="ValidationSummary1" runat="server"
ForeColor="Red" ShowMessageBox="True" ValidationGroup="abc" style="margin-top: 5px"
/>
</td>
</tr>
<tr>
<td colspan=2 align="center">
<asp:Button ID="updatebtn" runat="server"
Text="Update" ValidationGroup="abc" Height="45px" Width="80px"
Visible="False" />
<asp:Button ID="submit" runat="server" Text="Submit"
ValidationGroup="abc" Height="45px" Width="80px" />
<asp:Button ID="reset" runat="server" Text="Reset" Height="45px"
Width="80px"/>
</td>
</tr>

1
Output:-

1
Q5. Develop code for insert, update, search and delete facilities using form developed in
the above Question No. 3. Where GridView Control can be used.
Output:-

Access Database

Added this code in .aspx code


<tr>
<td>
</td>
<td style="width: 1016px">

1
<asp:TextBox ID="txtSearch" runat="server"></asp:TextBox>
<asp:Button ID="search" runat="server" Text="Search" Height="39px"
Width="74px" />
</td>
</tr>
<tr>
<td colspan=2>
<asp:GridView ID="vehicledata" runat="server" CellPadding="4"
ForeColor="#333333" DataKeyNames="VId" EmptyDataText="No Records Found">
<AlternatingRowStyle BackColor="White" />
<Columns>
<asp:TemplateField ShowHeader="False">
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server"
CausesValidation="False" CommandName="Delete" onclientclick="return confirm('Are sure
to delete');">Delete</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ShowHeader="False">
<ItemTemplate>
<asp:LinkButton ID="LinkButton2" runat="server"
CausesValidation="False" CommandName="Select" Text="Edit"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<EditRowStyle BackColor="#7C6F57" />
<FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White"
/>
<HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White"
/>
<PagerStyle BackColor="#666666" ForeColor="White"
HorizontalAlign="Center" />
<RowStyle BackColor="#E3EAEB" />
<SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True"
ForeColor="#333333" />
<SortedAscendingCellStyle BackColor="#F8FAFA" />
<SortedAscendingHeaderStyle BackColor="#246B61" />
<SortedDescendingCellStyle BackColor="#D4DFE1" />
<SortedDescendingHeaderStyle BackColor="#15524A" />
</asp:GridView>
</td>
</tr>
<tr>
<td colspan=2 align="center">
<asp:Button ID="updatebtn" runat="server"
Text="Update" ValidationGroup="abc" Height="45px" Width="80px"
Visible="False" />
<asp:Button ID="submit" runat="server" Text="Submit"
ValidationGroup="abc" Height="45px" Width="80px" />
<asp:Button ID="reset"
runat="server" Text="Reset" Height="45px" Width="80px"/></td>
</tr>

aspx.vb code to connect database and display It


Imports System.Data.OleDb
1
Imports System.Data
Partial Class reg
Inherits System.Web.UI.Page

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\


ASP JOURNAL\jq3\App_Data\dbvehicle.mdb;Persist Security Info=True")
Dim cmd As New OleDbCommand
Protected Sub reset_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles reset.Click
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)


Handles Me.Load
DisplayData()
End Sub

Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)


Handles Me.PreInit
Me.Theme = "Theme"
End Sub

Sub DisplayData()
Dim dt As New DataTable
Dim rdr As IDataReader
Dim strQuery As String = "Select * from vehicle"
cmd = New OleDbCommand(strQuery, con)
con.Open()
rdr = cmd.ExecuteReader
dt.Load(rdr)
con.Close()
vehicledata.DataSource = dt
vehicledata.DataBind()
End Sub

Insert Facility

1
Access Database

.aspx.vb code (Insert)


Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles submit.Click

Dim strtype As String = ""


If (twowheel.Checked = True) Then
strtype = "Two Wheeler"
ElseIf (threewheel.Checked = True) Then
strtype = "Three Wheeler"
Else
strtype = "Four wheeler"
End If
Dim StrQuery As String = "Insert into
vehicle(VName,VType,OName,PAmount,CNo,Email,Address,VRegDate) values('" +
vname.SelectedItem.Text.ToString() + "','" + strtype + "','" + oname.Text + "','" +
pamount.Text + "','" + cno.Text + "','" + email.Text + "','" + address.Text + "','" +
vregdate.Text + "')"
cmd = New OleDb.OleDbCommand(StrQuery, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
lblmsg.Text = "Record Inserted Successfully"
vname.SelectedIndex = 0
twowheel.Checked = False
threewheel.Checked = False
fourwheel.Checked = False
oname.Text = ""
pamount.Text = ""
cno.Text = ""
email.Text = ""
address.Text = ""
vregdate.Text = ""
DisplayData()
End Sub

1
Update Facility

Access Database

.aspx.vb code (Update)


Protected Sub vehicledata_SelectedIndexChanging(ByVal sender As Object, ByVal e
As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles
vehicledata.SelectedIndexChanging
updatebtn.Visible = True
submit.Visible = False
Dim vid As String =
vehicledata.DataKeys(e.NewSelectedIndex)("VId").ToString()
ViewState("vid") = vid
Dim dt As New DataTable
Dim rdr As IDataReader
Dim strQuery As String = "Select * from vehicle where VId=" + vid
cmd = New OleDbCommand(strQuery, con)
con.Open()
rdr = cmd.ExecuteReader

2
dt.Load(rdr)
con.Close()
If (dt.Rows.Count > 0) Then
vname.SelectedItem.Text = dt.Rows(0)
("VName").ToString() Dim strtype As String = dt.Rows(0)
("VType").ToString()
If (strtype = "two Wheeler")
Then twowheel.Checked = True
threewheel.Checked = False
fourwheel.Checked = False
ElseIf (strtype = "three wheeler") Then
twowheel.Checked = False
threewheel.Checked = True
fourwheel.Checked = False
Else
twowheel.Checked = False
threewheel.Checked = False
fourwheel.Checked = True
End If
oname.Text = dt.Rows(0)("OName").ToString()
pamount.Text = dt.Rows(0)("PAmount").ToString()
cno.Text = dt.Rows(0)("CNo").ToString()
email.Text = dt.Rows(0)("Email").ToString()
address.Text = dt.Rows(0)("Address").ToString()
vregdate.Text = dt.Rows(0)("VRegDate").ToString()
End If
End Sub

Protected Sub updatebtn_Click(ByVal sender As Object, ByVal e As


System.EventArgs) Handles updatebtn.Click
Dim strtype As String = ""
If (twowheel.Checked = True) Then
strtype = "Two Wheeler"
ElseIf (threewheel.Checked = True) Then
strtype = "Three Wheeler"
Else
strtype = "Four wheeler"
End If
Dim StrQuery As String = "update vehicle set VName='" + vname.Text +
"',VType='" + strtype.ToString() + "',OName='" + oname.Text + "',PAmount='" +
pamount.Text + "',CNo='" + cno.Text + "',Email='" + email.Text + "',Address='" +
address.Text + "',VRegDate='" + vregdate.Text + "' where vid=" +
ViewState("vid").ToString()
cmd = New OleDb.OleDbCommand(StrQuery, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
lblmsg.Text = "Record Updated
Successfully" vname.SelectedIndex = 0
twowheel.Checked = False
threewheel.Checked = False
fourwheel.Checked = False
oname.Text = ""
pamount.Text = ""
cno.Text = ""
email.Text = ""

2
address.Text = ""
vregdate.Text = ""
vname.SelectedItem.Text = "--Select Name--"
DisplayData()
updatebtn.Visible = False
submit.Visible = True
End Sub

Search Facility

.aspx.vb code (Search)


Protected Sub search_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles search.Click
Dim dt As New DataTable
Dim rdr As IDataReader
Dim strQuery As String = "Select * from vehicle where VId like '%" +
txtSearch.Text + "%' OR VType like '%" + txtSearch.Text + "%'"
cmd = New OleDbCommand(strQuery, con)
con.Open()
rdr = cmd.ExecuteReader
dt.Load(rdr)
con.Close()
vehicledata.DataSource = dt
vehicledata.DataBind()
End Sub

Delete Facility

2
Access Database

.aspx.vb code (Delete)


Protected Sub vehicledata_RowDeleting(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles
vehicledata.RowDeleting
Dim strVId As String = vehicledata.DataKeys(e.RowIndex)("VId").ToString
Dim strQuery As String
strQuery = "Delete from vehicle Where VId=" + strVId
cmd = New OleDbCommand(strQuery, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
lblmsg.Text = "Record Deleted
Successfully" DisplayData()
End Sub

2
Q6. Create and consume a web service to display multiplication and division operations.
Code :-
.aspx code
<%@ Page Language="VB" AutoEventWireup="false"
CodeFile="consumeWebService.aspx.vb" Inherits="consumeWebService" Theme="Theme" %>

<!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" class=tbl1>
<div>
Enter No1
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br /><br />
Enter No2
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox><br /><br />
<asp:Button ID="mult" runat="server" Text="Multiplication" Height="44px"
Width="103px" />
<asp:Button ID="div" runat="server" Text="Division" Height="44px"
Width="103px" /><br /><br />
<asp:Label ID="Label1" runat="server"></asp:Label>
</div>
</form>
</body>
</html>

.aspx.vb code
Partial Class consumeWebService
Inherits System.Web.UI.Page

Protected Sub mult_Click(ByVal sender As Object, ByVal e As System.EventArgs)


Handles mult.Click
Dim obj As New WebService
Dim str As String
str = obj.multiplication(TextBox1.Text,
TextBox2.Text) Label1.Text = "Multiplication : " +
str
End Sub

Protected Sub div_Click(ByVal sender As Object, ByVal e As System.EventArgs)


Handles div.Click
Dim obj As New WebService
Dim str As String
str = obj.division(TextBox1.Text,
TextBox2.Text) Label1.Text = "Division : " +
str

2
End Sub
End Class

2
App Code -> .vb code
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class WebService
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function multiplication(ByVal a As Integer, ByVal b As Integer) As String
Return a * b
End Function
<WebMethod()> _
Public Function division(ByVal a As Integer, ByVal b As Integer) As String
Return a / b
End Function
End Class

Output :-

2
Q7. Apply exception handling in Question No.3

->When insert date in form the exception occurs

.aspx.vb code
Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles submit.Click

Try
Dim strtype As String = ""
If (twowheel.Checked = True)
Then strtype = "Two Wheeler"
ElseIf (threewheel.Checked = True) Then
strtype = "Three Wheeler"
Else
strtype = "Four wheeler"
End If
Dim StrQuery As String = "Insert into
vehicle(VName,VType,OName,PAmount,CNo,Email,Address,VReDate) values('" +
vname.SelectedItem.Text.ToString() + "','" + strtype + "','" + oname.Text + "','" +
pamount.Text + "','" + cno.Text + "','" + email.Text + "','" + address.Text + "','" +
vregdate.Text + "')"
cmd = New OleDb.OleDbCommand(StrQuery, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
lblmsg.Text = "Record Inserted
Successfully" vname.SelectedIndex = 0
twowheel.Checked = False
threewheel.Checked = False
fourwheel.Checked = False
oname.Text = ""
pamount.Text = ""
cno.Text = ""
email.Text = ""
address.Text = ""
vregdate.Text = ""
DisplayData()
Catch ex As Exception
Response.Write(ex)
End Try

End Sub

2
Q8. Apply themes in Question No.3
Code :-
add in .aspx.vb code for Apply Theme
Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.PreInit
Me.Theme = "Theme"
End Sub

Themes->.skin File
<asp:TextBox runat="server" BorderColor="#999999" BorderStyle="Double"
Height="32px" Width="150px"></asp:TextBox>

Themes->.css File
body
{
background-color:#33CCCC;
}

.tbl
{
margin-left:auto;
margin-right:auto;
height:auto;
width:910px;
background-color:#009999;
padding:30px;
padding-left:60px;
color:White;
}
.frmmst
{
margin-left:400px;
margin-right:auto;
height:auto;
}
td
{
padding-bottom:20px;
}

.ttl
{
font-size:50px;
}

2
Output:-

2
Q9. Apply proper security in Question No.3
Code :-
.aspx.vb code
Imports System.Data.OleDb
Imports System.Data
Partial Class reg
Inherits System.Web.UI.Page

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\


ASP JOURNAL\jq3\App_Data\dbvehicle.mdb;Persist Security Info=True")
Dim cmd As New OleDbCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
If Not (Session("uname") Is Nothing) Then
Else
Response.Redirect("LoginPage.aspx")
End If
DisplayData()
End Sub

Protected Sub btnlogout_Click(ByVal sender As Object, ByVal e As


System.EventArgs) Handles btnlogout.Click
Session.Abandon()
Response.Redirect("LoginPage.aspx")
End Sub

Output:-

2
3

You might also like