Como fazer um update que atualize vários registros na mesma tabela?
fiz dessa forma
sql = "UPDATE enquete SET liberado= "&liberar&" WHERE idenquete In ("& id &");"
mas acontece o seguinte erro:
Tipo de erro:
Microsoft JET Database Engine (0x80040E10)
Nenhum valor foi fornecido para um ou mais parâmetros necessários.
Update
Started By fdebortoli, 21/06/2004, 12:24
2 replies to this topic
#1
fdebortoli
-
- Usuários
-
- 250 posts
12 Horas
- Sexo:Masculino
- Localidade:Joinville-SC
Posted 21/06/2004, 12:24
#3
fdebortoli
-
- Usuários
-
- 250 posts
12 Horas
- Sexo:Masculino
- Localidade:Joinville-SC
Posted 21/06/2004, 12:58
a função de excluir tá funcionando quando seleciono mais de um checkbox mas a update não.
segue código:
ENQUETE.ASP
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
'faz consulta
Set RS = Server.CreateObject("ADODB.Recordset")
Consulta = "Select * From enquete"
RS.Open Consulta, Conexao %>
<%
'deleta
var = request.form("delete_conteudo")
if var <> "" then
conexao.execute "delete from enquete where idenquete in (" & var & ")"
response.Redirect("enquete.asp")
end if
%>
<script>
function cadastro(){
window.open("enquete_insert.asp","enquete","width=620, height=434, menubar=no, top=0, left=0");{
}
}
</script>
<html>
<head>
<title>Administração</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
color: #000000;
}
.style2 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style3 {font-size: 10px}
.style5 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style6 {font-size: 14px}
.style7 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style9 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
.style10 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" valign="top"><!--#include file="inc_menu.asp"--></td>
<td width="79%" valign="top"><form action="enquete_liberar.asp" method="post" name="conteudo" id="conteudo">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="3"><span class="style9"> Enquete<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span></td>
</tr>
<tr>
<td width="21%"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="3"><input name="inserir" type="button" id="inserir" onClick="cadastro()" value="cadastrar nova">
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
</tr>
<tr>
<td> </td>
<td colspan="2"></td>
</tr>
<tr>
<td class="style10">Deleta</td>
<td width="24%"><span class="style10">Liberar Enquete </span></td>
<td width="55%" class="style10">Chamada</td>
</tr>
<% while not RS.EOF
xx = xx + 1
cont = cont + 1
If cont mod 2 <> 0 Then
cor = "bgcolor='#F0F0F0'"
Else
cor = "bgcolor='#FFFFFF'"
End If
%>
<tr <%=cor%>>
<td><input type="checkbox" name="delete_conteudo" value="<%=RS("IDEnquete")%>"></td>
<td><font color="#333333" face="Arial, Helvetica, sans-serif" size="2">
<input type="hidden" name="id" value="<%=rs("idenquete")%>">
<input name="liberar" type="checkbox" <%if rs("liberado") = true then response.Write("checked")%> value="-1">
</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="java script:" style="cursor:hand" onClick="window.open('enquete_update.asp?idenquete=<%=RS("IDEnquete")%>','','top=5,left=5,width=620, height=434')"><%=RS("Chamada")%></a></font></td>
</tr>
<% RS.MoveNext
Wend %>
<tr>
<td><input type="submit" name="deleta" value="deleta" onClick="java script:conteudo.action='enquete.asp';conteudo.submit();"></td>
<td colspan="2"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"><span class="style9"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span> </font>
<input name="atualizar" type="submit" id="atualizar" value="atualizar">
</td>
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font> </tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<% RS.close
set RS = nothing
conexao.close
set conexao = nothing %>
enquete_liberar.asp pg que faz o update
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
id = request.form("id")
if request.form("liberar")= "-1" then
liberar = true
else
liberar = false
end if
sql = "UPDATE enquete SET liberado= "&liberar&" WHERE idenquete In ("& id &");"
conexao.execute(SQL)
response.write(SQL)
%>
segue código:
ENQUETE.ASP
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
'faz consulta
Set RS = Server.CreateObject("ADODB.Recordset")
Consulta = "Select * From enquete"
RS.Open Consulta, Conexao %>
<%
'deleta
var = request.form("delete_conteudo")
if var <> "" then
conexao.execute "delete from enquete where idenquete in (" & var & ")"
response.Redirect("enquete.asp")
end if
%>
<script>
function cadastro(){
window.open("enquete_insert.asp","enquete","width=620, height=434, menubar=no, top=0, left=0");{
}
}
</script>
<html>
<head>
<title>Administração</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
color: #000000;
}
.style2 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style3 {font-size: 10px}
.style5 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style6 {font-size: 14px}
.style7 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style9 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
.style10 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" valign="top"><!--#include file="inc_menu.asp"--></td>
<td width="79%" valign="top"><form action="enquete_liberar.asp" method="post" name="conteudo" id="conteudo">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="3"><span class="style9"> Enquete<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span></td>
</tr>
<tr>
<td width="21%"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="3"><input name="inserir" type="button" id="inserir" onClick="cadastro()" value="cadastrar nova">
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
</tr>
<tr>
<td> </td>
<td colspan="2"></td>
</tr>
<tr>
<td class="style10">Deleta</td>
<td width="24%"><span class="style10">Liberar Enquete </span></td>
<td width="55%" class="style10">Chamada</td>
</tr>
<% while not RS.EOF
xx = xx + 1
cont = cont + 1
If cont mod 2 <> 0 Then
cor = "bgcolor='#F0F0F0'"
Else
cor = "bgcolor='#FFFFFF'"
End If
%>
<tr <%=cor%>>
<td><input type="checkbox" name="delete_conteudo" value="<%=RS("IDEnquete")%>"></td>
<td><font color="#333333" face="Arial, Helvetica, sans-serif" size="2">
<input type="hidden" name="id" value="<%=rs("idenquete")%>">
<input name="liberar" type="checkbox" <%if rs("liberado") = true then response.Write("checked")%> value="-1">
</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="java script:" style="cursor:hand" onClick="window.open('enquete_update.asp?idenquete=<%=RS("IDEnquete")%>','','top=5,left=5,width=620, height=434')"><%=RS("Chamada")%></a></font></td>
</tr>
<% RS.MoveNext
Wend %>
<tr>
<td><input type="submit" name="deleta" value="deleta" onClick="java script:conteudo.action='enquete.asp';conteudo.submit();"></td>
<td colspan="2"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"><span class="style9"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span> </font>
<input name="atualizar" type="submit" id="atualizar" value="atualizar">
</td>
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font> </tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<% RS.close
set RS = nothing
conexao.close
set conexao = nothing %>
enquete_liberar.asp pg que faz o update
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
id = request.form("id")
if request.form("liberar")= "-1" then
liberar = true
else
liberar = false
end if
sql = "UPDATE enquete SET liberado= "&liberar&" WHERE idenquete In ("& id &");"
conexao.execute(SQL)
response.write(SQL)
%>
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
