Eu baixei um exemplo de deletar os registros do DB com checkBox ai
<% Option Explicit %>
<%
Dim intSno,intDelSno,conn,a
intSno=Request("Delete")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("db\dbDir.mdb"))
a=split(intSno,",")
dim iLoop
for iLoop=LBound(a) to UBound(a)
intDelSno=Trim(a(iLoop))
conn.Execute "delete from dir where sno=" & intDelSno & ""
next
Response.Redirect "ViewDir.asp"
conn.Close
set conn=nothing
%>
só que eu queria passar para update, tem tei trocar o sql para update mas não esta dando certo.
o codigo que chama essa pagina é esse
<%@ Language=VBScript %>
<%OPTION EXPLICIT%>
<BODY>
<FORM action="DELETE.asp" method="Post" name=Form>
<%
Dim conn,rs,intCounter,intMod,rcolor
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("db\dbDir.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT DIR.SNO,DIR.NAME, DIR.PHONE from DIR order by DIR.NAME", conn
%>
<table width="306" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr>
<th align="left" bgcolor=#DFE19D width="84" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b>
Selecione</b>
<th align="left" bgcolor=#DFE19D width="98" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b>
<td align="left" bgcolor=#DFE19D width="58" height="13" bordercolor="#FFFFFF" bordercolordark="#006699">
<p align="center"><b><font size="2" face="arial"> FONE</font></b></td>
</tr>
<%intCounter=0%>
<%do until rs.EOF%>
<%
intCounter=intCounter+1
intMod=intcounter mod 2
if intmod=0 then
rcolor = "#c0c0c0"
elseif intmod=1 then
rcolor = "#FFFFFF"
end if
%>
<tr>
<td align="left" bgcolor=<%=rcolor%> width="84" height="20">
<font size="2" face="arial" color="BLACK">
<width=35%>
<input type=CheckBox name=Delete value=<%=rs("SNO")%>>
<td align="left" bgcolor=<%=rcolor%> width="58" height="20"> <font size="2" face="arial" color="BLACK">
<%Response.Write (rs("name"))%>
</font>
<td align="center" bgcolor=<%=rcolor%> width="56" height="20"> <font size="2" face="arial" color="BLACK">
<%Response.Write(rs("PHONE"))%>
</font>
<%rs.MoveNext%>
</font></tr>
<%loop
SET rs=nothing
set conn=nothing
%>
</table>
<input type="submit" value="Deletar" name="B1">
</p>
</form>
</BODY>
Tenho um campo na tabela validador que quarda 0 para sites não autorizados e 1 para sites autorizados, então o usuario indica um site e vai para o db com 0 e não aparece para os demais, após o moderador dar um acordo passar a variavel do validador para 1 ai sim aparecerá para todos.
Então fiz uma intrução que apresente todos os registros dos tabela com o valor 0 e monta uma pagina para o moderador com uma checkBox para cada registro. Os sites que ele habilitar vai ter que selecionar a check e quando clicar no botão validar mandara para a tabela no campo validador o valor 1.
Entenderam, ou tem outro jeito mais simples de fazer?
Pergunta
joao.vanelli
Olá pessoas
Eu baixei um exemplo de deletar os registros do DB com checkBox ai
<% Option Explicit %> <% Dim intSno,intDelSno,conn,a intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("db\dbDir.mdb")) a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelSno=Trim(a(iLoop)) conn.Execute "delete from dir where sno=" & intDelSno & "" next Response.Redirect "ViewDir.asp" conn.Close set conn=nothing %>só que eu queria passar para update, tem tei trocar o sql para update mas não esta dando certo. o codigo que chama essa pagina é esse<%@ Language=VBScript %> <%OPTION EXPLICIT%> <BODY> <FORM action="DELETE.asp" method="Post" name=Form> <% Dim conn,rs,intCounter,intMod,rcolor set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("db\dbDir.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT DIR.SNO,DIR.NAME, DIR.PHONE from DIR order by DIR.NAME", conn %> <table width="306" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC"> <tr> <th align="left" bgcolor=#DFE19D width="84" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b> Selecione</b> <th align="left" bgcolor=#DFE19D width="98" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b> <td align="left" bgcolor=#DFE19D width="58" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <p align="center"><b><font size="2" face="arial"> FONE</font></b></td> </tr> <%intCounter=0%> <%do until rs.EOF%> <% intCounter=intCounter+1 intMod=intcounter mod 2 if intmod=0 then rcolor = "#c0c0c0" elseif intmod=1 then rcolor = "#FFFFFF" end if %> <tr> <td align="left" bgcolor=<%=rcolor%> width="84" height="20"> <font size="2" face="arial" color="BLACK"> <width=35%> <input type=CheckBox name=Delete value=<%=rs("SNO")%>> <td align="left" bgcolor=<%=rcolor%> width="58" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write (rs("name"))%> </font> <td align="center" bgcolor=<%=rcolor%> width="56" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write(rs("PHONE"))%> </font> <%rs.MoveNext%> </font></tr> <%loop SET rs=nothing set conn=nothing %> </table> <input type="submit" value="Deletar" name="B1"> </p> </form> </BODY>Tenho um campo na tabela validador que quarda 0 para sites não autorizados e 1 para sites autorizados, então o usuario indica um site e vai para o db com 0 e não aparece para os demais, após o moderador dar um acordo passar a variavel do validador para 1 ai sim aparecerá para todos.
Então fiz uma intrução que apresente todos os registros dos tabela com o valor 0 e monta uma pagina para o moderador com uma checkBox para cada registro. Os sites que ele habilitar vai ter que selecionar a check e quando clicar no botão validar mandara para a tabela no campo validador o valor 1.
Entenderam, ou tem outro jeito mais simples de fazer?
Obrigado
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.