Erro de sintaxe na instrução UPDATE

[brunomuller 0]

Em um cadastro de funcionários que eu tenho aqui quando eu tento atualizar um cadastro já existente a pagina da o seguinte erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

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

/intranet/rh/bd_funcionarios.asp, line 388

 

 

Segue abaixo o a linha de programação em questão da pagina... se alguem puder ajudar por favor... já estou quebrando a cabeça com isso a alguns dias e esta complicado de resolver o problema.

 

elseif Request.Form("origem")= "altera_dados_pessoais.asp" then

If Request.Form("Dependentes") = "" Then
	dependentes = "0"
Else
	dependentes = Request.Form("Dependentes")
End If

'Campos da Tabela
sql = "UPDATE FuncionarioDadosPessoais SET"
sql = sql & " nome = StrConv('" & Request.Form("nome") & "',3)" 
sql = sql & ", rg = '"  & Request.Form("rg") & "'" 
sql = sql & ", cpf = '"  & Request.Form("cpf") & "'" 
sql = sql & ", curso = StrConv('"  & Request.Form("curso") & "',3)"
sql = sql & ", dependentes = '" & dependentes & "'"
sql = sql & ", banco_agencia ='"  & Request.Form("agencia") & "'"
sql = sql & ", banco_conta = '"  & Request.Form("conta_corrente") & "'"
sql = sql & ", banco_codigo = "  & Request.Form("banco")
sql = sql & ", endereco = StrConv('" & Request.Form("endereco") & "',3)"
sql = sql & ", bairro = StrConv('" & Request.Form("bairro") & "',3)"
sql = sql & ", cidade = StrConv('" & Request.Form("cidade") & "',3)" 
sql = sql & ", cep = '" & Request.Form("cep") & "'" 
sql = sql & ", uf = "  & Request.Form("uf") 
sql = sql & ", codigo_sexo = "  & Request.Form("sexo")
sql = sql & ", codigo_estado_civil = "  & Request.Form("estado_civil")
sql = sql & ", data_nascimento = #" & month(Request.Form("nascimento")) & "/" & day(Request.Form("nascimento")) & "/" & year(Request.Form("nascimento")) &"#"
sql = sql & ", email_particular = StrConv('" & Request.Form("email_particular") & "',2)" 
sql = sql & ", email_mercatto = StrConv('" & Request.Form("email_mercatto") & "',2)" 
sql = sql & ", ddd_telefone_residencial = '"  & Request.Form("ddd_telefone_residencial")& "'"
sql = sql & ", telefone_residencial = '"  & Request.Form("telefone_residencial") & "'"
sql = sql & ", ddd_telefone_celular = '"  & Request.Form("ddd_telefone_celular") & "'"
sql = sql & ", telefone_celular = '"  & Request.Form("telefone_celular") & "'"
sql = sql & ", smartfone = '"  & Request.Form("smartfone") & "'"
sql = sql & ", endereco_entrega = StrConv('" & Request.Form("endereco_entrega") & "',3)"
sql = sql & ", bairro_entrega = StrConv('" & Request.Form("bairro_entrega") & "',3)"
sql = sql & ", cidade_entrega = StrConv('" & Request.Form("cidade_entrega") & "',3)" 
sql = sql & ", nomepai = StrConv('" & Request.Form("nomepai") & "',3)" 
sql = sql & ", nomemae = StrConv('" & Request.Form("nomemae") & "',3)" 
sql = sql & ", cep_entrega = '" & Request.Form("cep_entrega") & "'" 
sql = sql & ", codigo_escolaridade = " & Request.Form("codigo_escolaridade")
sql = sql & ", camiseta = " & Request.Form("camiseta")
sql = sql & "   where codigo_funcionario = " & session("codigo_funcionario") 

call abre_conexao_rh
set tab = Conexao_rh.Execute(sql) -------------> essa é a linha 388 aonde ele acusa o erro.
call fecha_conexao_rh

[Mário Monteiro 179]

so olhando nao identifiquei o erro

 

post o write de sql aqui que deve ajudar

[xanburzum 169]

Verifique a ortografia, veja se não tem nenhum nome de coluna invalido ,ou se a coluna a qual você se refere na Base de Dados não foi encontrada. E poste o conteúdo do arquivo conecta.asp

E dê um response.write na sua instrução SQL, para ver o que esta sendo passado

[LuX_ 2]

Como já foi dito, basta dar um:

Response.write sql

e antes de chegar na conexão do banco (e depois do response.write) coloca isso:

Response.end

Ele vai escrever a sua string sql na tela! caso não identificar o erro, torne a postá-la aqui pra a gente ver!