Ir para conteúdo
Fórum Script Brasil
  • 0

Update Em Vários Registros

jucacabala

Perguntado por jucacabala,

 Share

Pergunta

jucacabala

jucacabala

Postado
Postado

ola galera! bom tenho a seguinte situ:

o arquivo include realiza o loop nos registros.

o que preciso é recuperar o valor dos selects box galeria e debito que foram alterados pelo usuario na pagina para tambem alterar no banco de dados. como faço isso?

<!--#include file="../include/geral_pag01.asp" -->

<%

cod_aluno = rs.Fields("cod_aluno")

str1 = "select curso from curso_aluno where cod_aluno = '"&cod_aluno&"'"

Set rs1 = conexaodb.Execute(str1)

If bgColor = "#FDF5F2" Then

bgColor = "#F9F9F9"

Else

bgColor = "#FDF5F2"

End If

%>

<tr bgcolor="<%=bgColor%>">

<tudo height="25" class="arial12"><% = rs.Fields("nome") %>&nbsp;<% = rs.Fields("sobrenome") %></tudo>

<tudo align="center" class="arial12">

<%

if rs1.Eof then

%>

-

<% else

Do While Not rs1.Eof

%>

<% = rs1.Fields("curso") %><br>

<%

rs1.movenext

loop

end if

set rs1 = nothing

%> </tudo>

<tudo align="center">

<select name="debito" class="box3" id="debito">

<option <%if rs("debito") = "1" then %> selected <%end if%> value="1">sim</option>

<option <%if rs("debito") = "0" then %> selected <%end if%> value="0">n&atilde;o</option>

</select> </tudo>

<tudo align="center">

<select name="galeria" class="box3" id="galeria">

<option <%if rs("galeria") = "1" then %> selected="selected" <%end if%> value="0">sim</option>

<option <%if rs("galeria") = "0" then %> selected="selected" <%end if%> value="1">n&atilde;o</option>

</select> </tudo>

<tudo align="center">

<tudo align="center" class="arial12"><a href="altera-dados.asp?id_aluno=<% = rs.Fields("id_aluno")%>"><img src="imagens/icon-pencil.gif" width="22" height="22" border="0" /></a></tudo>

</tr>

<%

rs.movenext

loop

%>

<tr>

<tudo colspan="6">&nbsp;</tudo>

</tr>

<tr>

<tudo colspan="6" align="center">P&aacute;ginas:&nbsp;

<!--#include file="../include/geral_pag02.asp" --></tudo>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
jucacabala

jucacabala

Postado
  • Autor
Postado

vamos lá

o valor ativo_site = Request.QueryString("ativo_site") vem do link que uso para entrar na pagina. Ele traz apenas os registros que estao ativo no banco onde o ativo_site = 1.

Fiz um "SELECT * FROM aluno where ativo_site= "&ativo_site - que me retorna apenas os registros ativos.

Fiz um loop e imprime este resultado na tela, isto tambem esta OK. No meu banco de dados na tabela que estou usando eu tenho tres campos que me retornam 0 ou 1, que são: debito, galeria, ativo_site. Na pagina eu coloquei estes campos em um select box que permite o usuario selecionar sim ou não para cada opção.

