ASSIGNMENT=07
Q.1) Write a program to perform insert,update and delete using
repeater control in your webfrom.
Imports [Link]
Imports [Link]
Partial Class _Default
Inherits [Link]
Dim db_conn As New
OleDbConnection("Provider=[Link].4.0;Data
Source='C:\Users\ravip\Desktop\ravi prajapati\ASPNET\[Link]'")
Dim db_adepter As New OleDbDataAdapter("Select * from Table1",
db_conn)
Dim d_set As New DataSet
Dim query As String
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "Insert into Table1(Name,Address,PhoneNo) values
(@name,@add,@phone)"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]("@add", [Link])
[Link]("@phone", [Link])
[Link]()
d_set.Clear()
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "update Table1 set Name=@name,PhoneNo=@phone where
Address=@add"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]("@phone", [Link])
[Link]("@add", [Link])
ASSIGNMENT=07
[Link]()
d_set.Clear()
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "delete from Table1 where name =@name"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]()
d_set.Clear()
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
End Class
[Link]
<%@ Page Language="VB" AutoEventWireup="false"
CodeFile="[Link]" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"[Link]
<html xmlns="[Link]
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
ASSIGNMENT=07
<asp:Label ID="Label1" runat="server"
Text="NAME"></asp:Label>
<asp:TextBox ID="TextBox1" runat="server" style="margin-
left: 14px"
Width="233px"></asp:TextBox>
<br />
<br />
<asp:Label ID="Label2" runat="server"
Text="Address"></asp:Label>
<asp:TextBox ID="TextBox2" runat="server" style="margin-
left: 14px"
Width="233px"></asp:TextBox>
<br />
<br />
<asp:Label ID="Label3" runat="server"
Text="Ph_no"></asp:Label>
<asp:TextBox ID="TextBox3" runat="server" style="margin-
left: 14px"
Width="233px"></asp:TextBox>
<br />
<br />
<asp:Button ID="Button1" runat="server" Text="INSERT" />
<asp:Button ID="Button2" runat="server" Text="UPDATE" />
<asp:Button ID="Button3" runat="server" Text="DELETE" />
</div>
<asp:Repeater ID="Repeater1" runat="server"
DataSourceID="SqlDataSource1">
<HeaderTemplate>
<table border>
<tr style="background-color : Red; color:White;">
<th>ID</th>
<th>NAME</th>
<th>Address</th>
<th>Ph number</th>
ASSIGNMENT=07
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr style="background-color:Aqua; color:Black;">
<td><%#Eval("ID")%></td>
<td><%#Eval("NAME")%></td>
<td><%#Eval("Address")%></td>
<td><%#Eval("PhoneNo")%></td>
</tr>
</ItemTemplate>
<AlternatingItemTemplate>
<tr style="background-color:blue; color:white;">
<td><%#Eval("ID")%></td>
<td><%#Eval("NAME")%></td>
<td><%#Eval("Address")%></td>
<td><%#Eval("PhoneNo")%></td>
</tr>
</AlternatingItemTemplate>
<FooterTemplate></table></FooterTemplate>
</asp:Repeater>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$
ConnectionStrings:Data4ConnectionString2 %>"
ProviderName="<%$
ConnectionStrings:[Link] %>"
SelectCommand="SELECT * FROM [Table1]"></asp:SqlDataSource>
</form>
</body>
</html>
ASSIGNMENT=07
Output:
Insert:
Update:
Delete: