[Resolvido] não está gravando no banco de dados

[Boris 0]

Galera estou agora com um problema no momento que eu faço a alteração em um registro ele não está alterando no banco de dados.

 

Ele está recebendo os dados porem não está gravando no banco de dados

 

Alguem pode me ajudar, valew

 

<%

 

'Option Explicit

 

 

'Response.Expires = 0

 

 

Dim objConn, strQuery, sql_query, RsQuery, campo, sql, front, Sim, Nao

Dim ObjRs, palavrasChave,ativo,categoria,pais,cidade,dia,mes_inicio,mes_fim,ano,evento,site

,desc_adicional

Dim id_evento

 

ativo = Request.form("ativo")

categoria = Request.form("categoria")

pais = Request.form("pais")

cidade = Request.form("cidade")

dia = Request.form("dia")

mes_inicio = Request.form("mes_inicio")

mes_fim = Request.form("mes_fim")

ano = Request.form("ano")

evento = Request.form("evento")

site = Request.form("site")

desc_adicional = Request.form("desc_adicional")

id_evento = Request.form("id_evento")

 

'Criando o Recordset

Set objConn = Server.CreateObject("ADODB.Connection")

 

'Conecta ao banco de dados

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\..\Dados\bancodd.mdb") & ";Persist Security Info=False"

 

 

strQuery = "UPDATE tbCalendario_Evento SET ativo='"&ativo&"' and categoria='"&categoria&"' and pais='"&pais& "' and cidade='"&cidade&"' and dia='"&dia&"' and mes_inicio='"&mes_inicio&"' and mes_fim='"&mes_fim&"' and ano='"&ano&"' and evento='"&evento&"' and site='"&site&"' and desc_adicional='"&desc_adicional&"' WHERE id_evento="&id_evento

 

'response.write strQuery & "<br>"

'response.end

 

 

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing

Set objConn = Nothing

 

if err.number <> 0 Then

response.write("Erro código"&err.number &" - "& err.description)

response.end()

else

response.redirect "sucesso.asp"

end if

%>

 

Valew galera obrigado pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

tire o On error Resume Next e veja se tem alguma mensagem de erro

[hargon 64]

Só uma coisa...

strQuery = "UPDATE tbCalendario_Evento SET ativo='"&ativo&"' and categoria='"&categoria&"' and pais='"&pais& "' and cidade='"&cidade&"' and dia='"&dia&"' and mes_inicio='"&mes_inicio&"' and mes_fim='"&mes_fim&"' and ano='"&ano&"' and evento='"&evento&"' and site='"&site&"' and desc_adicional='"&desc_adicional&"' WHERE id_evento="&id_evento

Não utiliza-se AND... pelo menos nunca vi. É vírgula para separar os campos.

 

strQuery = "UPDATE tbCalendario_Evento SET ativo='"&ativo&"', categoria='"&categoria&"', pais='"&pais& "', cidade='"&cidade&"', dia='"&dia&"', mes_inicio='"&mes_inicio&"', mes_fim='"&mes_fim&"', ano='"&ano&"', evento='"&evento&"', site='"&site&"', desc_adicional='"&desc_adicional&"' WHERE id_evento="&id_evento

[Boris 0]

ok, já resolvi valew galera

[Mário Monteiro 179]

O que mudou?