Erro UPDATE

[Matheus Brito 12]

Por favor algum fliho de Deus ajuda ai, porque nao aguento mais esses erros f.dp.To tentando atualizar uma tabela no banco, segue o codigo:

 

Vou postar so o codigo de update pois o erro esta indicando que é ai:

 

<!--asp--><div class='highlight_syntax_top'>ASP</div><div class='highlight_syntax_main'><!--asp1--><div class="asp">If Request.QueryString("fazer")=alterar then

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

set rs_atualiza=server.CreateObject("adodb.Recordset")

sql="UPDATE credenciados_atividades set "

sql=sql & "atividade='" & request.Form("atividade") & "',"

sql=sql & "where cod_atividade="& request.Form("cod_empresa")

rs_atualiza = conexao.execute(sql)

'Response.write(sql)

'Response.end()

end if

rs_atualiza.close

set rs_atualiza=nothing

response.Write("Atividade Alterada com sucesso!")& "<br>"

response.Write "<a href='AlterarAtividade.asp'>Alterar mais alguma atividade?</a>"

%>

</div><!--asp2--></div><!--asp3-->

 

 

Segue erro:

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

 

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

 

/matheus/AlterarAtividade.asp, line 95

 

 

<!--asp--><div class='highlight_syntax_top'>ASP</div><div class='highlight_syntax_main'><!--asp1--><div class="asp">linha92 sql="UPDATE credenciados_atividades set "

linha93 sql=sql & "atividade='" & request.Form("atividade") & "',"

linha94 sql=sql & "where cod_atividade="& request.Form("cod_empresa")

linha95 rs_atualiza = conexao.execute(sql)

 

</div><!--asp2--></div><!--asp3-->

 

 

Por favor alguem me ajude.

abs a todos

[Mário Monteiro 179]

impreme na tela o valor de SQL

 

e poste aqui

[Matheus Brito 12]

Não ta saindo nada, coloquei um:

response.write(sql)

response.end()

 

E nao sai nada o erro nao deixa.

abs

[Mário Monteiro 179]

colocou em que parte?

[Matheus Brito 12]

coloquei na parte onde ja tem no codigo depois da sentença de update, so fiz tirar o comentario.

abs

[Mário Monteiro 179]

poe antes de executar

 

alem disso nao precisa de recordset para isso

 

pode usar direto

 

conexao.execute(sql)

[Matheus Brito 12]

Continua sem sair nada.Descobre qual é esse erro ai, plis, ou nao tem algum tutorial pro ai nao de criação de tela pra alteração?

abs

[Mário Monteiro 179]

acho que na ta entrando no IF

 

Ve isso aqui

 

If Request.QueryString("fazer")=alterar then

Aquele alterar é uma variavel mesmo? se for texto poe entre aspas

[Matheus Brito 12]

esse alterar que eu coloquei ai, eu so coloquei ele no action do form. Tem algum problema isso?

abs

[Mário Monteiro 179]

nao

 

o que quero saber é se é um texto normal

 

se for tem que coloca-lo entre aspas

[Matheus Brito 12]

coloquei as aspas cara havia esquecido delas, mas ai quando clico em alterar, ele da um erro na instrução update.

abs

 

Ou seja o mesmo erro.

[Mário Monteiro 179]

poe o erro ai

[Matheus Brito 12]

Ta dando o mesmo erro, erro na instrução update.Já nao sei mais o que faço uma simples atualização.

abs

[Mário Monteiro 179]

mas e o valor da sql qual é?

 

posta ai que agora deve aparecer algo

 

poe o erro atual tambem

[Matheus Brito 12]

Cara ja coloquei ele antes e depois da sequencia update,e nao aparece nada, e o erro como ja disse eh o mesmo, masa vou colocar de novo ele ai:

 

Analissa essa sequencia update pra ve se ta 100% correta.

 

ERRO:

 

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

 

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

 

/matheus/AlterarAtividade.asp, line 95

 

ABS

[Mário Monteiro 179]

essa porte do codigo

 

ASP

sql="UPDATE credenciados_atividades set "

sql=sql & "atividade='" & request.Form("atividade") & "',"

sql=sql & "where cod_atividade="& request.Form("cod_empresa")

rs_atualiza = conexao.execute(sql)

'Response.write(sql)

'Response.end()

 

troca por

 

 

ASP

sql="UPDATE credenciados_atividades set "

sql=sql & "atividade='" & request.Form("atividade") & "',"

sql=sql & "where cod_atividade="& request.Form("cod_empresa")

'rs_atualiza = conexao.execute(sql)

Response.write(sql)

Response.end()

 

note que so mudei os comentarios

 

e poste aqui o que aparecer na tela

[Matheus Brito 12]

Ta indo vazio o campo do cod_atividade?????? Não sei porque?

 

A saida do response.write sql:

 

UPDATE credenciados_atividades set atividade=',',where cod_atividade=

 

abs da uma ajuda aew.

 

 

 

P.S Apenas a saida do cod_atividade, por exemplo primeiro eu busco no banco a atividade, e depois eu altero:

ex: atividade confecção=isso vem do banco em um form, quando clico no botao de alterar ele passa o valor que eu escolher mas nao passa o cod_atividade por isso nao ta alterando, como devo fazer.

abs

[Mário Monteiro 179]

esta vendo que tem uma virgula sobrando em seu code tambem e que o valor de atividade tem uma virgula

 

os campos do form estao sendo preenchidos corretamente?

[Matheus Brito 12]

Vou postar a saida quando preencho o form:

 

 

Saída:

 

UPDATE credenciados_atividades set atividade='Varejo',where cod_atividade=

 

 

Ex: a atividade era Confecção e quis muda-la pra varejo.

Sako, o campo atividade ta indo tranquilo o que nao ta indo é o cod_atividade por isso nao ta atualizando, eu creio.

só nao sei como consertar da uma força ai.

abs

[Mário Monteiro 179]

mesmo assim ta sobrando uma virgula

 

quanto ao compo em branco de onde vem seu valor?