Erro no Update


	Fórum
	ASP - Active Server Page

Responder

Voltar

Autor

Assunto: Erro no Update

GAbriel
não registrado

ENUNCIADA !

Postada em 13/05/2004 12:05 hs

Pessoal, estou com um probleminha muito chato, sou iniciante e talvez tenha escrito algo errado, já corrigi algumas vezes mas acho que estou cego...........rs

Bem, tenho uma pagina que busca um registro no banco (access) e a partir daí chamo outra para atualizar os dados, porém a página de atualização apresenta o famoso "A página não pode ser exibida" e nao exibe nenhum erro, fiz alguns testes e verifiquei que tirando a string de update eu consigo recuperar os dados do form........será que alguém poderia me dar um help???????????

segue codigo da pagina update.asp

%
Option Explicit
%>

<%
Dim VarID, varNome, varUser, varSenha, varNivel, rsUpdate, sqlUpdate, sqlSel, rsSel
VarID = Request.Form("id")
varNome = Request.Form("usuario")
varUser = Request.Form("login")
varSenha = Request.Form("senha")
varNivel = Request.Form("nivel")
sqlSel = "SELECT * FROM login WHERE ID_User = '" & VarID & "'"
sqlUpdate = "UPDATE login SET user = '" & varUser & "',"
sqlUpdate = sqlUpdate & "nome = '" & varNome & "',"
sqlUpdate = sqlUpdate & "senha = '" & varSenha & "',"
sqlUpdate = sqlUpdate & "COD_Nivel = '" & varNivel &"'"
sqlUpdate = sqlUpdate & "WHERE ID_User = '" & VarID & "'"

Call abre_conexao
Set rsSel = Conexao1.Execute(sqlSel)
'Set rsUpdate = Conexao1.Execute(sqlUpdate)
'Call fecha_conexao
'Set rsUpdate = Nothing
%>
<html>
<head>
<title></title>
<link rel="stylesheet" href="estilo/estilo2.css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script language="javascritp">
alert("VarID");
</script>
<body topmargin="0" leftmargin="0" marginhight="0" marginwidth="0" bgcolor="#FFFFFF" text="#000000">
<table width="778" class="tabela">
<tr>
<%
IF not rsSel.EOF then
%>
<td>

      <div align="center"><b><font size="4">ERRO !!!</font></b></div>
</td>
</tr>
<%
ELSE
Set rsUpdate=Conexao1.Execute(sqlUpdate)
%>
<tr>
<td>
      <div align="center"><b><font size="4">OK !!!</font></b></div>
</td>
</tr>
<%
End IF
%>
<tr>
<td>
      <div align="center"><font size="2"><a href="javascript:history.go(-1)">Voltar</a></font></div>
</td>
</tr>
</table>

</body>
</html>

Obrigado,

GAbriel

RicWeb

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/05/2004 08:28 hs

Por favor amigo, desabilite a opção de erros amigáveis do seu browser e poste o erro novamente.

Gabriel
não registrado

ENUNCIADA !

Postada em 27/05/2004 15:43 hs

Prezado RicWeb, obrigrado pela dica, fiz a alteração e começou a apresentar os erros, então fui alterando o codigo e cheguei na seguinte situação:

codigo alterado:

<%
Option Explicit
%>

<%
Dim VarID, varNome, varUser, varSenha, varNivel, rsUpdate, sqlUpdate, sqlSel, rsSel
VarID = Request.Form("id")
varNome = Request.Form("usuario")
varUser = Request.Form("login")
varSenha = Request.Form("senha")
varNivel = Request.Form("nivel")

sqlUpdate = "UPDATE login SET"
sqlUpdate = sqlUpdate & "user = '" & varUser & "',"
sqlUpdate = sqlUpdate & "nome = '" & varNome & "',"
sqlUpdate = sqlUpdate & "senha = '" & varSenha & "',"
sqlUpdate = sqlUpdate & "COD_Nivel = '" & varNivel & "',"
sqlUpdate = sqlUpdate & "WHERE ID_User = '" & VarID & "'"

Call abre_conexao
'Set rsSel = Conexao1.Execute(sqlSel)
Set rsUpdate = Conexao1.Execute(sqlUpdate) - LINHA 22
Call fecha_conexao
Set rsUpdate = Nothing
%>
<html>
<head>
<title></title>
<link rel="stylesheet" href="estilo/estilo2.css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body topmargin="0" leftmargin="0" marginhight="0" marginwidth="0" bgcolor="#FFFFFF" text="#000000">
<table width="778" class="tabela">
<tr>
<%
'IF not rsSel.EOF then
%>
<td>

      <div align="center"><b><font size="4">ERRO !!!</font></b></div>
</td>
</tr>
<%
'ELSE
'Set rsUpdate=Conexao1.Execute(sqlUpdate)
%>
<tr>
<td>
      <div align="center"><b><font size="4">OK !!!</font></b></div>
</td>
</tr>
<%
'End IF
%>
<tr>
<td>
      <div align="center"><font size="2"><a href="javascript:history.go(-1)">Voltar</a></font></div>
</td>
</tr>
</table>

</body>
</html>
erro apresentado:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/UpdateUser.asp, line 22

Será que vc ou alguém mais experiente poderia me dar umas dicas de update, pois sou iniciante e seguindo o que estava descrito num livro cheguei a isso...........e como podem ver nao está funcionando.

Desde já agradeço

T+

. . . z e n !
não registrado

ENUNCIADA !

Postada em 27/05/2004 16:13 hs

tente com o update abaixo:

sqlUpdate = "UPDATE login SET"
sqlUpdate = sqlUpdate & "user = '" & varUser & "',"
sqlUpdate = sqlUpdate & "nome = '" & varNome & "',"
sqlUpdate = sqlUpdate & "senha = '" & varSenha & "',"
sqlUpdate = sqlUpdate & "COD_Nivel = '" & varNivel & "'"
sqlUpdate = sqlUpdate & "WHERE ID_User = '" & VarID & "'"

Gabriel
não registrado

ENUNCIADA !

Postada em 27/05/2004 17:01 hs

nao funcionou, deu o mesmo erro............

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/UpdateUser.asp, line 22

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR