Erro durante UPDATE

[Rodrigo Nogueira 0]

Pessoal novamente venho pedir a ajuda de vocês. Pesquisei em alguns sites e aqui e não consegui achar a solução.

Vai o codigo que apresenta erro. Se alguem poder me ajudar.

Para testar eu fiz o "On error Resume Next" e tentei ver o erro com "response.write err" e deu o seguinte erro 2147217900.

No erro que apresenta na tela é assim: "Syntax error in UPDATE statement". Mas não entendi pois peguei de base um que já está funcionando.

Valeu

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pega.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

add_action.Open "Dados",conexao,1,3

titulo2 = Request.Form("_titul")
endereco2 = Request.Form("_en")
id2 = Request.Form("_id")

strQuery = "UPDATE Dados SET titulo = '"&titulo2&"',local='"&endereco2&"' WHERE ID ="& id2

'On error Resume Next
Set add_action = conexao.Execute(strQuery)
'add_action.close
conexao.close
Set add_action = Nothing
Set conexao = Nothing
response.write strQuery
if err = 0 Then
response.redirect("adicionar.asp") 
else
response.write err
end if
%>

Em outra ocasião que é no mesmo site eu fiz um UPDATE e esta funcionando perfeitamente. Porém neste eu nao consigo ver o erro, e ele foi baseado no que esta funcionando, que vou postar aqui abaixo:

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("olha.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

add_action.Open "Dados",conexao,3,3

ocorrencia_teste = Request.Form("oc_teste")
falhaf_teste = Request.Form("ff_teste") 
noticia1_teste = Request.Form("not1_teste") 
noticia2_teste = Request.Form("not2_teste")
noticia3_teste = Request.Form("not3_teste")
noticia4_teste = Request.Form("not4_teste")
noticia5_teste = Request.Form("not5_teste")
atualizacao1_teste = Request.Form("atu1_teste") 
atualizacao2_teste = Request.Form("atu2_teste") 
atualizacao3_teste = Request.Form("atu3_teste") 
atualizacao4_teste = Request.Form("atu4_teste") 
atualizacao5_teste = Request.Form("atu5_teste")
Datualizacao1_teste = Request.Form("Datu1_teste") 
Datualizacao2_teste = Request.Form("Datu2_teste") 
Datualizacao3_teste = Request.Form("Datu3_teste") 
Datualizacao4_teste = Request.Form("Datu4_teste") 
Datualizacao5_teste = Request.Form("Datu5_teste") 
nmes_teste = Request.Form("mes_teste") 
nmetames_teste = Request.Form("metames_teste") 
nano_teste = Request.Form("ano_teste") 
nmeta_teste = Request.Form("meta_teste")

'response.write Datualizacao5_teste
'Até aqui OK

strQuery = "UPDATE Dados SET Ocorrencia = '"&ocorrencia_teste&"', FF = '"&falhaf_teste&"', not1 = '"¬icia1_teste&"', not2 = '"¬icia2_teste&"', not3 = '"¬icia3_teste&"', not4 = '"¬icia4_teste&"', not5 = '"¬icia5_teste&"', atual1 = '"&atualizacao1_teste&"', atual2 = '"&atualizacao2_teste&"', atual3 = '"&atualizacao3_teste&"', atual4 = '"&atualizacao4_teste&"', atual5 = '"&atualizacao5_teste&"', DAtual1 = '"&Datualizacao1_teste&"', DAtual2 = '"&Datualizacao2_teste&"', DAtual3 = '"&Datualizacao3_teste&"', DAtual4 = '"&Datualizacao4_teste&"', DAtual5 = '"&Datualizacao5_teste&"', mes = '"&nmes_teste&"', meta_mes = '"&nmetames_teste&"', ano = '"&nano_teste&"', meta = '"&nmeta_teste&"' WHERE id ="& 1

'On error Resume Next
Set add_action = conexao.Execute(strQuery)
'add_action.close
conexao.close
Set add_action = Nothing
Set conexao = Nothing
if err = 0 Then
response.write ("Teste")
response.redirect("editar.asp") 
end if
%>

Se alguem descobrir o erro favor me ajudar.

[augustoclaro 2]

nao vi nada de errado aparentemente!

[Rodrigo Nogueira 0]

Pois é... tá complicado.

Será que não tem nada a ver com algum conexao.close, ou algo semelhante com close? Eu não sei muito bem essas coisas... mas sei la... Não tem logica não funcionar assim. Muito estranho.

[augustoclaro 2]

tenta assim:

 

 

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pega.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

titulo2 = Request.Form("_titul")
endereco2 = Request.Form("_en")
id2 = Request.Form("_id")

add_action.Open "select * frin Dados where ID="&id2,conexao,3,3

strQuery = "UPDATE Dados SET titulo = '"&titulo2&"',local='"&endereco2&"' WHERE ID ="& id2

add_action("titulo") = titulo2
add_action("local") = endereco2
add_action.Update

add_action.close
conexao.close
Set add_action = Nothing
Set conexao = Nothing
response.redirect("adicionar.asp")
%>

[Rodrigo Nogueira 0]

rapaz, consegui de outra maneira. Veja só, nunca tinha visto isso, mas achei buscando em forum em ingles.

Foi só colocar a coluna do Access com [], conforme tá o codigo abaixo.

 

Valeu pela ajuda hein Augusto.

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pega.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

add_action.Open "Dados",conexao,3,3

var1 = Request.Form("_titul")
var2 = Request.Form("_en")
var3 = Request.Form("_id")

strQuery = "UPDATE Dados SET [titulo] = '"&var1&"', [local] = '"&var2&"' WHERE [id] ="& var3

'On error Resume Next
'response.write strQuery
Set add_action = conexao.Execute(strQuery)
'add_action.close
conexao.close
Set add_action = Nothing
Set conexao = Nothing
'response.write strQuery
if err = 0 Then
response.redirect("adicionar.asp") 
else
response.write err
end if
%>