No me actualiza registros...

epsilon88 · #1 (**permalink**) 02/03/2006, 10:41

Hola buenas tardes:

Llevo varios dias intentado acabar una intranet de recursos humanos en la cual puedo insertar registros, buscar registros o modificar registros.Esta todo terminado y ok, pero me falta poder modificar los registros......Mi problema no se donde esta ya que la pagina de confirmacion no me da ningun error, es decir pasa a la siguiente pagina cuando le doy al boton modificar, pero el registro se queda totalmente igual que cuando me lo trai a una ficha.....
Les paso el code por si ven algun error, pero es muy extraño pq no me devuelve el error, todo parece estar bien pero no modifica nada......

<body>
<%
dim id
id = request.Querystring("id")
dim tabla
tabla = request.Querystring("tabla")
%>
<%
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./prueba.mdb")
SQL = "SELECT * FROM " & tabla & " where id='" & id & "'"
set RS = Conn.Execute(SQL)
%>

<form action="seis.asp" method="post" name="form2"><p><img src="icon45.gif"> Ficha del registro seleccionado: </p>
<table width="770" border="4" bordercolor="#FF0000">
<tr><td colspan="16"><p><img src="icon45.gif" height="18">Ficha Nº <%=RS("id")%></td></tr>
<tr><td colspan="16" bgcolor="#A5E9F8"> </td></tr>

<%Do While Not RS.Eof%>

<tr><td colspan="16"><img src="icon45.gif" height="16" align="absmiddle">Nombre: <input name="nombre" size="40" value="<%=RS("nombre")%>"><img src="icon45.gif" height="16" align="absmiddle">Apellidos: <input name="apellidos" value="<%=RS("apellidos")%>" size="50"></td></tr>
<tr><td colspan="16"><img src="icon45.gif" height="16" align="absmiddle">Edad: <input name="edad" size="5" value="<%=RS("edad")%>"> Tabla: <input name="tabla" type="text" id="tabla" value="<%=(tabla)%>">
</table>

<input type="submit" value="Modificar" name="submit">
</form>
<%RS.MoveNext%>
<%loop%>
<%Conn.Close%><friday>
</body>

PAGINA DE CONFIRMACION

<%
dim id
id=request.form("id")
dim nombre
nombre=request.form("nombre")
dim apellidos
apellidos=request.form("apellidos")
dim edad
edad=request.form("edad")
dim tabla
tabla=request.Form("tabla")
%>
<%
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\prueba.mdb"))

strSQL = "update " & tabla & " set nombre='" & nombre & "', apellidos='" & apellidos & "', edad='" & edad & "' where id='" & id & "' "

Set RS = oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
%>

<h1 align="center" class="Estilo4"><u>Se han modificado los datos correctamente.</u></h1>
</body>

La pagina no me da ningun error, pero no modifica nada.........
GRACIAS DE ANTEMANO!!!!!!......Y UN SALUDO!

gorka_arai · #2 (**permalink**) 02/03/2006, 16:34

Kaixo, mira bien esas komas:

Código:

strSQL = "update '" & tabla & "' set nombre='" & nombre & "', apellidos='" & apellidos & "', edad='" & edad & "' where id='" & id & "' "

ElAprendiz · #3 (**permalink**) 02/03/2006, 17:05

yo creo que en ningun momento esta modificando el registro puesto que la variable id no la estas enviando junto al formulario.

haz un response.write strsql para ver si tu sentencia se crea correctamente

saludos

trasgukabi · #4 (**permalink**) 02/03/2006, 20:06

sí, te falta poner un hidden en el formulario con el valor de id

epsilon88 · #5 (**permalink**) 03/03/2006, 03:09

Buenos dias:

Ante todo dar las gracias a todos por las respuestas de ayuda recibidas.

En primer lugar he hecho caso a "gorka arai" y le he puesto las comillas a la sentencia update.Al hacer esto ya por lo menos me da un error en la sentencia, creo que es un avance.....

<--! La sentencia queda asi !-->

strSQL = "update '" & tabla & "' set nombre='" & nombre & "', apellidos='" & apellidos & "', edad='" & edad & "' where id='" & id & "' "

<--! La sentencia queda asi !-->

En la pagina del formulario he metido un campo tipo hidden como me dijisteis dentro del formulario
<input name="id" type="hidden" value="<%=(id)%>">

Ahora me da un error en la sentencia, pero yo no veo ningun error, tiene que venir de atras de la otra pagina o de alguna variable, pero es que no soy capaz de pillar el fallo...........Estoy en blanco la verdad, no se donde puede estar....

Lo tuyo aprendiz no lo he pillado muy bien, es que soy nuevo en esto de ASP y estoy muy verdeeeee

si me pones un ejemplo lo pillo mejor.....
no se si te refieres a <% response.write(strSQL) %>............si es asi que se supone que me tiene que devolver la pagina?¿?¿?¿

Gracias de nuevo y si teneis alguna solucion mas..........
Mil gracias y un saludo!!

trasgukabi · #6 (**permalink**) 03/03/2006, 04:56

<%=strSQL%>

Así también vale

ElAprendiz · #7 (**permalink**) 03/03/2006, 09:15

para resumir, si colocas esto:
strSQL = "update '" & tabla & "' set nombre='" & nombre & "', apellidos='" & apellidos & "', edad='" & edad & "' where id='" & id & "' "

te vas quedar asi
strSQL = "update 'tabla'...

es decir con comillas simples, por lo tanto dejalo como lo tenias en un principio

luego en el formulario crea el campo oculto, no se si los parentesis en la variable id, interferiran en algo
<input name="id" type="hidden" value="<%=(id)%>">

luego cuando te digo que hagas un
<% response.write(strSQL) %>

o como dice trasgukabi

<%=strSQL%>
es para ver en pantalla si la sentencia esta bien escrita.

saludos