Ir para conteúdo

POWERED BY:

Arquivado

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

Rafabrat

[Resolvido] update e select Asp

Por , em ASP Clássico

Recommended Posts

Rafabrat    0

Rafabrat
Postado

bom galera tenho esse código que atualiza dados do banco ele funciona tudo bem so que eu queria um pouco mais

esse código ele apresenta par ao usuarios selecionar atraves do login do bd escolher qual usuario alterar e escrever logo abaixo as alterações poes bem gostaria do seguinte :

Quando eu selecionar um usuario aparecer logo abaixo atraves de uma frame ou div tanto faz os dados deste usuario e que eu possa altera-los mas ja pesquisei e tirei uma base que nao funciona olhem so

 

 

arquivo asp que recebe os dados para atualizar ele deixa campos em branco para a pessoa digitar e fazer oq bem entende

 

 

<%
'selecionar a tabela usuarios o campo login 
ssql= "select login from usuarios order by login"
set rs = Conn.Execute(ssql)
%>
<select name="nome">
<%
'tras a reposta se o código escolhido existe
Do While not rs.eof%>
<option><%=rs("login")%>
<% rs.movenext
Loop
%>
</select>
<br>Nome: <input type="text" name="nome" <br>
Endereço: <input type="text" name="ende"><br>
Telefone: <input type="text" name="tel"><br>
<br>Login:<input type="text" name="login"><br>
Senha: <input type="text" name="senha"><br>

<input type="submit" Value="Atualizar" name="atual1">

arquivo asp que faz request das forms anterios e altera no banco 

<%
'recebendo informações do form
Login = request.form("login")
senha = request.form("senha") 
nome = request.form ("nome")
ende = request.form ("ende")
tel = request.form ("tel")
' criando conexao com banco
set conn = Server.CreateObject("ADODB.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\asp\exercicios\Banco de dados2.mdb"

'utilizando sql para atualizar dados do banco
ssql = "Update usuarios Set "
' campos a serem atualizados
ssql = ssql & "login='"&login&"',nome='"&nome&"',ende='"&ende&"'"
'where cria um criterio para se atualizar 
ssql = ssql & " where senha = '"&senha&"'"
'exibe o sql
Response.Write (ssql)
'executa o sql
conn.Execute(ssql)


%>

queria que funciona-se mais ou menos assim ao selecionar os usuarios

 

no primeiro arquivo asp ele disponibiliza o que esta escrito nos campos para a alteração acredito que seria algo assim apos selecionar

 

<input type="text" value="<%=RS("nome")%>">
nao sei se da pra fazer assim mas é isso que quero gostaria se o pessoal pude me da uma caminho vlw galera

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

precisa selecionar os valores para o usuario a ser editado e inseri-los nos values dos campos exatamente como mostrou aqui no fim

 

só que precisa selecionar antes

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo

 

formulário

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

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

Rafabrat    0

Rafabrat
Postado

Bom galera fui evoluindo e cheguei agora nesta posição acredito que vai dar certo mas esta dando um erro

 

aqui nao tem erro ta o select que envia a informação para...

 

<%
'conexao com o banco 
set conn = Server.CreateObject("ADODB.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\asp\exercicios\Banco de dados2.mdb"
%>

<%
'selecionar a tabela usuarios o campo login 
ssql= "select login from usuarios order by login"
set rs = Conn.Execute(ssql)


%>
<form>
<select name="nome" action="atual2.asp">
<option selected>Selecione :
<%
'tras a reposta se o código escolhido existe
Do While not rs.eof%>

<option><%=rs("login")%>
<% rs.movenext
Loop
%>
<input type="submit" method="get" value="Pesquisar">
</form>

 

Aqui esta o problema :

query string recebe a informação enviada pelo select beleza fiz um rs e deu certo ...

mas quando faço o select e utilizo o where login = '"&login&"'

ele da erro no Conn.execute(ssql)

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'login where login = 'rafaelcarvalho''.

/asp/treinamento para estagio/atual2.asp, line 18

 

<%
dim login , ssql , rs
login = request.querystring("nome")

Response.write(login)

Set Conn = Server.CreateObject("ADODB.Connection")

'Uma vez instanciado Connection podemos abri-lo e lhe atribuímos ao banco de dados onde vamos efetuar as operações
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\asp\exercicios\Banco de dados2.mdb"

'Agora criamos a instrução SQL que nos servirá para falar ao BD
sSQL="Select * From usuarios Order By login"

ssql= ssql & " where login = '"&login&"'"
response.write(ssql)
response.e
'Executamos a ordem
Conn.Execute(sSQL)

%>

<html>
<head>
<title></title>
</head>
<body>


<form>
<table>
<td>Login:</td>
<td><input  type="test" size="25" name="login" value="<%=rs("login")%>"></td>
<tr>

 

Acredito que corrigindo este erro o sistema funcione

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se realmente tem esse campo na tabela, Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você colocou o order by antes do where

 

precisa reposicionar os elementos para corrigir o problema

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafabrat    0

Rafabrat
Postado

resolvido galera

 

O erro era o order by que nao poderia vir antes do where porem nem tinha a necessidade do order by neste local depois deu mais alguns errinhos mais facil de se achar valew

 

agora quem puder me ajudar

 

Campos do bd
'CODIGO autonumeracao no bd
' NOME tipo text no bd e ta com o nome do botao que vem da home.pag
' URL end da pag a ser aberta

<%
'conexao com o banco 
set conn = Server.CreateObject("ADODB.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\asp\Loja Virtual\menu.mdb"
%>

<%
SET RECMENU = CONN.EXECUTE ("SELECT * FROM MENU")
' resposta se o codigo exite 
WHILE NOT RECMENU. EOF

%>
<TABLE>

<TR>
<TD> <A HREF ="<%=RECMENU("URL")%>"><%=RECMENU("NOME")%></A></TD>
</TR>

</TABLE>
<%
RECMENU.MOVENEXT
WEND
%>
o erro esta na <A HREF ="<%=RECMENU("URL")%>"><%=RECMENU("NOME")%></A></TD> o erro menu

Número de argumentos incorreto ou atribuição de propriedade inválida: 'recmenu'

 

pode colocar resolvido ja consegui esse segundo erro era besteirinha vlw galera

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Bom que resolveu

 

Abraços

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