Alterar Dados no BD

rcdesign · Junho 24, 2003

E aí galera.... mais uma vez preciso da ajuda de vcs....

Tenho um site aonde os internautas cadastrados irão logar-se para poder fazer pesquisas no BD e alterar seus dados pessoais....

É assim:

Ele vai se logar: Login

Login ok será redirecionado para: Logado

Está página tem os links para as pesquisas e Alterar dados.

O problema que estou enfrentando é no link alterar dados que quando clico nele o programa mostra as informações do primeiro registro do BD, quando deveria buscar as informações de quem está logado é claro...

O que e como fazer para acertar isto?

Para testar utilizem o login: rcdesign@rcdesignbrasil.com

senha: teste

d.eleete · Junho 24, 2003

SIIIIIMPLES...Primeiro você faz o select da tabela de senhas e na frente de cada senha tem q ter o codigo do usuario certo?entaum faz assimvar_codigo = rs("cod_usuario")Qndo ele reconhecer o usuario no script de login você cria uma session chamada session("usuario") = var_codigobeleza... ai ele dah um response.redirect pra outra página...Entaum todo SELECT que você for dar em qualquer PAGINA você faz o seguinte:Cria denovo a var_codigo = session("usuario")Dai você usa sempre a clausula WHERE cod_usuario = '"&var_codigo&"' :unsure:

rcdesign · Junho 24, 2003

Parece realmente simples, mas no programa que tenho não consigo fazer funcionar..... :rolleyes: :D

Salgado · Junho 24, 2003

Posta os códigos das páginas de Loggin e de alteração de cadastro para podermos te ajudar.

Valeu?

rcdesign · Junho 24, 2003

alterarmus.asp

<html><head><title>Galeria do Músico - Alterar Dados</title></head><body bgcolor="#FFFFFF"><center> <table width="80%" border="0" cellspacing="1" cellpadding="1"> <tr> <td valign="top"> <p><font face="Arial" size="4"> <%If IsEmpty( Request.Form("submit") ) Thenvar_codigo = session("usuario")Set Conexao = Server.CreateObject("ADODB.Connection")Constr="DBQ=" & server.mappath("cadastro.mdb")Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & ConstrComandoSQL = "SELECT * FROM tbmusicos WHERE cod = '"&var_codigo&"'"Set bd = Server.CreateObject("ADODB.Recordset")bd.CursorLocation = 2bd.CursorType = 0bd.LockType = 3bd.Open ComandoSQL, conexao,,, &H0001If Not bd.EOF Then bd.Move Request.QueryString("n")%> </font></p> <form method=post action="<%=Request.ServerVariables("script_name")%>"> <input type=hidden name="ComandoSQL" value="<%=ComandoSQL%>"> <input type=hidden name="Conexao" value="<%=Constr%>"> <table border=1 width="80%" align=center cellpadding="1" cellspacing="1"> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Nome:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="nome" value="<%=bd("nome")%>" size=45 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Sexo:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="sexo" value="<%=bd("sexo")%>" size=25 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Data de Nascimento:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="dtnasc" value="<%=bd("dtnasc")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Endereco:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="endereco" value="<%=bd("endereco")%>" size=45 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Cidade:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="cidade" value="<%=bd("cidade")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Estado:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="estado" value="<%=bd("estado")%>" size=25 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">CEP:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="cep" value="<%=bd("cep")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Telefone:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="ddd" value="<%=bd("ddd")%>" size=2 maxlength=3 style="{<font-family:Arial; font-size:12}"> <input type=text name="telefone" value="<%=bd("telefone")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Email:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="email" value="<%=bd("email")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Instrumento Principal:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="instrumento1" value="<%=bd("instrumento1")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Outros Instrumentos:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="outrosinstr" value="<%=bd("outrosinstr")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Estilo Principal:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="estilo1" value="<%=bd("estilo1")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Outros Estilos:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="outrosestilos" value="<%=bd("outrosestilos")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Formação:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="formacao" value="<%=bd("formacao")%>" size=35 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Experiência:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="experiencia" value="<%=bd("experiencia")%>" size=35 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Influencias:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="influencias" value="<%=bd("influencias")%>" size=35 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Banda Atual:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="banda" value="<%=bd("banda")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Senha:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="senha" value="<%=bd("senha")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td width="35%"> <div align="left"><font color="#000000"><b><font face="Arial" size="2">Lembrete:</font></b></font></div> </td> <td align=left valign=top> <font face="Arial" size="4"> <input type=text name="lembrete" value="<%=bd("lembrete")%>" size=35 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> </table> <center> <input type=submit name=submit value=Alterar style="{<font-family:Arial; font-size:12}"> </center> <input type="hidden" name="n" value="<%if Not IsEmpty(Request.QueryString("n"))then : Response.Write Request.QueryString("n") Else : Response.Write "0" : End If%>"> </form> <% End IfElse If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("sexo")) <> "" AND Trim(Request.Form("dtnasc")) <> "" AND Trim(Request.Form("endereco")) <> "" AND Trim(Request.Form("cidade")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("cep")) <> "" AND Trim(Request.Form("ddd")) <> "" AND Trim(Request.Form("telefone")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("instrumento1")) <> "" AND Trim(Request.Form("outrosinstr")) <> "" AND Trim(Request.Form("estilo1")) <> "" AND Trim(Request.Form("outrosestilos")) <> "" AND Trim(Request.Form("formacao")) <> "" AND Trim(Request.Form("experiencia")) <> "" AND Trim(Request.Form("influencias")) <> "" AND Trim(Request.Form("banda")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("lembrete")) <> "" ThenSet Conexao = Server.CreateObject("ADODB.Connection")Constr="DBQ=" & server.mappath("cadastro.mdb")Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & Constr ComandoSQL = Request.Form("ComandoSQL") Set bd = Server.CreateObject("ADODB.Recordset") bd.CursorLocation = 2 bd.CursorType = 0 bd.LockType = 3 bd.Open ComandoSQL, Conexao,,, &H0001 bd.Move Request.Form("n") bd("nome") = Server.HTMLEncode(Request.Form("nome")) bd("sexo") = Server.HTMLEncode(Request.Form("sexo")) bd("dtnasc") = Server.HTMLEncode(Request.Form("dtnasc")) bd("endereco") = Server.HTMLEncode(Request.Form("endereco")) bd("cidade") = Server.HTMLEncode(Request.Form("cidade")) bd("estado") = Server.HTMLEncode(Request.Form("estado")) bd("cep") = Server.HTMLEncode(Request.Form("cep")) bd("ddd") = Server.HTMLEncode(Request.Form("ddd")) bd("telefone") = Server.HTMLEncode(Request.Form("telefone")) bd("email") = Server.HTMLEncode(Request.Form("email")) bd("instrumento1") = Server.HTMLEncode(Request.Form("instrumento1")) bd("outrosinstr") = Server.HTMLEncode(Request.Form("outrosinstr")) bd("estilo1") = Server.HTMLEncode(Request.Form("estilo1")) bd("outrosestilos") = Server.HTMLEncode(Request.Form("outrosestilos")) bd("formacao") = Server.HTMLEncode(Request.Form("formacao")) bd("experiencia") = Server.HTMLEncode(Request.Form("experiencia")) bd("influencias") = Server.HTMLEncode(Request.Form("influencias")) bd("banda") = Server.HTMLEncode(Request.Form("banda")) bd("senha") = Server.HTMLEncode(Request.Form("senha")) bd("lembrete") = Server.HTMLEncode(Request.Form("lembrete")) bd.UpdateBatch bd.Requery%> <center> <font face="Arial" size="2"><br> <b>Seus dados foram atualizados com sucesso!<br> <br> <a href="java script:history.go(-2)">Clique aqui</a> para voltar</b></font> </center> <% Else%> <center> <font face="Arial" size="2"><br> Atenção: Alguns dados necessário não foram preenchidos corretamente <br> <a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font> </center> <% End IfEnd If%> <p> </p> </td> </tr> </table></center></body></html>

validalogin.asp

<% Dim ConexaoAberta Dim StrCon Dim Conexao Set Conexao = CreateObject("ADODB.CONNECTION") StrCon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("cadastro.mdb") & "; uid=sa; pwd=;" ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open StrCon ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub Dim sqlDim RSSql = "Select * FROM tbmusicos WHERE email = '" & Request.Form("login") & "' "Sql = sql & "AND senha='" & Request.Form("senha") & "' "AbreConexao if Request.Form("enviando") = "sim" then set Rs = conexao.execute(Sql) if not rs.eof then Session("email") = RS("email") Session("senha") = RS("senha") Session("nome") = RS("nome") session("usuario") = RS("cod") Session("Status") = "Logado" conexao.execute(sql) Response.Redirect("logado.asp") else Session("Status") = "Invalido"response.write ("<font size=2 face=Arial><b>")response.write ("<br><br>Login Inválido.<br><br><br>Volte e tente novamente <a href='login.asp'>Login</a>.")response.write ("</font></b>") end if end if FechaConexao %>

Salgado · Junho 24, 2003

"cod" é um campo autonumérico?

se for aqui:

ComandoSQL = "SELECT * FROM tbmusicos WHERE cod = '"&var_codigo&"'"

você faz:

ComandoSQL = "SELECT * FROM tbmusicos WHERE cod = "&var_codigo&""

E aqui:

bd.Move Request.QueryString("n")

acho que não é necessário, pois você já está selecionando o usuário especifico.

Valeu?

rcdesign · Junho 24, 2003

:D Caramba!!! Parece que era isso mesmo.... :huh: :D

d.eleete · Junho 24, 2003

Nossa salgado.. q paciencia.. :huh:

Salgado · Junho 24, 2003

Nossa salgado.. q paciencia.. :huh:

É só você selecionar o que realmente interessa num código.

Tipo o erro era numa consulta SQL, que normalmente está próximo da conexão, entã é só procurar a conexão e ler o que interessa.

Valeu?

Arquivado

Alterar Dados no BD

Recommended Posts

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

d.eleete 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

d.eleete 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante