Ir para conteúdo

Arquivado

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

Adrifester

Alterar campo no banco de dados

Recommended Posts

Bom dia! Estou desenvolvendo um sistema e que preciso alterar o banco, só que quando vou alterar não puxa os valores que indiquei

gostaria de saber como posso desenvolver um esqueleto de alterar para ASP

Compartilhar este post


Link para o post
Compartilhar em outros sites

voce tem que passar um parametro para alterar o banco

exemplo : cod_autonumerico = 1;

a nao ser que voce va alterar todos os registros.

 

mas seria assim :

valor = "teste"
cod = 1
' no meu caso uso MYSQL
strCon = "driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=root;pwd=senha;database=BD"

set conexao = createobject("adodb.connection")
conexao.open strCon
       conexao.execute("UPDATE tabela SET campo='"&valor&"' WHERE cod_autonumerico = '"&cod&"' ")
conexao.close
set conexao = nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

como esta sua string de conexao ao bd e sua string SQL,

ele esta gerando algum erro ????

Compartilhar este post


Link para o post
Compartilhar em outros sites
'conexao : o servidor é 127.0.0.1 maquina local; uid root ...mais é fictício; senha FICTÍCIA; e nome do banco BD 
strCon = "driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=root;pwd=senha;database=BD" 

       ' aqui setei uma variavel "conexao" createobject("adodb.connection")
       set conexao = createobject("adodb.connection")

      'aqui a minha variavel conexao abrao STRCON que recebeu os dados do banco de dados
       conexao.open strCon

      'essa linha o conexao chama o metodo execute e faz o update voce tem que por as suas tabelas e etc;
       conexao.execute("UPDATE tabela SET campo='"&valor&"' WHERE cod_autonumerico = '"&cod&"' ")

      'aqui eu fecho a conexao
       conexao.close

       set conexao = nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo

 

formulario

<%  '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>

 

atcion

<%	'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

olha este exemplo

 

formulario

<%  '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>

 

atcion

<%	'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

uma dica importante , é antes de alterar, colocar os dados atuais no value do form.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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