Este es mi codigo que no funciona
Publicado por alberto ortiz (5 intervenciones) el 21/06/2005 21:59:58
Pregunta anterior: este es mi codigo que pongo para supuestamente grabar nuevos datos pero solo obtengo por respuesta:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
ALGUIEN SABE QUE ONDA
GARCIAS
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="adovbs.inc" -->
<%
'RECUEPRO VALOR4ES DE UN FORMULARIO HTML
strclave = cStr(Request.Form("txtclave"))
strnombre = cStr(Request.Form("txtnombre"))
'ESTABLESCO LA COENXION CON LA BD
Set oRs = Server.CreateObject("ADODB.Recordset")
ors.locktype=adLockPessimistic
oRs.Open"tabla1","DSN=origen;UID=;Password=;",adOpenKeyset, adCmdTable
'AGREGO UN NUEVO REGISTRO
oRs.AddNew
'ALMACENO LOS VALORES RECUPERADOS EN LOS CAMPOS DE LA TABLA
oRS.Fields("CLAVE") = strclave
oRS.Fields("NOMBRE") = strnombre
'HASTA AQUI TODO FUNCIONA
'AL ACTUALIZAR LOS CAMBIOS CON UPDATE ME DICE QUE ES DE SOLO LECTURA
oRS.Update
'CIERRO LA CONEXION
oRS.Close
Set oRS = Nothing
%>
<P>
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
ALGUIEN SABE QUE ONDA
GARCIAS
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="adovbs.inc" -->
<%
'RECUEPRO VALOR4ES DE UN FORMULARIO HTML
strclave = cStr(Request.Form("txtclave"))
strnombre = cStr(Request.Form("txtnombre"))
'ESTABLESCO LA COENXION CON LA BD
Set oRs = Server.CreateObject("ADODB.Recordset")
ors.locktype=adLockPessimistic
oRs.Open"tabla1","DSN=origen;UID=;Password=;",adOpenKeyset, adCmdTable
'AGREGO UN NUEVO REGISTRO
oRs.AddNew
'ALMACENO LOS VALORES RECUPERADOS EN LOS CAMPOS DE LA TABLA
oRS.Fields("CLAVE") = strclave
oRS.Fields("NOMBRE") = strnombre
'HASTA AQUI TODO FUNCIONA
'AL ACTUALIZAR LOS CAMBIOS CON UPDATE ME DICE QUE ES DE SOLO LECTURA
oRS.Update
'CIERRO LA CONEXION
oRS.Close
Set oRS = Nothing
%>
<P>
Valora esta pregunta
0