Erro De Update

[jucacabala]

pelo amor de deus qual o erro nesse codigo?

<!--#include file="conexao.inc" -->

<%
	if Request.form("nome")="" then
	response.redirect "index.asp"
	end if

	if session("id")="" then
	response.redirect "restrito.asp"
	end if
%>
	<%
	DIM conexaodb, rs, str
	Dim id, nome, sobrenome, email, nascimento, igreja, endereco, numero, complemento, cep, bairro, cidade, estado, ddd, telefone, celular, senha

	senha = Trim(Request.form("senha"))
	nome = Trim(Request.form("nome"))
	sobrenome = Trim(Request.form("sobrenome"))
	email = Trim(Request.form("email"))
	nascimento = Trim(Request.form("nascimento"))
	igreja = Trim(Request.form("igreja"))
	endereco = Trim(Request.form("endereco"))
	numero = Trim(Request.form("numero"))
	complemento = Trim(Request.form("complemento"))
	bairro = Trim(Request.form("bairro"))
	cep = Trim(Request.form("cep"))
	cidade = Trim(Request.form("cidade"))
	estado = Trim(Request.form("estado"))
	ddd = Trim(Request.form("ddd"))
	telefone = Trim(Request.form("telefone"))
	celular = Trim(Request.form("celular"))
	id = Trim(Request.form("id"))	

	str = "UPDATE cadastro SET "
	str = str & "senha='" & senha & "',"
	str = str & "nome='" & nome & "',"
	str = str & "sobrenome='" & sobrenome & "',"
	str = str & "email='" & email & "',"
	str = str & "nascimento=#" & nascimento & "#,"
	str = str & "igreja='" & igreja & "',"
	str = str & "endereco='" & endereco & "',"
	str = str & "numero=" & numero & ","
	str = str & "complemento='" & complemento & "',"
	str = str & "bairro='" & bairro & "',"
	str = str & "cep='" & cep & "',"
	str = str & "cidade='" & cidade & "',"
	str = str & "estado='" & estado & "',"
	str = str & "ddd='" & ddd & "',"
	str = str & "telefone='" & telefone & "',"
	str = str & "celular='" & celular & "',"
	str = str & "WHERE id=" &id

	call abreconexao
	Set rs = conexaodb.Execute(str)
%>

esta dando 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.

[koal40]

os campos texto e memorando ficam entre aspas simples e duplas já os outros campos ficam entre aspas duplas, ve se está certo, mas uq é isso:

str = str & "nascimento=#" & nascimento & "#,"

[jucacabala]

isso é um campo tipo data

[koal40]

nunca vi esse codigo... hehe, tenta ir tirando partes do cogido, para achar o erro

[jucacabala]

campo data é assim mesmo que se escreve

já revirei o codigo todo

mas não acho onde possa estar o erro

já que em todos meus updates uso este mesmo codigo e dá certo

se alguém descobrir onde posso estar errando

eu agradeço

abraços

Julyana

[koal40]

noss...

qual a linha do erro?

[JCMPJ]

hummm

Veja esta linha :

str = str & "celular='" & celular & "',"

[jucacabala]

mas o que tem de errado nesta linha?

todos os outros campos são texto

e somente nascimento que é tipo data e o numero é tipo numero

a linha de erro é a 54 "Set rs = conexaodb.Execute(str)

"

[JCMPJ]

Bom:

a linha de erro é a 54 "Set rs = conexaodb.Execute(str)

Funciona assim, o erro aparece na linha 54 porque a instrução em SQL que você está querendo executar contém um erro.

Esta mensagen:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

Basicamente informa que a instrução não foi escrita da forma correta.

[jucacabala]

ai é que tá

eu não consigo achar o erro na instrução

na linha

str = str & "celular='" & celular & "',"

eu já tirei a , que estava a mais

so que mesmo assim o erro persiste!

aiaiaia

fora isto me parece que o script esta certo

ou não estou conseguindo achar o erro nele

o que faço agora?

[JCMPJ]

Uma dica

Se você tirar esta linha:

str = str & "celular='" & celular & "',"

O erro vai para a linha anterior. Tipo o erro vai ficar sempre no trecho que antecede a claúsula WHERE.

[jucacabala]

tá meu codigo ficou assim

so que mesmo assim esta dando o tal erro no update

<!--#include file="conexao.inc" -->

<%
	if Request.form("nome")="" then
	response.redirect "index.asp"
	end if

	if session("id")="" then
	response.redirect "restrito.asp"
	end if
