DaniWeb Forum Index > Web Development > ASP

how to get the values of checkboxes and delete them

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: May 2007

Posts: 1

Reputation: pavsuri is an unknown quantity at this point

Solved Threads: 0

pavsuri

Offline

Newbie Poster

how to get the values of checkboxes and delete them

May 7th, 2007

i want to get the checked checkboxes values to get deleted from the database.can u please help me in this ........................urgent.

•

Join Date: Jul 2005

Posts: 154

Reputation: katarey is an unknown quantity at this point

Solved Threads: 20

katarey

Offline

Junior Poster

Re: how to get the values of checkboxes and delete them

May 7th, 2007

Hi there,
have you tried to make this work?

well here the way do do this :
ASP :

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<%
'declare variables
Dim connstring, cn, rs
'Connection String
connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/conn/db1.mdb")
Sub OpenDataBase()
	Set cn = Server.CreateObject("ADODB.CONNECTION")
	cn.open connstring
End Sub
	'Open Database 
		OpenDataBase()
	'Create Recordset
		set rs = Server.CreateObject("ADODB.Recordset")
		sql = "Select * from users"
		rs.Open sql, cn
'If Form Submit this part will Execute		
if Request.Form("Delete") = "Delete" then	
	'Get All Checked checkbox
	checks = Request.Form("chkBox")
	'checkbox array 	
	check_a = split(checks, ",")		
	'SQL	
	str = ""
	str = "Delete from users where "
	'Adding checked checkbox values to Sql string
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next
	'Open Database 
	 OpenDataBase()
		'Execute SQL String
		cn.execute(str)	
		Response.Write "Record Deleted!"
%>
<%
'declare variables
Dim connstring, cn, rs
'Connection String
connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/conn/db1.mdb")
Sub OpenDataBase()
	Set cn = Server.CreateObject("ADODB.CONNECTION")
	cn.open connstring
End Sub
	'Open Database 
		OpenDataBase()
	'Create Recordset
		set rs = Server.CreateObject("ADODB.Recordset")
		sql = "Select * from users"
		rs.Open sql, cn
'If Form Submit this part will Execute		
if Request.Form("Delete") = "Delete" then	
	'Get All Checked checkbox
	checks = Request.Form("chkBox")
	'checkbox array 	
	check_a = split(checks, ",")		
	'SQL	
	str = ""
	str = "Delete from users where "
	'Adding checked checkbox values to Sql string
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next
	'Open Database 
	 OpenDataBase()
		'Execute SQL String
		cn.execute(str)	
		Response.Write "Record Deleted!"
%>

HTML :
[HTML]
<%else%>

<form action="CheckBox.asp" method="post" name="form1" id="form1">
<table border="1" cellspacing="2" cellpadding="2">
<tr>
<td>Delete</td>
<td>User Id</td>
<td>User Name</td>
</tr>
<%
c=0
do while not rs.eof
c=c+1
%>
<tr>
<td><input type="checkbox" name="chkBox" value="<%=rs("uid")%>"></td>
<td><%=rs("uid")%></td>
<td><%=rs("username")%></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan="3"><input name="Delete" type="submit" value="Delete" /></td>
</table>
</form>
<%end if%>
[/HTML]

I hope this will useful for you and others!

Regards,
Rahul Dev Katarey

Last edited by katarey; May 7th, 2007 at 8:48 pm.

Freelance Web Designer & Developer
Http//www.Katarey.com

•

Join Date: Jul 2005

Posts: 154

Reputation: katarey is an unknown quantity at this point

Solved Threads: 20

katarey

Offline

Junior Poster

Re: how to get the values of checkboxes and delete them

May 7th, 2007

Hi Again,

if above code not works so just replace

This Part :

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next

With :

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " OR uid = "& check_a(i)
		end if
	next
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " OR uid = "& check_a(i)
		end if
	next