Ver Mensaje Individual
  #3 (permalink)  
Antiguo 28/02/2005, 23:27
acarrascov
 
Fecha de Ingreso: mayo-2004
Ubicación: Bolivia
Mensajes: 48
Antigüedad: 21 años
Puntos: 2
Gracias por el interes

El error que da es:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/procesar.asp, line 9

La linea 9 tiene lo siguiente

oConn.Execute(strSQL)

El archivo insertar.asp es:
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<H1>Ejemplo de uso de bases de datos con ASP y ADO</H1>
<form action="procesar.asp" method="post">
<TABLE>
<TR>
<TD>Nombre:</TD>
<TD><INPUT TYPE="text" NAME="nombre" SIZE="20" MAXLENGTH="30"></TD>
</TR>
<TR>
<TD>Apellidos:</TD>
<TD><INPUT TYPE="text" NAME="apellidos" SIZE="20" MAXLENGTH="30"></TD>
</TR>
</TABLE>
<INPUT TYPE="submit" NAME="accion" VALUE="Grabar">
</FORM>
<hr>
<%
Dim oConn,strSQL, objRS

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

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb"))

strSQL = "SELECT Nombre, Apellidos FROM prueba"
Set objRS = oConn.Execute(strSQL)

%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD>&nbsp;Nombre</TD><TD>&nbsp;Apellidos&nbsp;</TD></TR>
<%

while (not objRS.Eof)
Response.Write("<tr><td>&nbsp;" & objRS("Nombre") & "</td><td>&nbsp;" & objRS("Apellidos") & "&nbsp;</td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
</body>
</html>

El archivo procesar.asp es:
<%
Dim oConn,strSQL

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

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb"))

strSQL = "insert into prueba (nombre, apellidos) values ('" & Request.Form("nombre") & "','" & Request.Form("apellidos") & "')"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing

Response.Redirect("insertar.asp")
%>

Gracias por el interes