Publicado em 11 de dez.

isto é possivel?

Viva, pessoal algo me pode indicar se é possivel e se sim como faço para adicionar um valor a um campo sem apagar o que la esta?

ex: joao inserio dados sobre peixes e o carlos actualizou.

Ao ver os dados eu quero que apareca de: joao; carlos e por ai fora.

obrigado

Discussão (3)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 11 de dez.

apenas adicione o que quer, s leai o conteudo que esta recupere e adicone o novo, você pode usar o UPDATE do SQL

razstec· 11 de dez.

eu pensei em utilizar duas paginas de modo a ele enviar os dados antigos juntamente com os novos numa string e na segunda pagina adicionalos como um so registo, mas deve dar para fazer numa só pagina e é ai que estou com dificuldades.

A minha ideia em teoria é tipo isto:

rs.field(utilizad)=rs.field(utilizad)+ request.form(utlizad)

mas eu sei que nao é assim tao facil

xanburzum· 12 de dez.

olha este exemplo, onde no formulário para fazer a alteração de dados ele coloca os dados atuais no value do campo, dae você pode apenas incluir a informação que quer junto

form.

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

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

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

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