o que preciso fazer é pegar os valores dos select box dos registros alterados e alterar no banco de dados. Da forma que fiz ele altera somente o valor debito. E não sei como faço para alterar os tres valores dos registros alterados... :(

Link para o comentário
Compartilhar em outros sites
  • 0
jucacabala

jucacabala

Postado
  • Autor
Postado

funcionou:

<!--#include file="../conexao.inc" -->

<%

DIM conexaodb, str, rs, ativo_site

ativo_site = Request.QueryString("ativo_site")

linkpag = "listar-aluno.asp?ativo_site="&ativo_site

TamanhoPagina = 20 '-- qtde de registros por página

qtdecol = 1 '-- qtde de colunas da tabela de listagem

str = "SELECT * FROM aluno where ativo_site= "&ativo_site

str = str & " order by nome asc "

set rs = Server.CreateObject("ADODB.Recordset")

rs.PageSize = TamanhoPagina

rs.CacheSize = TamanhoPagina

rs.CursorType = 3

Response.CacheControl="no-cache"

rs.open str, conexaodb

If Request.Form("acao") = "enviar" Then

for i = 1 to Request.Form("totlinhas")

debito = Request.Form("debito"&i)

galeria = Request.Form("galeria"&i)

ativo_site = Request.Form("ativo_site"&i)

id_aluno =Request.Form("id_aluno"&i)

str = "UPDATE aluno SET "

str = str & "debito="& debito &","

str = str & "galeria="& galeria &","

str = str & "ativo_site="& ativo_site &" "

str = str & "WHERE id_aluno=" & id_aluno

conexaodb.execute(str)

next

Response.Redirect("restrito.asp")

End If

%>

<!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>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Tempo e Arte - escola de artes</title>

<link href="../estilos.css" rel="stylesheet" type="text/css">

<script language="JavaScript">

<!--

function validaForm(){

//validar nome

d = document.cadastro;

if (d.nome.value == ""){

alert("O campo nome deve ser preenchido!");

d.nome.focus();

return false;

}

return true;

}

//-->

</script>

<style type="text/css">

<!--

body {

margin-left: 3px;

margin-top: 3px;

margin-right: 0px;

margin-bottom: 0px;

}

-->

</style>

</head>

<body>

<table width="752" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">

<tr>

<tudo><!--#include file="menu.asp" --></tudo>

</tr><form action="busca.asp" method="post" name="cadastro" id="cadastro" onsubmit="return validaForm()">

<tr>

<tudo align="center" valign="top" class="verdana12"><table width="98%" border="0" cellpadding="0" cellspacing="10" bgcolor="#FFFFFF">

<tr>

<tudo align="left">Se preferir realize uma busca por aluno: </tudo>

</tr>

<tr>

<tudo align="left">nome aluno:

<input name="nome" type="text" class="box3" id="nome" size="50" /> <span class="verdana11bold">

<input type="submit" class="botao" value="Buscar" />

</span></tudo>

</tr>

<tr>

<tudo height="20" align="left">&nbsp;</tudo>

</tr>

</table></tudo>

</tr></form>

<tr>

<tudo height="200" align="center" valign="top" class="verdana12">

<form name="frm" method="post" action="listar-aluno.asp?ativo_site=<%=ativo_site%>">

<input type="hidden" name="acao" value="enviar"><table width="98%" border="0" cellpadding="0" cellspacing="10" bgcolor="#FFFFFF">

<%

if rs.Eof then

%>

<tr>

<tudo height="170" align="center" valign="middle" class="verdana12"><font color="#000066">N&atilde;o possui alunos cadastrados.</font></tudo>

</tr>

<%

else

i=1

%>

<tr>

<tudo colspan="3">

<table width="100%" border="0" cellspacing="1" cellpadding="0">

<tr>

<tudo class="menu">Nome</tudo>

<tudo align="center" class="menu">Cursos</tudo>

<tudo align="center" class="menu">D&eacute;bito</tudo>

<tudo align="center" class="menu">Galeria</tudo>

<tudo align="center" class="menu">Ativo</tudo>

<tudo align="center" class="menu">Acessar</tudo>

</tr>

<tr>

<tudo colspan="6"><img src="imagens/spacer.gif" width="10" height="5" /></tudo>

</tr>

<!--#include file="../include/geral_pag01.asp" -->

<%

cod_aluno = rs.Fields("cod_aluno")

str1 = "select curso from curso_aluno where cod_aluno = '"&cod_aluno&"'"

Set rs1 = conexaodb.Execute(str1)

If bgColor = "#FDF5F2" Then

bgColor = "#F9F9F9"

Else

bgColor = "#FDF5F2"

End If

%>

<tr bgcolor="<%=bgColor%>">

<tudo height="25" class="arial12"><% = rs.Fields("nome") %>&nbsp;<% = rs.Fields("sobrenome") %></tudo>

<tudo align="center" class="arial12">

<%

if rs.Eof then

%>

-

<% else

Do While Not rs1.Eof

%>

<% = rs1.Fields("curso") %><br>

<%

rs1.movenext

loop

end if

set rs1 = nothing

%> </tudo>

<tudo align="center">

<input name="id_aluno<%=i%>" type="hidden" id="id_aluno<%=i%>" value="<% = rs.Fields("id_aluno")%>">

<select name="debito<%=i%>" class="box3" id="debito<%=i%>">

<option <%if rs("debito") = "1" then %> selected <%end if%> value="1">sim</option>

<option <%if rs("debito") = "0" then %> selected <%end if%> value="0">n&atilde;o</option>

</select> </tudo>

<tudo align="center">

<select name="galeria<%=i%>" class="box3" id="galeria<%=i%>">

<option <%if rs("galeria") = "1" then %> selected="selected" <%end if%> value="1">sim</option>

<option <%if rs("galeria") = "0" then %> selected="selected" <%end if%> value="0">n&atilde;o</option>

</select> </tudo>

<tudo align="center">

<select name="ativo_site<%=i%>" id="ativo_site<%=i%>">

<option <%if rs("ativo_site") = "1" then %> selected="selected" <%end if%> value="1">sim</option>

<option <%if rs("ativo_site") = "0" then %> selected="selected" <%end if%> value="0">n&atilde;o</option>

</select> </tudo>

<tudo align="center" class="arial12"><a href="altera-dados.asp?id_aluno=<% = rs.Fields("id_aluno")%>"><img src="imagens/icon-pencil.gif" width="22" height="22" border="0" /></a></tudo>

</tr>

<%

i = i + 1

rs.movenext

loop

%>

<tr>

<tudo colspan="6">&nbsp;</tudo>

</tr>

<tr>

<tudo colspan="6" align="center">P&aacute;ginas:&nbsp;

<!--#include file="../include/geral_pag02.asp" --></tudo>

</tr>

</table> </tudo>

</tr>

<tr>

<tudo colspan="3" align="center"><span class="verdana11bold">

<input type="submit" class="botao" value=" Enviar " />

</span></tudo>

</tr>

<% end if %>

</table><input name="totlinhas" type="hidden" value="<% = i - 1 %>">

</form></tudo>

</tr>

<tr>

<tudo bgcolor="#FFFFFF"><img src="imagens/spacer.gif" width="10" height="3" /></tudo>

</tr>

<tr>

<tudo><!--#include file="rodape.asp" --></tudo>

</tr>

</table>

</form>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...