2 replies to this topic

[Lane D]

Bom dia pessoal será que alguém pode me ajudar a identificar onde está o meu erro?
Já fiz várias alterações mas não consegui identificar. Consigo visualizar as imformações do banco, inserir e deletar informações, porém não estou conseguindo fazer alterações.
Muito grata


Esse é o código:
<%
Option Explicit
%>
<!--#include file="lib_conexao.asp"-->
<%
Dim SQL, Conexao, rs
Dim nm_cliente, email_cliente
nm_cliente = Trim(Request.Form("nm_cliente"))
email_cliente = Trim(Request.Form("email_cliente"))


SQL = "UPDATE clientes SET"
SQL = SQL & "nm_cliente = '"& nm_cliente & "', "
SQL = SQL & "email_cliente ='"& email_cliente & "' "
SQL = SQL & "WHERE cod_cliente =" & Session("id_cliente")

'Abre conexão
Call open_conexao

'Executa a conexão
Set rs=Conexao.Execute(SQL)

'Fecha a conexão
Call close_conexao
Set rs = Nothing
%>

Esse é o erro: Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.
/teste/clientes_alterar3.asp, line 21

[DiegoCoruja]

colocar o session("id_cliente") em uma variavel e da um response.write e veja o está sendo enviado

<%
Option Explicit
%>
<!--#include file="lib_conexao.asp"-->
<%
Dim SQL, Conexao, rs
Dim nm_cliente, email_cliente
nm_cliente = Trim(Request.Form("nm_cliente"))
email_cliente = Trim(Request.Form("email_cliente"))
variavel_session = Session("id_cliente")

response.write nm_cliente &"<br>"& email_cliente&"<br>"&variavel_session
response.end

SQL = "UPDATE clientes SET"
SQL = SQL & "nm_cliente = '"& nm_cliente & "', "
SQL = SQL & "email_cliente ='"& email_cliente & "' "
SQL = SQL & "WHERE cod_cliente ='" & variavel_session & "' "

'Abre conexão
Call open_conexao

'Executa a conexão
Set rs=Conexao.Execute(SQL)

'Fecha a conexão
Call close_conexao
Set rs = Nothing
%>

depois comenta o response.write

Edição feita por: DiegoCoruja, 23/02/2008, 15:02.

[Mochii]

exatamente oq Diego fez

era soh fechar as aspas do UPDATE


SQL = "UPDATE clientes SET"
SQL = SQL & "nm_cliente = '"& nm_cliente & "', "
SQL = SQL & "email_cliente ='"& email_cliente & "' "
SQL = SQL & "WHERE cod_cliente =" & Session("id_cliente")


arrumar apartir de


'"& Session("id_cliente")&"'"