Ir para conteúdo

POWERED BY:

Arquivado

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

neotheone

Alteração de dados no Banco ACCESS

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Bem pessoal vou tentar explicar minha dúvida, vou até postar uma foto para facilitar o entendimento, endereço da foto: http://pfunesacombr.t5.com.br/formulario.jpg

 

 

Preciso fazer alteração no banco de dados através de um administrador, que seria basicamente o seguinte:

 

 

Ponto: [ ] -> esse é um campo de LIST (lista), quero q quando selecione 1 certo item na lista, ele apareça os outros dados em seus respectivos campos abaixo:

 

Nome:

 

Definição

 

Localização:

 

Função:

 

Diagnóstico:

 

 

botões: ALTERAR | LIMPAR

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

Fala pessoal eu consegui fazer + ou - o q eu queria, que era escolhe 1 opção na primeira lista e puxar os dados para a 2º lista: o endereço da foto para vocês entenderem + ou -

 

http://pfunesacombr.t5.com.br/formulario.jpg

 

O que eu queria agora, é saber como altera os dados puxados pelo banco, tipo, eu altero alguma coisa no campo definicao, localizao, funcao ou diagnostico e aperto alterar e ele altera os conteudo

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%caminho = Server.MapPath("banco.mdb")data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoSet Con = server.createobject("adodb.connection")con.cursorlocation = 3con.Open data_sourceid=request("id")nome=request("nome")ponto = request("ponto")sql = "select * from pontos"set rs = con.execute(sql)%><form method="post" name="form1">  <tr valign="middle"> 	  <td width="100" height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong></td>	  <td width="397"><p> 		<select name="id" size="1" onchange="window.navigate('formulario-atualiza.asp?id='+form1.id.value)">		  <option value="SELECIONE" selected>Selecione a Área</option>		  <% while not rs.eof %>		  <option value="<%=rs("id")%>"> 		  <%=rs("id")%> </option>		  <% rs.movenextwend %>		</select>		<%if id = "" then%>  <br>	</p>	  </td>	</tr>	<tr valign="middle"> 	  	<td height="29"> 	  <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>Nome:</font></strong></p>	  </td>	  	<td> <select name="select">		<option value="SELECIONE" selected>Selecione o Ponto</option>	  </select> 	  <% elsesqlcid = "select nome from orelha where ponto = "&id&""set rs1 = con.execute(sqlcid)%> </td>	</tr>	<tr valign="middle">	  <td height="29"><!--DWLayoutEmptyCell--> </td>	  	<td><p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>Nome:<br>		</font></strong> 		<select name="nome"  onchange="window.navigate('formulario-atualiza.asp?nome='+form1.nome.value)">		  <option value="Selecione o Ponto" selected>Selecione o Ponto</option>		  <% while not rs1.eof%>		  <option value="<%=rs1("nome")%>"><%=rs1("nome")%></option>		  <% rs1.movenext		  wend%>		</select>			<% end if %>	  </p>	 <% 	 	consulta="select definicao from orelha where nome='"&nome&"'"		set def=con.execute(consulta)	 %>	 <tr valign="middle"> 	  <td height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Definição:</font></strong></td>	  <td><p> 		<input name="definicao" type="text" id="definicao" value="<%=def("definicao")%>">	  </p>	</td>	</tr>	<tr valign="middle"> 	  	<td height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">		<% 	 	consulta="select localizacao from orelha where nome='"&nome&"'"		set loc=con.execute(consulta)	 %>		Localização:</font></strong></p></td>	  	<td> 	  <textarea name="localizacao" cols="50" rows="30" id="localizacao"><%=loc("localizacao")%></textarea></td>	</tr>  <tr valign="middle"> 	  	<td height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">		<% 	 	consulta="select funcao from orelha where nome='"&nome&"'"		set fun=con.execute(consulta)	 %>		Função:</font></strong></p></td>	  	<td> 	  <textarea name="funcao" cols="50" rows="30" id="funcao"><%=fun("funcao")%></textarea></td>	</tr>	<tr valign="middle"> 	  	<td height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">		<% 	 	consulta="select diagnostico from orelha where nome='"&nome&"'"		set dia=con.execute(consulta)	 %>		Diagnóstico:</font></strong></p></td>	  <td><textarea name="diagnostico" cols="50" rows="30" id="diagnostico"><%=dia("diagnostico")%></textarea></td>	</tr>	<tr> 	  <td height="52"> </td>	  <td valign="top"><br> <input type="submit" name="Submit" value="enviar"></td>	</tr></table>  <input type="submit" name="Submit2" value="altera"></form></body></html>
Cara, sempre use Imagem Postadapara postar o codigo. Fica mais facil para ler. Ok?

 

Editado por LucasBR.

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

Fala pessoal olha eu aqui de novo, vou postar o endereço do meu sistema para vocês irem entendo melhor

 

SISTEMA - FORMULÁRIO

 

