Atualizar vários registros simultaneamente

[luizmb 0]

Amigos, até agora nenhuma luz se abriu, é o seguinte, tenho um sistema de busta, que por exemplo o professor coloca a turma pra listar os alunos. Os alunos são listados numa boa, perfeito, eis o problema, a cada dois meses o professor precisa alterar o módulo da turma, gostaria de saber como dou um update simultaneo em todos os alunos que foram listados na busta????????

[explore 3]

Tenta Assim:ids = Split(Request("ids"),",")i = 0 If Ubound(ids) thendo while i < Ubound(ids)sql = "UPDATE tabela SET valor = '" &campo& "' WHERE id = " & idsconexo.Execute(sql)loopend if

[N3G4T1V3 0]

Você não precisa necessariamente receber as ids para alterar poderia fazer algo assim:update Alunos set Modulo = '" &varModulo& "' where turma='"&varTurma&'"

[Mário Monteiro 179]

e se tivesse os ids separados por virgula não precisaria quebrar nada bastaria usar o INsql = "UPDATE tabela SET valor = '" & campo & "' WHERE id IN (" & Request("ids") & ")"

[luizmb 0]

OLHA MEU CÓDIGO AÍ..... CONTINUA NÃO FUNCIONANDO, DÁ O ERROErro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis /problemas/altera_grupo_executa.asp, line 20 <% dim turma, registro, moduloturma = request.Form("turma")registro = request.Form("registro")modulo = request.Form("modulo") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("bd/problemas.mdb")registros = Split(Request("registro"),",")i = 0 If Ubound(registros) thendo while i < Ubound(registros)sql = "UPDATE cadastro SET modulo = '" &modulo& "' WHERE registro = " & registrosconexo.Execute(sql)loopend if Set bd = Nothing Set Conexao = Nothing response.write (sql)response.end%>

[Mário Monteiro 179]

o campo modulo é de que tipo??e o campo registro??

[luizmb 0]

O campo módulo é do tipo texto, e o registro é a chave primária do tipo numeração automatica....

[Mário Monteiro 179]

a linha 20 é aquela mesmo?? ou é outra???

[luizmb 0]

Essa é a linha 20 conexao.Execute(sql)

[Mário Monteiro 179]

por que voce faz assim???

 

registros = Split(Request("registro"),",")i = 0 If Ubound(registros) thendo while i < Ubound(registros)sql = "UPDATE cadastro SET modulo = '" &modulo& "' WHERE registro = " & registrosconexo.Execute(sql)loopend if

tente assim

 

sql = "UPDATE cadastro SET modulo = '" &modulo& "' WHERE registro IN (" & Request("registro") & ")"conexo.Execute(sql)

[luizmb 0]

ERRO QUE DEU AGORAMicrosoft OLE DB Provider for ODBC Drivers erro '80040e0c' O comando de texto não foi definido para o objeto de comando. /problemas/altera_grupo_executa.asp, line 20

[saloeric 1]

um exemplo:

 

 

pagina1.asp

 

<form method="post" action="pagina2.asp"><%j=0while not rs.eof%><input type="hidden" name="id<%=j%>" value="<%=rs("id")%>"><input type="text" name="modelo<%=j%>" value="<%=rs("modelo")%>"><%j=j+1rs.movenextwend%><input type="hidden" name="conta" value="<%=j%>"><input type="Submit" value="Alterar"></form>

pagina2.asp

 

contador=0while contador<request.form("conta")-0sql = "update cadastro set "sql = sql & "modelo =" & request.form("modelo"&contador)sql = sql & " where id =" & request.form("id"&contador)rs.open sql,conexaocontador=contador+1wend

[luizmb 0]

Fiz e tb não rodou

[Mário Monteiro 179]

aquele erro que deu depois que pedi pra alterar deu em que linha???e como estava o codigo aquela altura do campeonato??

[Quati Maldito 0]

um exemplo:pagina1.asp

<form method="post" action="pagina2.asp"><%j=0while not rs.eof%><input type="hidden" name="id<%=j%>" value="<%=rs("id")%>"><input type="text" name="modelo<%=j%>" value="<%=rs("modelo")%>"><%j=j+1rs.movenextwend%><input type="hidden" name="conta" value="<%=j%>"><input type="Submit" value="Alterar"></form>

pagina2.asp

contador=0while contador<request.form("conta")-0sql = "update cadastro set "sql = sql & "modelo =" & request.form("modelo"&contador)sql = sql & " where id =" & request.form("id"&contador)rs.open sql,conexaocontador=contador+1wend

Rosbuto esse código hein..