In this article we will
delete items in a datalist control from the database by selecting radiobutton
and checkbox using a delete button.
Table Structure
Create table
student (sid varchar(50) primary key,sname varchar(50),saddress
varchar(50),smarks int,year varchar(50))
Default.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>Untitled
Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:label id="Label1"
runat="server" Font-Bold="True"></asp:label>
<asp:datalist id="DataList1" runat="server" DataKeyField="sid">
<HeaderTemplate>
<table>
<tr>
<th><font color="red">ID</font></th>
<th><font color="red">Name</font></th>
<th><font color="red">Address</font></th>
<th><font color="red">Marks</font></th>
<th><font color="red">Year</font></th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td><asp:RadioButton ID="r1" Text='<%#container.dataitem("sid")%>' Runat="server">
</asp:RadioButton></td>
<td><%#container.dataitem("sid")%></td>
<td><%#container.dataitem("sname")%></td>
<td><%#container.dataitem("saddress")%></td>
<td><%#container.dataitem("smarks")%></td>
<td><%#container.dataitem("year")%></td>
</tr>
</ItemTemplate>
<HeaderStyle BackColor="#FFCC66" />
<FooterTemplate>
</table>
</FooterTemplate>
</asp:datalist>
<asp:button id="btndelete" runat="server" Text="Select Radiobutton
Delete" Font-Bold="True">
</asp:button>
<hr />
<asp:datalist id="DataList2" runat="server" DataKeyField="sid">
<HeaderTemplate>
<table>
<tr>
<th><font color="red">ID</font></th>
<th><font color="red">Name</font></th>
<th><font color="red">Address</font></th>
<th><font color="red">Marks</font></th>
<th><font color="red">Year</font></th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td><asp:CheckBox ID="chkid" Text='<%#container.dataitem("sid")%>' Runat="server"/></td>
<td><%#container.dataitem("sid")%></td>
<td><%#container.dataitem("sname")%></td>
<td><%#container.dataitem("saddress")%></td>
<td><%#container.dataitem("smarks")%></td>
<td><%#container.dataitem("year")%></td>
</tr>
</ItemTemplate>
<HeaderStyle BackColor="#FFCC66" />
<FooterTemplate>
</table>
</FooterTemplate>
</asp:datalist>
<asp:button id="btndelete1" runat="server" Text="Select CheckBox
Delete" Font-Bold="True">
</asp:button>
</div>
</form>
</body>
</html>
Default.aspx.vb code
Imports
System.Data.SqlClient
Imports
System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Dim strConnString As String =
System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
Dim con As New SqlConnection(strConnString)
Dim sqlda As
SqlDataAdapter
Dim com As
SqlCommand
Dim ds As
DataSet
Dim str As String
Protected Sub
Page_Load(ByVal sender
As Object, ByVal
e As System.EventArgs)
Handles Me.Load
If Not
IsPostBack Then
displayinlist()
displayinlist1()
End If
End Sub
Private Sub
displayinlist()
Try
con.Open()
str =
"select * from student"
com =
New SqlCommand(str, con)
sqlda =
New SqlDataAdapter(com)
ds =
New DataSet
sqlda.Fill(ds,
"student")
con.Close()
DataList1.DataSource = ds
DataList1.DataMember = "student"
DataList1.DataBind()
Catch ex As
Exception
Label1.Text =
ex.Message
End Try
End Sub
Private Sub
displayinlist1()
Try
con.Open()
str =
"select * from student"
com =
New SqlCommand(str, con)
sqlda =
New SqlDataAdapter(com)
ds =
New DataSet
sqlda.Fill(ds,
"student")
con.Close()
DataList2.DataSource = ds
DataList2.DataMember = "student"
DataList2.DataBind()
Catch ex As
Exception
Label1.Text =
ex.Message
End Try
End Sub
Protected Sub
btndelete_Click(ByVal sender
As Object,
ByVal e As
System.EventArgs) Handles btndelete.Click
Dim s, s1 As String
Dim flag As Byte
Dim dli As
DataListItem
For Each dli
In DataList1.Items
Dim rb As
RadioButton = DirectCast(dli.FindControl("r1"),
RadioButton)
If rb.Checked Then
flag = 1
s +=
"'" & DataList1.DataKeys(dli.ItemIndex).ToString()
& "'" + ","
End If
Next
If flag = 1 Then
btndelete.Enabled = True
s1 = Mid(s, 1,
Len(s) - 1)
con.Open()
str =
"delete from student where sid in(" & s1 &
")"
com =
New SqlCommand(str, con)
com.ExecuteNonQuery()
con.Close()
displayinlist()
displayinlist1()
End If
End Sub
Protected Sub
btndelete1_Click(ByVal sender
As Object,
ByVal e As
System.EventArgs) Handles btndelete1.Click
Dim s2, s3 As String
Dim flag As Byte
Dim dli As
DataListItem
For Each dli
In DataList2.Items
Dim cb As
CheckBox = DirectCast(dli.FindControl("chkid"),
CheckBox)
If cb.Checked Then
flag = 1
s2 +=
"'" & DataList2.DataKeys(dli.ItemIndex).ToString()
& "'" + ","
End If
Next
If flag = 1 Then
btndelete.Enabled = True
s3 = Mid(s2,
1, Len(s2) - 1)
con.Open()
str =
"delete from student where sid in(" & s3 &
")"
com =
New SqlCommand(str, con)
com.ExecuteNonQuery()
con.Close()
displayinlist()
displayinlist1()
End If
End Sub
End Class
Output
Thanks for reading.