Actualizar datos. No da error pero no actualiza

[Laika]

Tengo este codigo para modificar 3 registros de una base de datos pero no se quedan grabados los nuevos datos y no me da error. Este es el código:

<%@ Language=VBScript %>

<%

Set Conn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("prueba.mdb")

consulta = "SELECT * FROM tabla1 WHERE id= "&Request.QueryString("id")
rs.Open consulta,Conn,3,3

id=Request.Form("id")
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")

rs("id") = id
rs("nombre") = nombre
rs("apellidos") = apellidos

rs.Update

rs.Close
Conn.Close
%>

Saludos

Laika

[u_goldman]

Y si te está arrojando datos el select?

Salu2,

[Laika]

¿qué quieres decir?

[Laika]

Este es el valor que coge la variable consulta:

SELECT * FROM tabla1 WHERE id= 20

Saludos

Laika

[u_goldman]

o que quise decir es si el recordset no viene vacio? sucede que en el UPDATE, cuando abres un recordset y tratas de actualizar algo de ahí, si viene vacio no te arroja error, si no mal recuerdo, solamente no encuentra que actualizar...

Si estás corriendo en plataforma windows, podrías invocar mejor el método execute:

Conn.Execute("UPDATE tabla1 SET nombre='" & nombre & "', apellido= '"&apellido&"' WHERE id=" & id)

Así te ahorras muchas líneas de código...

Salu2,

[Laika]

He probado de esa manera y no me da ningín error pero me sigue pasando lo mismo.

No me actualiza los datos.

Gracias

Laika