Hola nuevamente amigos. Estoy trabajando con base de datos y tengo un problema. Hace mucho tiempo desarrollé una aplicacion en ASP para introducir y consultar datos.
El problema es que movi todo eso a una nueva PC en mi trabajo y puedo consultar los datos, pero no puedo introducirlos, es decir, no puedo agregar nada a traves de un formulario y el error que me aparece es el siguiente:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/newasp/reservaciones.asp, line 69
El codigo siguiente es el que estoy usando:
<%
'Recoger las variables
nombres = TRIM(Request.Form ("nombres" ))
apellidos = TRIM(Request.Form ("apellidos"))
desde = TRIM(Request.Form ("desde"))
mhasta = TRIM(Request.Form ("hasta"))
%>
<%
IF Request("enviar") = "" THEN
VERIFICANDO
ELSE
VERDATOS
END IF
%>
<%
SUB VERIFICANDO
'Verificar
IF nombres = "" OR apellidos = "" THEN
GETDATOS
ELSE
INTRODATOS
END IF
END SUB
%>
<%
Sub GETDATOS
%>
Por favor, haga sus reservaciones:
<p></p>
<form action="reservaciones.asp" method="post">
Nombres:<br><br>
<input name="nombres" size="15"><br><br>
Apellidos:<br><br>
<input name="apellidos" size="15"><br><br>
Desde:<br><br>
<input name="desde" size="15"><br><br>
Hasta:<br><br>
<input name="hasta" size="15"><br><br>
<input type="submit" value="enviar datos"> <input type="reset" value="borrar datos">
</form>
<br><br>
<a href="reservaciones.asp?enviar=OK">VER reservaciones</a>
<%
END SUB
%>
<%
SUB INTRODATOS
'Introducir los datos en la Base de Datos
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("americaneduardo.mdb")
set conexion = Server.Createobject("adodb.connection")
conexion.open strconn
sqlString="INSERT INTO vuelos (nombres, apellidos, desde, hasta)" &_
"values ('"&nombres&"','"&apellidos&"','"&desde&"','"&mhas ta&"')"
conexion.Execute sqlString
conexion.Close
%>
Estos son los datos introducidos<P>
Nombres:<BR><%response.write(nombres)%></P>
Apellidos:<BR><%response.write(apellidos)%><P></P>
Desde:<BR><%Response.Write(desde)%><P></P>
Hasta:<BR><%Response.Write(mhasta)%><P></P>
<A HREF="reservaciones.asp?enviar=OK">VER reservaciones</A>
<%
END SUB
%>
<%
SUB VERDATOS
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("americaneduardo.mdb")
set conexion = Server.Createobject("adodb.connection")
conexion.open strconn
sSQL = "SELECT * FROM vuelos ORDER BY ID"
set RS = conexion.Execute(sSQL)
%>
<HR color="#00ff00" width="75%" size="1" id=HR1>
<%Do While Not RS.Eof%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" width="35%" id="AutoNumber1" height="108">
<tr>
<td width="20%" align="left" height="25">
<p align="center"><font color="#ffff00">Nombre Completo</font>:</p></td>
<td width="41%" height="25"><%=RS("nombres")%> <%=RS("apellid os")%>
</td></tr>
<tr>
<td width="20%" align="left" height="25">
<p align="center"><font color="#ffff00">Desde</font>:</p></td>
<td width="41%" height="25"><%=RS("desde")%>
</td></tr>
<tr>
<td width="20%" align="left" height="25">
<p align="center"><font color="#ffff00">Hasta</font>:</p></td>
<td width="41%" height="25"><%=RS("hasta")%>
</td></tr>
</table>
</center>
</div>
<HR color="#0ff000" width="75%" size="1">
<%
RS.MoveNext
Loop
conexion.Close
END SUB
%>
Me pueden decir como solucionar este problema del updateable query??? Se los agradeceria con toda mi alma. Muchos saludos y gracias de antemano.
Eduardo
