Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

Alguem poderia me dizer

Recommended Posts

eu ja tenho um site, mais gostaria q cadastre o usuarios e eles mesmo administra-se sua conta, tipo mercado livre ...

 

 

tipo assim, eu me cadastro pra colocar meus produtos .....

Compartilhar este post


Link para o post
Compartilhar em outros sites

faz tipo um mini painel administrativo, exemplo

Compartilhar este post


Link para o post
Compartilhar em outros sites

esta dando erro em todos nessa parte

call abreconexao

<% Select case varmsgeof
case 11 'sem ser o admin – xanburzum gera o erro
response.write("<script>novajan2();</script>")
case 12 'proibido excluir-me, o admin
response.write("<script>novajan3();</script>")
end select
Select case varmsg
case 1 'mensagem de sucesso do incluir
response.write("<script>novajan();</script>")
case 2 'mensagem de sucesso do atualizar
response.write("<script>novajan();</script>")
case 3 'mensagem de sucesso do excluir
response.write("<script>novajan();</script>")
end select
'crio a conexao%>
<!–#include file="conexao1.asp"–>
<% 
call abreconexao
'crio o rs
set rs=Server.CreateObject("ADODB.Recordset")
'crio o SQL
SQL="SELECT * FROM login ORDER BY login"
rs.open SQL,conexao,1,3
%>

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'abreconexao'

/site2/Administração_treina.asp, line 54

erro....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola xan, boa noite!

gostaria de saber pq esta dando este erro

 

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'murilo.sowza@hotmail.com'.

/site2/atualizar_action_treina.asp, line 29

atualizar_action_treina.asp

 

<!--#include file="conexao1.asp" -->

<% 'aplicação 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%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

call abreconexao, precisa do arquivo do include, crie um arquivo conexao1.asp", com o seguinte conteúdo:

 

<% '----------------------
'    este arq. serve para estabelecer a conexao com o BD em Access
'    de nome quaddra.mdb - para o arquivo login_action.asp
sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

 

este erro 80040e14, é sua 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. e também veja se os tipos de dados estão corretos

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

esse erro é de sua sintaxe na string SQL, veja se os campos e tipagem estão corretos

dá um response.write na sua SQl para ver o que esta sendo passado

Compartilhar este post


Link para o post
Compartilhar em outros sites

estou olhando aki os campos confere todos, naun sei o motivo do erro veja

 

Atualizar_action_treina.asp

<!--#include file="conexao1.asp" -->

<%
'aplicação 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, rsupdate, 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 rsupdate=Server.createobject("ADODB.Recordset")
'crio a SQL
SQLupdate="UPDATE login SET login="& varlogin &", email="& varemail&", senha="& varsenha &" WHERE codigo="& varcodigo &""
rsupdate.open SQLupdate,conexao,1,3
if session("login") = "admin" then
response.redirect("administracao_treina.asp?msg=2")
else
response.redirect("administracao_treina.asp?msg=2")
end if
'fecho o rs
set rsupdate=nothing
'fecho a conexao
call fechaconexao
%>

Atualizar_form_treina.asp

 

<!--#include file="conexao1.asp" -->

<% 'aplicação para atualizar 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="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">

<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">
</form>

</td>
</tr>

<% 
'FECHO O RS
set rs=nothing
'fecha a conexao
call fechaconexao
%>
 </table>
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

dá um response.write na sua SQl para ver o que esta sendo passado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Posso te valer a verdade, eu naun sei fazer isso, nem sei como se faz rsrsrsrsrrs

Compartilhar este post


Link para o post
Compartilhar em outros sites

Posso te falar a verdade, eu naun sei fazer isso, nem sei como se faz isso rsrsrsrsrrs

Compartilhar este post


Link para o post
Compartilhar em outros sites

faz assim:

 

<%
call abreconexao
'crio o recordset
set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
rs.open SQL,conexao,1,3
response.write SQL
response.end()

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu dei um response.write na minha SQL, para ver o que estava se passado, e apareceu isso...?????

 

SELECT * FROM login WHERE codigo=3

Compartilhar este post


Link para o post
Compartilhar em outros sites

certifique-se de que existem todos os campos, nomes de tabela na sua estrutura do bd

Compartilhar este post


Link para o post
Compartilhar em outros sites

este erro geralmente é de 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. e também veja se os tipos de dados estão corretos

Compartilhar este post


Link para o post
Compartilhar em outros sites

primeiro, siga como esta os códigos no link, faça um teste com eles daquele jeito, veja qua funciona normal.

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.