Autor Tema: No Puedo Actualizar Un Registro (Leído 2135 veces)

mateamargo · « **en:** Martes 28 de Junio de 2005, 04:07 »

Este es el código de mi página ASP para actualizar el estado de un contacto.

Código: Text

 
&#60;!-- #INCLUDE FILE=&#34;conexion.asp&#34; --&#62;
 
&#60;%
dim cont
dim query
 
set cont = Request.QueryString(&#34;cont&#34;)
set rs_borrar = Server.CreateObject(&#34;ADODB.Recordset&#34;)
 
query = &#34;select * from contactos where cnt_id = &#34; & cont
 
rs_borrar.Open query, cn_string, 3, 3
rs_borrar(&#34;cnt_borrado&#34;) = true
rs_borrar.update
%&#62;
 
 

Y el error que me muestra es el siguiente:

Citar

ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.
/digigenda/borrar.asp, línea 15

¿Alguien sabe qué puede ser?

ROBER.29

Hola,

El problema lo tienes en el tipo de apertura del recordset. De todas formas te explico otra forma para que hagas lo que quieres.

Código: Text

 
&#60;!-- #INCLUDE FILE=&#34;conexion.asp&#34; --&#62;
 
&#60;%
dim cont
dim query
 
set cont = Request.QueryString(&#34;cont&#34;)
set cnn = Server.CreateObject(&#34;ADODB.Connection&#34;)
 
cnn.Open cn_string
 
If Request.QueryString(&#34;cont&#34;) &#60;&#62; &#34;&#34; AND IsNumeric(Request.QueryString(&#34;cont&#34;)) Then
  query = &#34;UPDATE contactos SET cnt_borrado = 1&#34;
  query = query & &#34; WHERE cnt_id = &#34; & CInt(cont)
 
  cnn.Execute(query)
End If
 
cnn.Close
%&#62;
 
 

El campo cnt_borrado supongo que es de tipo bit y por eso le introduzco un 1 que equivale a True, y el campo cnt_id supongo que es de tipo numérico por eso convierto el valor de queryString a entero y antes de nada valido que no este vació y sea de tipo entero para que luego la consulta de actualización de SQL no de error. en el caso de que el campo cnt_id no sea de tipo numérico deberías quitar la validación de que sea numérico (el "AND IsNumeric(Request.QueryString("cont"))").

Espero que te sirva.

Un saludo.

oonai

Este codigo lo hace ok

Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("basededatos.mdb"))
Set rs=Server.createobject("ADODB.Recordset")
rs.ActiveConnection = conectar
rs.Source = "solicitud"
rs.LockType = 2 'Importante, aqui le das permiso a la BD para grabar
rs.open

rs("valor")="lo que sea"

rs.update

rs.close
conectar.close
Set rs = nothing
Set conectar = nothing
%>

Espero que te sirva .. OONAI

SoloCodigo

Autor Tema: No Puedo Actualizar Un Registro (Leído 2135 veces)

mateamargo

No Puedo Actualizar Un Registro

ROBER.29

Re: No Puedo Actualizar Un Registro

oonai

Re: No Puedo Actualizar Un Registro