Error de controlador ODBC al intentar añadir una e
Publicado por Hartigan (2 intervenciones) el 06/10/2001 19:28:04
Buenas a todos,
aprovecho para presentarme al grupo, este es el primer mensaje que envio por aqui.
Ando liado haciendo pruebas con páginas web en ASP y acceso a base de datos. Estoy intentando escribir una página que añada una
entrada a una base de datos creada en access (de una sola tabla, 5
campos), pero no hay manera. Otras operaciones como consultas o
busquedas las realizo sin problemas, pero cuando intento añadir
nuevos datos desde la página ASP me presenta este error:
"Error en Base de Datos: [Microsoft][Controlador ODBC Microsoft
Access] La operación debe usar una consulta actualizable."
Este es el código de la página que debería añadir una nueva entrada:
<%
dim nombre, email, web, pais, comentario
nombre = request.form("nombre")
email = request.form("email")
web = request.form("web")
pais = request.form("pais")
comentario = request.form("comentario")
dim valores
valores = "'" & request.form("nombre") & "','" & request.form("email") & "','" & request.form("web") & "','" & request.form("pais") & "','" & request.form("comentario") & "'"
%>
<%
on error resume next
set conexion = createobject("ADODB.Connection")
conexion.open "visitas"
strSQL = "SELECT Id FROM Visitas ORDER BY 1 DESC"
set miconexion = conexion.Execute (strSQL)
dim id
if not miconexion.EOF Then
id = miConexion("Id")
id = id + 1
else
id = 1
end if
strSQL = "INSERT INTO Visitas VALUES(" & id & ",#" & Time & "#," & valores & ")"
set miconexion = conexion.Execute (strSQL)
If Err.Description <> "" then
Response.write "<B>Error en la Base de Datos: " & Err.Description & "</B>"
else
Response.write "se han atualizado bien los datos<BR>"
end if
miconexion.Close
conexion.close
set miConexion = nothing
set conexion = nothing
%>
aprovecho para presentarme al grupo, este es el primer mensaje que envio por aqui.
Ando liado haciendo pruebas con páginas web en ASP y acceso a base de datos. Estoy intentando escribir una página que añada una
entrada a una base de datos creada en access (de una sola tabla, 5
campos), pero no hay manera. Otras operaciones como consultas o
busquedas las realizo sin problemas, pero cuando intento añadir
nuevos datos desde la página ASP me presenta este error:
"Error en Base de Datos: [Microsoft][Controlador ODBC Microsoft
Access] La operación debe usar una consulta actualizable."
Este es el código de la página que debería añadir una nueva entrada:
<%
dim nombre, email, web, pais, comentario
nombre = request.form("nombre")
email = request.form("email")
web = request.form("web")
pais = request.form("pais")
comentario = request.form("comentario")
dim valores
valores = "'" & request.form("nombre") & "','" & request.form("email") & "','" & request.form("web") & "','" & request.form("pais") & "','" & request.form("comentario") & "'"
%>
<%
on error resume next
set conexion = createobject("ADODB.Connection")
conexion.open "visitas"
strSQL = "SELECT Id FROM Visitas ORDER BY 1 DESC"
set miconexion = conexion.Execute (strSQL)
dim id
if not miconexion.EOF Then
id = miConexion("Id")
id = id + 1
else
id = 1
end if
strSQL = "INSERT INTO Visitas VALUES(" & id & ",#" & Time & "#," & valores & ")"
set miconexion = conexion.Execute (strSQL)
If Err.Description <> "" then
Response.write "<B>Error en la Base de Datos: " & Err.Description & "</B>"
else
Response.write "se han atualizado bien los datos<BR>"
end if
miconexion.Close
conexion.close
set miConexion = nothing
set conexion = nothing
%>
Valora esta pregunta


0