Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rulex

Consulta e Update em ASP

Por , em ASP Clássico

Recommended Posts

Rulex    0

Rulex
Postado

Amigos gostaria da ajuda de alguem, estou fazendo uma pagina em asp, é uma pagina para controle de treinamento!

 

Criei uma consulta dos dados em Access ( onde ele me tras os dados cadastrados ) porem gostaria de saber como eu fasso para fazer um update, na mesma tela da atualização.

 

Segue abaixo o comando que eu fiz.

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados rpo.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("VIVOW.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela rpo
strQuery = "SELECT * FROM vivo_web"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>

<head>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<style type="text/css">
<!--
.style4 {color: #003366}
.style5 {
	font-family: Tahoma;
	font-size: 10px;
	font-weight: bold;
	color: #FF0000;
}
-->
</style>
<title>:. Portal de Consulta "Treinamento" .:</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 736; height: 119">
  <table width="119%" border="0" cellspacing="0" cellpadding="0" height="1" align="center">
	<tr>
	  <td width="448" valign="top" height="136"> 
		<table border="0" cellpadding="0" cellspacing="0" width="87%" align="center">
		  <tr bgcolor="ffffff"> 
			<td colspan="3"><span class="style5">Portal de Consulta "Treinamento" <br>
			</span></td>
		  </tr>
		  <tr> 
			<td colspan="3"> 
			  <form method="post" action="D.asp">
				<table width="1412" border="0" cellspacing="0" cellpadding="0" height="1">
				  <tr> 
					<td height="1" align="center" width="1412"> 
					  <table border="0" width="106%" height="58" cellpadding="2" align="left">
						<tr bgcolor="#0099FF"> 
						  <td width="35" height="2" align="center" bgcolor="#666699"> <div align="center"><font size="1" color="FFFFFF"><font face="Verdana">Codigo</font></font></div></td>
						  <td width="82" align="center" bgcolor="#666699"><div align="center"><font size="1" color="FFFFFF"><font face="Verdana">TREINAMENTO</font></font></div></td>
						  <td width="45" align="center" bgcolor="#666699"><div align="center"><font size="1" color="FFFFFF"><font face="Verdana">DATA INICIAL</font> </font></div></td>
						  <td width="34" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">DATA FINAL</font></div></td>
						  <td width="65" height="2" align="center" bgcolor="#666699"> <div align="center"><font size="1" color="FFFFFF"><font face="Verdana">INSTRUTOR</font></font></div></td>
						  <td width="81" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">FUNCIONÁRIO</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">1ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">2ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">3ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">4ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">5ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">6ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">7ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">8ºDIA</font></div></td>
						  <td width="33" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">9ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">10ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">11ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">12ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">13ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">14ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">15ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">16ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">17ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">18ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">19ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">20ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">21ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">22ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">23ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">24ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">25ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">26ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">27ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">28ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">29ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">30ºDIA</font></div></td>
						  <td width="40" align="center" bgcolor="#666699"><div align="center"><font color="FFFFFF" size="1" face="Verdana">31ºDIA</font></div></td>
						  <td width="143" height="2" align="center" bgcolor="#666699"> <div align="center"><font size="1" color="FFFFFF"> 
						   <input type="submit" name="Submit" value="ALTERAR">
						  </font></div></td>
						</tr>
						<%While Not objRS.EOF %> 
						<tr bgcolor="#FF9900"> 
						  <td width="35" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<%Response.write objRS("codigo")%> 
							  </font> </font></div>
						  </div></td>
						  <td width="82" align="center" bgcolor="#d4d8e8"><div align="center" class="style4">
							<div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
							  <%Response.write objRS("treinamento")%>
							</font> </font></div>
						  </div></td>
						  <td width="45" align="center" bgcolor="#d4d8e8"><div align="center" class="style4">
							<div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
							  <%Response.write objRS("dataini")%>
							</font> </font></div>
						  </div></td>
						  <td width="34" align="center" bgcolor="#d4d8e8"><div align="center" class="style4">
							<div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
							  <%Response.write objRS("datafin")%>
							</font> </font></div>
						  </div></td>
						  <td width="65" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<%Response.write objRS("instrutor")%> 
							  </font> </font></div>
						  </div></td>
						   <td width="81" align="center" bgcolor="#d4d8e8"><div align="center" class="style4">
							<div align="center"><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
							  <%Response.write objRS("nomefun")%>
							</font></font></font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							  <input name="D1" type="text" id="D1" size="1" value="<%=objRS("D1")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D2" type="text" id="D2" size="1" value="<%=objRS("D2")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D3" type="text" id="D3" size="1" value="<%=objRS("D3")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D4" type="text" id="D4" size="1" value="<%=objRS("D4")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D5" type="text" id="D5" size="1" value="<%=objRS("D5")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D6" type="text" id="D6" size="1" value="<%=objRS("D6")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D7" type="text" id="D7" size="1" value="<%=objRS("D7")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D8" type="text" id="D8" size="1" value="<%=objRS("D8")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="33" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							   <input name="D9" type="text" id="D9" size="1" value="<%=objRS("D9")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D10" type="text" id="D10" size="1" value="<%=objRS("D10")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D11" type="text" id="D11" size="1" value="<%=objRS("D11")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							   <input name="D12" type="text" id="D12" size="1" value="<%=objRS("D12")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D13" type="text" id="D13" size="1" value="<%=objRS("D13")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D14" type="text" id="D14" size="1" value="<%=objRS("D14")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								 <input name="D15" type="text" id="D15" size="1" value="<%=objRS("D15")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								 <input name="D16" type="text" id="D16" size="1" value="<%=objRS("D16")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								 <input name="D17" type="text" id="D17" size="1" value="<%=objRS("D17")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D18" type="text" id="D18" size="1" value="<%=objRS("D18")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							  <input name="D19" type="text" id="D19" size="1" value="<%=objRS("D19")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D20" type="text" id="D20" size="1" value="<%=objRS("D20")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D21" type="text" id="D21" size="1" value="<%=objRS("D21")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							   <input name="D22" type="text" id="D22" size="1" value="<%=objRS("D22")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D23" type="text" id="D23" size="1" value="<%=objRS("D23")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D24" type="text" id="D24" size="1" value="<%=objRS("D24")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							  <input name="D25" type="text" id="D25" size="1" value="<%=objRS("D25")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D26" type="text" id="D26" size="1" value="<%=objRS("D26")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
							   <input name="D27" type="text" id="D27" size="1" value="<%=objRS("D27")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								 <input name="D28" type="text" id="D28" size="1" value="<%=objRS("D28")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								 <input name="D29" type="text" id="D29" size="1" value="<%=objRS("D29")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D30" type="text" id="D30" size="1" value="<%=objRS("D30")%>">
							  </font> </font></div>
						  </div></td>
						  <td width="40" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
								<input name="D31" type="text" id="D31" size="1" value="<%=objRS("D31")%>"> 
							  </font> </font></div>
						  </div></td>
						  <td width="143" height="24" align="center" bgcolor="#d4d8e8"> 
							<div align="center" class="style4">
							  <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
							 <input name="radio" type="CheckBox" value="<%=objRS(0)%>" checked>
						 </font> </font></div>
						  </div></td>
						</tr>
						<%
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %> 
					  </table>
					</td>
				  </tr>
				</table>
			</form>			</td>
		  </tr>
		</table>
	  </td>
	</tr>
  </table>
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Nossa.. fiquei tonto só de ver tanto <tr> e <td>..... um milhão de anos que não vejo isso.. IUAhiuAiuAiuA

 

Bom.. para fazer um UPDATE, crie um form com os campos editáveis (inputs), e então faça a chamada para apágina que irá realizar a instrução SQL "UPDATE"....

 

Não entendeu ?? no laboratório de scripts ASP tem um monte de exemplos pra você...

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tipo assim:

 

você tem um form, onde nele você recupera os dados que quer alterar e atribui no value do form, para saber qual

será alterado, depois você dá um submit, onde ira recuperar os dados alterados no form e usa o UPDATE,

o interessante é você ter antes uma pagina de administração, onde você exibi os dados e tem a opção de

pesquisar,inserir,atualizar e excluir,detalhe você cria um link para a pagina de formulario para atualizar ,

onde nela você recebe o ID do registro a ser alterado, com ele você dá um SELECT no bd, para exibir

apenas esse registro, e como falei acima, você atribui os valores, por exemplo, como nome, em um

input type text nome e no value ,você deixa assim:

 

<input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>">

dá uma olhada nos code, abaixo:

 

administração

 

<%response.buffer=true%>
<%
'------------------------------------------------------------------------------------------------
' Este ASP exibe td´z as opçoes para o admin fazer o controle de seu 
' usuarios podendo ter total controle no BD
'------------------------------------------------------------------------------------------------
%>

<HTML>
<HEAD>
<TITLE>Administração</TITLE>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</HEAD>



<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<RightClick> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2" COLOR="#666666"><B><FONT COLOR="#336699">:: 
Aqui você poderá administrar sua conta, e navegar nas áreas 
restritas a você cliente.<BR> </FONT> <BR> <BR> <BR> <BR> <BR> </B></FONT> 
<P><FONT FACE="Arial, Helvetica, sans-serif" SIZE="1"><B>

<% 'declaro as var.
	 dim conexao, varmsg, rs, SQL, conDBQ, constring, varmsgeof, varloginsession, data
   
   'recupero as var.
   varmsgeof=request.querystring("msgeof")
   varmsg=request.querystring("msg")
   varloginsession=Session("login")
  
  
  'crio a conexao%>
<!--#include file="conn/conexao1.asp"--> 
<% call abreconexao
			
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT * FROM login ORDER BY login"
  rs.open SQL,conexao,1,3
   %>
	</B></FONT></P>
<TABLE WIDTH="95%" BORDER="0" CELLPADDING="0" CELLSPACING="0" BGCOLOR="#666666" ALIGN="center"> 
<TR BGCOLOR="#336699"> <TD WIDTH="2%"> <DIV ALIGN="left"><B><IMG SRC="file:///A|/asp/imgs/curva.gif" 
WIDTH="10" HEIGHT="19"></B></DIV></TD><TD WIDTH="98%"> 
<DIV ALIGN="center"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2" COLOR="#FFFFFF">:: 
Seja Bem-Vindo <%=Ucase(varloginsession)%></FONT></B></DIV></TD></TR> <TR BGCOLOR="#336699"> 
<TD HEIGHT="10" COLSPAN="2"> <DIV ALIGN="center"><B>
<FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#66ffff">Administração 
de Usuários</FONT></B></DIV></TD></TR> <TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="2"> </TD></TR> 
<TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="16"> <DIV ALIGN="right"><A HREF="pesquisa_form_treina.asp">
<IMG SRC="imgs/busca2.gif" BORDER="0" ALT="Pesquisar na base de dados" WIDTH="78" HEIGHT="21"></A> </DIV></TD></TR> 
<TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="2"> <DIV ALIGN="right">
		<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0','width','80','height','20','src',
'incluir','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','bgcolor',
'#336699','base','.','movie','incluir' ); //end AC code
</script><noscript>
<OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" CODEBASE="http://download.macromedia.com/pub/shockwave/cabs/flash/
swflash.cab#version=5,0,0,0" WIDTH="80" HEIGHT="20">
		  <PARAM NAME="BGCOLOR" VALUE="#336699">
		  <PARAM NAME="BASE" VALUE=".">
		  <PARAM NAME=movie VALUE="incluir.swf">
		  <PARAM NAME=quality VALUE=high>
<EMBED SRC="incluir.swf" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
TYPE="application/x-shockwave-flash" WIDTH="80" HEIGHT="20" BGCOLOR="#336699" BASE="."> 
		  </EMBED> </OBJECT></noscript>
 </DIV></TD></TR> </TABLE><TABLE WIDTH="95%" BORDER="1" BORDERCOLOR="#666666" BGCOLOR="#e6e6e6" ALIGN="center"> 
<TR> <TD WIDTH="16%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Login</B></FONT></DIV></TD>
<TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Senha</B></FONT></DIV></TD>
<TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Email</B></FONT></DIV></TD><TD WIDTH="20%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Atualizar</B></FONT></DIV></TD><TD WIDTH="24%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Excluir</B></FONT></DIV></TD></TR> 
<%  while not rs.eof%> 
<TR> <TD WIDTH="16%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("login")%></B>
</FONT></DIV></TD>
<TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("senha")%></B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("email")%></B></FONT></DIV></TD><TD WIDTH="20%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="atualizar_form_treina.asp?codigo=<%=rs("codigo")%>">Atualizar</A></B></FONT></DIV></TD><TD WIDTH="24%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="excluir_form_treina.asp?codigo=<%=rs("codigo")%>">Excluir</A></B></FONT></DIV></TD></TR> 
<% rs.movenext
	  wend
	set rs=nothing
   call fechaconexao
%> </TABLE><P><BR></P></RightClick> 
</BODY></HTML>

atualizar_form_treina.asp

 

 

<%  'aplicaçaun para atua;izar os dados do usuário na base de dados do access
	'onde através do request.querystring do código ,faremos uma SELECT (SQL)
	'e jogaremos no value do form ,sendo postado através do post pra
	'atualizar_action.asp k fará o UPDATE
	
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	
	'crio a conexao 
	' pasta conn dentro de wwwroot
	%>
<!--#include file="conn/conexao1.asp"-->
	<%call abreconexao
	'crio o recordset
	set rs=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	'crio o form para jogar os rs'z no value %>	
<html>
<head>
<title>Atualização de Usuários</title>

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center"> 
<tr> <td width="2%" bgcolor="#666666"> 
<div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%" bgcolor="#336699"> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">:: 
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Atualizar 
Dados do Usuário</font></b></div></td></tr> <tr bgcolor="#336699"> <td colspan="2" height="19"> </td></tr> 
<tr bgcolor="#336699"> <td height="72" colspan="2">
<form name="form1" method="post" action="atualizar_action_treina.asp"> 
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b> 
<input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>"> 
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> </p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">
Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>"> 
</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
<input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>"> 
</font></b></p><p align="center"> 
		  <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr>
<% 'FECHO O RS
	set rs=nothing
	'fecha a conexao
	call fechaconexao%> </table>
</body>
</html>

 

e aqui o action

 

<%	'aplicacaun para fazer o update dos dados do form atualizar_form.asp
	  'onde recupero todos os dados dos campos do form,dou um replace nos ' por ""
	'e crio a SQL para efetuar o update depois redireciono p/ administracao.asp
	' com passagem de parametro na URL msg=2
	
	option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail
	'recupero as var
	varcodigo=trim(request.form("codigo"))
	varlogin=trim(request.form("login"))
	varsenha=trim(request.form("senha"))
	varemail=trim(request.form("email"))
	' retiro qqer erro de digitaçao do user ,no caso ( aspas simples ')
	varlogin=replace (varlogin,"'","")
	varsenha=replace  (varsenha,"'","")
	varemail=replace(varemail,"'","")
	'crio a conexao%>
	<!--#include file="conn/conexao1.asp"-->
	<% 'abro a conexao
	call abreconexao
	'crio o rs
	set rs=Server.createobject("ADODB.Recordset")
	'crio a SQL
	SQL="UPDATE login SET login='"&varlogin&"',senha='"&varsenha&"',email='"&varemail&"' WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
		if session("login") = "admin" then
			response.redirect("administracao_treina.asp?msg=2")
		else
			response.redirect("administracao1.asp?msg=2")
		end if
	'fecho o rs
	set rs=nothing
	'fecho a conexao
	call fechaconexao%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rulex    0

Rulex
Postado

To com outro problema?

 

Obs.. eu tinha que fazer um Update com todos os registros que eu estava visualizando ou atualizando , ou melhor que eu chamei na consulta , se voce ver no Dreamwaver o code, eu coloquei varias list para consultar o dado existente, e se for alterado ele mudar essa informação nesse list . porem quando dou o Update geral sem nenhuma wehre ele repete a informação de cada campo. igual a quantidade de registros...Se consultei 20 nomes ele repete a informação do list 20 vezes dentro de cada campo e isso é alterado no Access, quando consulto esses mesmos nomes os list são preenchidos com os registros 20 vezes. como eu arrumo isso? Plis

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como esta o seu update?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito