Buenos dias,
Tengo una pagina asp donde intento modificar una base de datos y me da este error:
Microsoft JET Database Engine error '80004005'
La operación debe usar una consulta actualizable.
/webs/mem25/admin/edit_cursets.asp, line 62
Aqui os dejo el codigo:
<%
if Request.QueryString("accion") = "ver" then
Formulario
elseif Request.QueryString("accion") = "editar" then
EnviarFormulario
else
Response.Write(Date())
end if
Sub Formulario
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../mem25.mdb")
sql = "SELECT * FROM adreces"
RS.Open sql, oConn
Response.Write("<form action=""edit_cursets.asp?accion=editar"" method=""post"" name=""editar""><table width=""565"" border=""0"" cellspacing=""1"" cellpadding=""2"">")
Response.Write("<tr><td>Adreça: </td><td>Comentari: </td><td>Edit: </td><td>Del: </td></tr>")
do while not rs.EOF
Response.Write("<tr><td><input name=""adreca"" type=""text"" value="""&rs.Fields("adreca")&""" size=""25""><input name=""idadreca"" type=""hidden"" value="""&rs.Fields("idadreca")&""" size=""25""></td><td><input name=""comentari"" type=""text"" value="""&rs.Fields("comentari")&""" size=""65""></td><td><input name=""edit"" type=""submit""></td><td>del</td></tr>")
RS.MoveNext
Loop
Response.Write("</table></form>")
Rs.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
End Sub
Sub EnviarFormulario
idadreca = Request.Form("idadreca")
adreca = Request.Form("adreca")
comentari = Request.Form("comentari")
Set oConn = Server.CreateObject ("ADODB.Connection")
strPath=Server.MapPath("../mem25.mdb")
oConn.Provider="Microsoft.Jet.OLEDB.4.0"
oConn.Properties("Data Source").Value = strPath
oConn.Open
Línea de error oConn.Execute ("UPDATE adreces SET adreca='hola',comentari='deu' WHERE idadreca=1")
oConn.Close
Set oConn = nothing
End Sub
%>
