Microsoft JET Database Engine error '80004005'

kvera · #1 (**permalink**) 23/07/2008, 10:30

Estimados:

El error que me aparece es el siguiente....

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/reserva.asp, line 47

si vamos a la linea 47, lo que tengo es....

<%
Dim con,rs,sql,datos

nombre=Request.Form("nombre")
Response.Write nombre
rut=Request.Form("rut")
Response.Write rut
email=Request.Form("email")
Response.Write email
cantidad=Request.Form("cantidad")
Response.Write cantidad
ubicacion=Request.Form("ubicacion")
Response.Write ubicacion
comentarios=Request.Form("comentarios")
Response.Write comentarios

datos= Server.MapPath ( "MAESTRO.mdb " )

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"

sql= "INSERT INTO datos (nombre,rut,email,cantidad,ubicacion,comentarios) VALUES('"&nombre&"','"&rut&"','"&email&"','"&canti dad&"','"&ubicacion&"','"&comentarios&"')"

Set rs= con.execute(sql) <<<<<-----------////////////LINEA 47////////////

On Error Resume Next

If Err <> 0 Then
Response.write "Ocurrio un error durante el proceso, los datos no fueron insertados"
Else
Response.write "Gracias por introducir tus datos"
End If

rs.close
Set rs= Nothing
con.close
Set con= Nothing
%>

ese es todo mi codigo....debo mencionar que la tabla tiene todos los permisos correspondientes y que trabajo sobre un hosting arrendado, donde creo que esta el problema a pesar de que ellos afirmen lo contrario....agradeceria cualquier tipo de ayuda, ya que no se cual puede ser mi problema.

De antemano muchas gracias,

Saludos

Karla

Shiryu_Libra · #2 (**permalink**) 23/07/2008, 10:41

karla....
esto es debido a falta de permisos
sigue estos pasos Permisos de Escritura

delfin85 · #3 (**permalink**) 23/07/2008, 11:39

yo ya hice eso de los permisos y todo
pero me sale este error

Tipo de error:
Provider (0x80004005)
Error no especificado
/pruebas/lista.asp, línea 8

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rst_Lista
Dim rst_Lista_numRows

Set rst_Lista = Server.CreateObject("ADODB.Recordset")
rst_Lista.ActiveConnection = MM_cnnSGC_STRING <--------ESTA ES LA LINEA 8
rst_Lista.Source = "SELECT * FROM Archivos ORDER BY Id_Num ASC"
rst_Lista.CursorType = 0
rst_Lista.CursorLocation = 2
rst_Lista.LockType = 1
rst_Lista.Open()

rst_Lista_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rst_Lista_numRows = rst_Lista_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Administración Del Sistema De Gestión De Calidad</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
<script type="text/javascript" src="Menus/stmenu.js"></script>
</head>
<body>
<div align="center">
 <table width="800" height="529" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="90" colspan="3" valign="top">
<p align="center"><img src="IMG/baner.JPG" width="790" height="90"></p> </td>
</tr>
<tr>
<td valign="top" rowspan="2" width="55">
 
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p></td>
<td height="26" valign="top" background="IMG/barramenu2.JPG"><script type="text/javascript" src="Menus/MenuVerde.js"></script></td>
<td valign="top" rowspan="2" width="56"> 
</td>
</tr>
<tr>
<td valign="top" height="361" width="689"> 
<table border="1">
<tr>
<td>Id_Num</td>
<td>Nombre</td>
<td>Codigo</td>
<td>Fecha</td>
<td>Ruta</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT rst_Lista.EOF)) %>
<tr>
<td><%=(rst_Lista.Fields.Item("Id_Num").Value)%> </td>
<td><%=(rst_Lista.Fields.Item("Nombre").Value)%> </td>
<td><%=(rst_Lista.Fields.Item("Codigo").Value)%> </td>
<td><%=(rst_Lista.Fields.Item("Fecha").Value)%></td>
<td><%=(rst_Lista.Fields.Item("Ruta").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rst_Lista.MoveNext()
Wend
%>
</table></td>
</tr>
<tr>
<td valign="top" colspan="3" height="52">
<p align="center" style="line-height: 150%; margin-top: -6px; margin-bottom: -6px"><img src="IMG/pie%20de%20pag.bmp" width="800" height="52"></p> </td>
</tr>
</table>
</div>
</body>
</html>
<%
rst_Lista.Close()
Set rst_Lista = Nothing
%>

Adler · #4 (**permalink**) 23/07/2008, 11:51

Hola

Mirad este post

Suerte

Shiryu_Libra · #5 (**permalink**) 23/07/2008, 11:51

pero en esa linea no pondras el string de conexion, sino el objeto de conexion

Cita:

"provider........" <-- esto es string de conexion
set conexion = ..... <--- esto es objeto de conexion

y en esa parte, "rst_Lista.ActiveConnection = MM_cnnSGC_STRING", segun se ve, estas usando el string de conexion

deberia ser mas o menos de esta manera

Cita:

rst_Lista.ActiveConnection = conexion

otra cosa, por favor, cuando quieran mostrar codigos, traten de ponerlos con [_quote]codigo..[_/quote](solo quiten el guion bajo); para que se mire asi... y sea mas grata la lectura

Cita:

codigo..

daniel00 · #6 (**permalink**) 24/07/2008, 15:37

Que tal.

Según yo, a ver quien da más, el erro de la línea 47 es porque, una sentencia SQL insert no devuelve un recordset, entonces debería de ser.

Código:

con.execute(sql) <<<<<-----------////////////LINEA 47////////////

Y delfin debería de postear sus propias preguntas ( con todo respeto)
Saludos!

kvera · #7 (**permalink**) 25/07/2008, 07:29

Estimados:

Le di "control total" a "todos" en mi archivo, luego al subirlo al hosting y chequear las propiedades nuevamente vuelve a tener solamente permiso el "dueño"....es posible que el problema sean las herencias de la carpeta donde estan guardando mis paginas y el .mdb?????

Saludos,

Karla

tammander · #8 (**permalink**) 25/07/2008, 07:40

Cada proveedor de hosting tiene sus reglas para el uso del motor JET de Access. Busca información en tu hosting de dónde debe ir tu archivo .mdb (generalmente te obligan a ponerlo en alguna carpeta específica para eso) o bien, deberás dar permisos al archivo .mdb a través de algún panel de permisos.

Un saludo