Galera, estou com um pequeno grande problema no updateEsta página recebe o codigo e a descricao (que sao enviados via post por outra pagina)
<%
'Ativa tratamento de Erros
on error resume next
Dim con,rs
atualiza_cod_defeito=Request.Form("altera_cod_defeito")
atualiza_desc_defeito=Cstr(Trim(Request.Form("altera_desc_defeito")))
session("atualiza_cod_defeito")=Cint(atualiza_cod_defeito)
session("atualiza_desc_defeito")=atualiza_desc_defeito
Set con = Server.CreateObject("ADODB.CONNECTION")
con.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("./bd/teste.mdb")
sql_altera="Update defeito set descricao=" & session("atualiza_desc_defeito")
sql_altera= sql_altera & " where cod_defeito=" & cint(session("atualiza_cod_defeito"))
set rs=con.execute(sql_altera)
'se houver algum erro, detalha
if err.number > 0 then
With response
.write "Ocorreram os seguintes erros:" & "<p>"
.write "Erro número:" & err.number & "<p>"
.write "Descrição:" & err.helpcontext & "<p>"
.write "Contexto de Ajuda:" & err.helppath & "<p>"
.write "Caminho de Ajuda:" & err.nativeerro & "<p>"
.write "Erro Nativo:" & err.source & "<p>"
.write "Fonte:" & err.source & "<p>"
.write "SQLState" & err.sqlstate & "<p>"
End With
End If
If conn.errors.count > 0 then
With response
.write "Ocorreu um erro no Banco de Dados " & "<p>"
.write sql_altera & "<p>"
End With
for counter=0 to errors.count
With response
.write "Error #" & con.errors(counter).number & "<p>"
.write "Error Descri. ->" & con.errors(counter).description & "<p>"
End With
next
Else
Response.write "Dados Gravados com Sucesso ! "
End If
%>
Eis o problemin...
Ocorreu um erro no Banco de Dados
Update defeito set descricao=aaaa where cod_defeito=21
O que pode ser isto ??
Agradeço a Ajuda !
Rafael