%>
	<%
	DIM conexaodb, rs, str
	Dim id, nome, sobrenome, email, nascimento, igreja, endereco, numero, complemento, cep, bairro, cidade, estado, ddd, telefone, celular, senha

	senha = Trim(Request.form("senha"))
	nome = Trim(Request.form("nome"))
	sobrenome = Trim(Request.form("sobrenome"))
	email = Trim(Request.form("email"))
	nascimento = Trim(Request.form("nascimento"))
	igreja = Trim(Request.form("igreja"))
	endereco = Trim(Request.form("endereco"))
	numero = Trim(Request.form("numero"))
	complemento = Trim(Request.form("complemento"))
	bairro = Trim(Request.form("bairro"))
	cep = Trim(Request.form("cep"))
	cidade = Trim(Request.form("cidade"))
	estado = Trim(Request.form("estado"))
	ddd = Trim(Request.form("ddd"))
	telefone = Trim(Request.form("telefone"))
	celular = Trim(Request.form("celular"))
	id = Trim(Request.form("id"))	

	str = "UPDATE cadastro SET "
	str = str & "senha='" & senha & "',"
	str = str & "nome='" & nome & "',"
	str = str & "sobrenome='" & sobrenome & "',"
	str = str & "email='" & email & "',"
	str = str & "nascimento=#" & nascimento & "#,"
	str = str & "igreja='" & igreja & "',"
	str = str & "endereco='" & endereco & "',"
	str = str & "numero=" & numero & ","
	str = str & "complemento='" & complemento & "',"
	str = str & "bairro='" & bairro & "',"
	str = str & "cep='" & cep & "',"
	str = str & "cidade='" & cidade & "',"
	str = str & "estado='" & estado & "',"
	str = str & "ddd='" & ddd & "',"
	str = str & "telefone='" & telefone & "',"
	str = str & "celular='" & celular & "' "
	str = str & "WHERE id=" &id

	call abreconexao
	Set rs = conexaodb.Execute(str)

%>

[jucacabala]

olha o que deu

UPDATE cadastro SET senha='1234',nome='Nancy',sobrenome='C. Rodrigues Lima',email='nancy.lima@uol.com.br',nascimento=#27/09/1975#,igreja='Metodista em Vila Nivi',endereco='',numero=,complemento='',bairro='',cep='',cidade='',estado='',ddd='',telefone='',celular='' WHERE id=31

[cyberalexxx]

poste como a instrução SQL esta ficando:

<!--#include file="conexao.inc" -->

<%

if Request.form("nome")="" then

response.redirect "index.asp"

end if

if session("id")="" then

response.redirect "restrito.asp"

end if

%>

<%

DIM conexaodb, rs, str

Dim id, nome, sobrenome, email, nascimento, igreja, endereco, numero, complemento, cep, bairro, cidade, estado, ddd, telefone, celular, senha

senha = Trim(Request.form("senha"))

nome = Trim(Request.form("nome"))

sobrenome = Trim(Request.form("sobrenome"))

email = Trim(Request.form("email"))

nascimento = Trim(Request.form("nascimento"))

igreja = Trim(Request.form("igreja"))

endereco = Trim(Request.form("endereco"))

numero = Trim(Request.form("numero"))

complemento = Trim(Request.form("complemento"))

bairro = Trim(Request.form("bairro"))

cep = Trim(Request.form("cep"))

cidade = Trim(Request.form("cidade"))

estado = Trim(Request.form("estado"))

ddd = Trim(Request.form("ddd"))

telefone = Trim(Request.form("telefone"))

celular = Trim(Request.form("celular"))

id = Trim(Request.form("id"))

str = "UPDATE cadastro SET "

str = str & "senha='" & senha & "',"

str = str & "nome='" & nome & "',"

str = str & "sobrenome='" & sobrenome & "',"

str = str & "email='" & email & "',"

str = str & "nascimento=#" & nascimento & "#,"

str = str & "igreja='" & igreja & "',"

str = str & "endereco='" & endereco & "',"

str = str & "numero=" & numero & ","

str = str & "complemento='" & complemento & "',"

str = str & "bairro='" & bairro & "',"

str = str & "cep='" & cep & "',"

str = str & "cidade='" & cidade & "',"

str = str & "estado='" & estado & "',"

str = str & "ddd='" & ddd & "',"

str = str & "telefone='" & telefone & "',"

str = str & "celular='" & celular & "' "

str = str & "WHERE id=" &id

call abreconexao

response.write str : response.end

Set rs = conexaodb.Execute(str)

%>

[cyberalexxx]

UPDATE cadastro SET senha='1234',nome='Nancy',sobrenome='C. Rodrigues Lima',email='nancy.lima@uol.com.br',nascimento=#27/09/1975#,igreja='Metodista em Vila Nivi',endereco='',numero=,complemento='',bairro='',cep='',cidade='',estado='',ddd='',telefone='',celular='' WHERE id=31

acho q o erro esta ai, o campo esta em branco.

[jucacabala]

ta resolvido

o JCMPJ desvendou

o campo numero etava sem valor e no banco ele não pode ser nulo

pode fechar

[cyberalexxx]

ta resolvido

o JCMPJ desvendou

o campo numero etava sem valor e no banco ele não pode ser nulo

pode fechar

Fechado!!!