O que está faltando agora é o seguinte, quando eu selecionar o item da 2º caixa (nome) ele deve lista as informações nos campos abaixo, "definição", "localizacao", "funcao", "diagnostico"

 

AH! e outro problema que eu notei, foi que quando eu escolho uma opção la na primeira lista (ponto), ele volta para o "Selecione a área" eu gostaria que mantesse o numero que escolhi

 

abaixo vai o código do sistema:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%caminho = Server.MapPath("banco.mdb")data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoSet Con = server.createobject("adodb.connection")con.cursorlocation = 3con.Open data_sourceid=request("id")nome=request("nome")ponto = request("ponto")sql = "select * from pontos"set rs = con.execute(sql)%><form method="post" name="form1"><tr valign="middle"> <tudo width="100" height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong></tudo><tudo width="397"><p> <select name="id" onchange="window.navigate('formulario-atualiza.asp?id='+form1.id.value)"><option value="SELECIONE" selected>Selecione a Área</option><% while not rs.eof %><option value="<%=rs("id")%>"> <%=rs("id")%> </option><% rs.movenextwend %></select><%if id = "" then%><br> </p></tudo></tr><tr valign="middle"> <tudo height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>Nome:</font></strong></p></tudo><tudo> <select name="select"><option value="SELECIONE" selected>Selecione a Área</option></select> <% elsesqlcid = "select nome from orelha where ponto = "&id&""set rs1 = con.execute(sqlcid)%> </tudo></tr><tr valign="middle"><tudo height="29"><!--DWLayoutEmptyCell--> </tudo><tudo><p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>Nome:<br></font></strong> <select name="nome" onchange="window.navigate('formulario-atualiza.asp?nome='+form1.nome.value)"><option value="Selecione o Ponto">Selecione o Ponto</option><% while not rs1.eof%><option value="<%=rs1("nome")%>" selected><%=rs1("nome")%></option><% rs1.movenextwend%><% end if %> </select><tr valign="middle"> <tudo height="29"><p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Definição:</font></strong></p></tudo><tudo><p> <input name="definicao" type="text" id="definicao"></p></tudo></tr><tr valign="middle"> <tudo height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Localização:</font></strong></p></tudo><tudo> <textarea name="localizacao" cols="50" rows="30" id="localizacao"></textarea></tudo></tr><tr valign="middle"> <tudo height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Função:</font></strong></p></tudo><tudo> <textarea name="funcao" cols="50" rows="30" id="funcao"></textarea></tudo></tr><tr valign="middle"> <tudo height="29"> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Diagnóstico:</font></strong></p></tudo><tudo><textarea name="diagnostico" cols="50" rows="30" id="diagnostico"></textarea></tudo></tr><tr> <tudo height="52"> </tudo><tudo valign="top"><br> <input type="submit" name="Submit" value="enviar"></tudo></tr></table><input type="submit" name="Submit2" value="altera"></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

postei o código de novo, mas agora ele ta mais limpo, valew pessoal!

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%caminho = Server.MapPath("banco.mdb")data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoSet Con = server.createobject("adodb.connection")con.cursorlocation = 3con.Open data_sourceid=request("id")nome=request("nome")ponto = request("ponto")sql = "select * from pontos"set rs = con.execute(sql)%><form method="post" name="form1"> 	<strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong>   <p> 		<select name="id" onchange="window.navigate('formulario-atualiza.asp?id='+form1.id.value)">		  <option value="SELECIONE" selected>Selecione a Área</option>		  <% while not rs.eof %>		  <option value="<%=rs("id")%>"> 		  <%=rs("id")%> </option>		  <% rs.movenextwend %>		</select>		<%if id = "" then%>	  <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>		Nome:</font></strong></p>	  <select name="select">		<option value="SELECIONE" selected>Selecione o Ponto</option>	  </select> <% elsesqlcid = "select nome from orelha where ponto = "&id&""set rs1 = con.execute(sqlcid)%> 	  <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>		Nome:<br>		</font></strong> 				<select name="nome"  onchange="window.navigate('formulario-atualiza.asp?nome='+form1.nome.value)">	  <option value="Selecione o Ponto" selected>Selecione o Ponto</option>	  <% while not rs1.eof%>	  <option value="<%=rs1("nome")%>"><%=rs1("nome")%></option>	  <% rs1.movenext		  wend%>	  <% end if %>	</select>		  <p><font size="1" face="verdana"><strong>Definição: </strong></font>	    <p> 	<input name="definicao" type="text" id="definicao">  <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Localização:</font></strong>   <p>	<textarea name="localizacao" cols="50" rows="10" id="localizacao"></textarea>	<br>	<strong><font size="1" face="verdana">Função:</font></strong> 	<br>	<textarea name="funcao" cols="50" rows="10" id="funcao"></textarea>  <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Diagnóstico:</font></strong></p>	<textarea name="diagnostico" cols="50" rows="10" id="diagnostico"></textarea>     <br>       <input type="submit" name="Submit" value="enviar">     <input type="submit" name="Submit2" value="altera"></form></body></html>

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