Scribd
Upload
22 views6 pages

aps[1]

Uploaded by

ghevariyavidhee993
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
22 views6 pages

aps[1]

Uploaded by

ghevariyavidhee993
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 6

Imports System.Data.

SqlClient
Imports System.Data.SqlClient.SqlException
Imports System.Data

Public Class demo


Inherits System.Web.UI.Page

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


Handles Me.Load

End Sub

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


Handles Button1.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=c:\
users\jilsu\onedrive\documents\visual studio 2010\Projects\demoPro\demoPro\
App_Data\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cm As New SqlCommand("INSERT INTO demo VALUES ('" & TextBox1.Text &
"' ,'" & TextBox2.Text & "')", con)

con.Open()

If (TextBox1.Text = "" And TextBox2.Text = "") Then


MsgBox("please insert Records...")

Else
cm.ExecuteNonQuery()
con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
MsgBox("Success", MsgBoxStyle.Information, "Success...")
End If
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)


Handles Button2.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=c:\
users\jilsu\onedrive\documents\visual studio 2010\Projects\demoPro\demoPro\
App_Data\Database1.mdf;Integrated Security=True;User Instance=True")
Dim fetch As New SqlCommand("SELECT * FROM demo", con)
Dim da As New SqlDataAdapter(fetch)
Dim dt As New DataTable
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
End Sub

Private Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As


System.EventArgs) Handles GridView1.SelectedIndexChanged
TextBox3.Text =
HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(0).Text.ToString)
TextBox1.Text =
HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(1).Text.ToString)
TextBox2.Text =
HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(2).Text.ToString)
End Sub

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)


Handles Button3.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=c:\
users\jilsu\onedrive\documents\visual studio 2010\Projects\demoPro\demoPro\
App_Data\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cm As New SqlCommand("UPDATE demo SET name ='" & TextBox1.Text & "' ,
city ='" & TextBox2.Text & "' WHERE id =" & TextBox3.Text & "", con)

con.Open()
cm.ExecuteNonQuery()
con.Close()
MsgBox("Update Success", MsgBoxStyle.Information, "Success...")
End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)


Handles Button4.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=c:\
users\jilsu\onedrive\documents\visual studio 2010\Projects\demoPro\demoPro\
App_Data\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cm As New SqlCommand("DELETE FROM demo WHERE id ='" & TextBox3.Text &
"'", con)

con.Open()
cm.ExecuteNonQuery()
con.Close()
MsgBox("Delete Success", MsgBoxStyle.Information, "Success...")
End Sub
End Class

design file

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="demo.aspx.vb"


Inherits="demoPro.demo" %>

<!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: 100%;
}
.style2
{
width: 257px;
}
.style3
{
width: 257px;
height: 26px;
}
.style4
{
height: 26px;
}
.style5
{
height: 26px;
width: 292px;
}
.style6
{
width: 292px;
}
.style7
{
width: 257px;
height: 51px;
}
.style8
{
width: 292px;
height: 51px;
margin-left: 40px;
}
.style9
{
height: 51px;
}
.style10
{
width: 257px;
height: 29px;
}
.style11
{
width: 292px;
height: 29px;
}
.style12
{
height: 29px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;

</div>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
BackColor="#DEBA84" BorderColor="#DEBA84" BorderStyle="None"
BorderWidth="1px"
CellPadding="3" CellSpacing="2">
<Columns>
<asp:BoundField DataField="id" HeaderText="id" SortExpression="id" />
<asp:BoundField DataField="name" HeaderText="name"
SortExpression="name" />
<asp:BoundField DataField="city" HeaderText="city"
SortExpression="city" />
<asp:ButtonField ButtonType="Button" CommandName="Select"
HeaderText="select"
ShowHeader="True" Text="select" />
</Columns>
<FooterStyle BackColor="#F7DFB5" ForeColor="#8C4510" />
<HeaderStyle BackColor="#A55129" Font-Bold="True" ForeColor="White" />
<PagerStyle ForeColor="#8C4510" HorizontalAlign="Center" />
<RowStyle BackColor="#FFF7E7" ForeColor="#8C4510" />
<SelectedRowStyle BackColor="#738A9C" Font-Bold="True" ForeColor="White" />
<SortedAscendingCellStyle BackColor="#FFF1D4" />
<SortedAscendingHeaderStyle BackColor="#B95C30" />
<SortedDescendingCellStyle BackColor="#F1E5CE" />
<SortedDescendingHeaderStyle BackColor="#93451F" />
</asp:GridView>
<table class="style1">
<tr>
<td class="style3">
<asp:Label ID="Label1" runat="server" Text="Id"></asp:Label>
</td>
<td class="style5">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
</td>
<td class="style4">
</td>
<td class="style4">
</td>
<td class="style4">
</td>
</tr>
<tr>
<td class="style7">
name</td>
<td class="style8">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
</td>
<td class="style9">
<asp:RequiredFieldValidator ID="RequiredFieldValidator1"
runat="server"
ControlToValidate="TextBox1" ErrorMessage="please enter name"
ForeColor="Red"
ValidationGroup="i1"></asp:RequiredFieldValidator>
</td>
<td class="style9">
</td>
<td class="style9">
</td>
</tr>
<tr>
<td class="style2">
&nbsp;</td>
<td class="style6">
&nbsp;</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style10">
city</td>
<td class="style11">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</td>
<td class="style12">
<asp:RequiredFieldValidator ID="RequiredFieldValidator2"
runat="server"
ControlToValidate="TextBox2" ErrorMessage="please enter city"
ForeColor="Red"
ValidationGroup="i1"></asp:RequiredFieldValidator>
</td>
<td class="style12">
</td>
<td class="style12">
</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="Button1" runat="server" Text="Button"
ValidationGroup="i1" />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<asp:Button ID="Button2" runat="server" Text="fetch" />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td>
<td class="style6">
<asp:Button ID="Button3" runat="server" Text="Update" />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;
<asp:Button ID="Button4" runat="server" Text="Delete" />
</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
</table>
</form>
</body>
</html>

You might also like