Modificar Cadastro

[marcdes 0]

Boa tarde,

 

estou tentando atualizar cadastros de usuários no BD. Tenho uma página onde seleciono um usuário e edito seu perfil. Tem um botão onde envia os dados para ser atualizado. Mas está dando um erre de sintaxe no UPDATE.

 

o código é esse:

 

<%@ Language=VBScript%>

<%

 

dim rsTarefas, rsUser, sql, login

login = Request.Cookies("login")

 

if Request.Cookies("login") = "" then

Response.Redirect("login_adm.asp")

end if

 

%>

<%

 

dim cpf, rg, nome, sobrenome, endereco, bairro, cidade, estado, fone_casa, fone_cel, cep, email, nascimento

 

nome = Request.Form("nome")

sobrenome = Request.Form("sobrenome")

cpf = Request.form("cpf")

rg = Request.Form("rg")

endereco = Request.form("endereco")

bairro = Request.form("bairro")

cidade = Request.form("cidade")

estado = request.form("estado")

fone_casa = request.form("fone_casa")

fone_cel = request.form("fone_cel")

cep = request.form("cep")

email = request.form("email")

nascimento = request.form("nascimento")

 

set cn = server.CreateObject ( "ADODB.Connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados/projecao.mdb")

 

 

sql= "UPDATE aluno SET cpf = '"& cpf &"', rg = '"& rg &"', nome = '"& nome &"', sobrenome = '"& sobrenome &"', endereco = '"& endereco &"', bairro = '"& bairro &"', cidade = '"& cidade &"', estado = '"& estado &"', fone_casa = '" & fone_casa & "', fone_cel = '" & fone_cel & "', cep = '" & cep & "', email = '" & email & "', nascimento '" & nascimento & "' WHERE cpf = '"& cpf &"' AND rg = '"& rg &"' AND nome = '"& nome &"' AND sobrenome = '"& sobrenome &"' AND endereco = '"& endereco &"' AND bairro = '"& bairro &"' AND cidade = '"& cidade &"' AND estado = '"& estado &"' AND fone_casa = '" & fone_casa & "' AND fone_cel = '" & fone_cel & "' AND cep = '" & cep & "' AND email = '" & email & "' AND nascimento '" & nascimento & "'"

set rs = cn.execute(sql)

 

response.redirect("listar_alunos1.asp")

%>

 

 

grato pela ajuda,

 

Marcondes

[Cable 0]

Cara, vendo a instrução SQL assim fica meio "chato" analiza.

Faz o seguinte. Pra fica mais facil de você acha o erro, printa esse Update em tela, copia e cola em uma consulta no seu bando de dados (seja ele Access, SQL..whatever).

 

Como tem um erro, a consulta vai indica onde está ele.

Ai de lá voce consegue arruma.

 

Outra coisa: Voce nao precisa "Seta" uma variavel pra faze um UPDATE. É só você coloca lá "cn.execute(SQL)" e tá beleza.

 

Pra printa seu Update, antes do EXECUTE você coloca isso:

response.write(SQL) : response.end()

 

Certo?

 

 

Outra coisa que eu aconselho você faze, é cria um ID pra cada cadastro.

Noqq isso vai te ajuda? Simples.

Voce fazendo um ID autonumérico pra cada cadastro, cada cadastro vai te somente 1 ID, certo? Eles nao vao se repetir. Serão unicos.

 

Ta vendo a condição do seu UPDATE ??? É enorme.~

Com o ID, é só você fala "ATUALIZA os dados assim assim assado, quando o ID for igual a tal".

Pronto. Não precisa faze esse mundo de condições. Ok?

 

Qualquer coisa tamo ai.