Hola a todos, me podeis hechar una mano?
Llevo tiempo intentando hacer los siguiente: mediante asp modificar datos de una BD, para ello quiero utilizar un formulario que me filtre los datos, pero me da el siguiente error
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
/administrador/alumnosmod.asp, línea 66
La linea 66 es Ob_RS.Filter = Filtro, a continuacion os dejo el codigo que utilizo, el Idtitulo es un campo autonumerico. Y ya he revisado todos los nombres de campo y demas estan bien escritos, por favor si podeis ayudarme os lo agradeceria.
Saludos
<!-- #INCLUDE File="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "BDadministrador"
Ob_RS.Open "alumnos", Ob_Conn, adOpenStatic, adCmdTable
IF (Request.Form ("Clave") <> "") THEN
Filtro= "Idalumno= " & Request.Form ("Clave")
Ob_RS.Filter = Filtro
FOR EACH Parametro IN Ob_RS.Fields
IF Parametro.Name= "Idalumno" THEN
Ob_RS ("Idalumno")= CLng (Request.Form ("Idalumno"))
ELSE
Ob_RS (Parametro.Name)= Request.Form (Parametro.Name)
END IF
NEXT
Ob_RS.Update
Response.Write "<H3> Registro modificado </H3>"
ELSE
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF Ob_RS.Eof THEN
Response.Write "<H3> No hay ningún registro con esas características </H3>"
ELSE
Response.Write "<TABLE BORDER=1> <TR>"
FOR EACH Parametro IN Ob_RS.Fields
Response.Write "<TH>" & Parametro.Name
NEXT
Response.Write "<TH> Modificar"
DO WHILE NOT Ob_RS.Eof
Response.Write "<TR> <FORM ACTION=alumnosmod.asp METHOD=Post>"
FOR EACH Parametro IN Ob_RS.Fields
Response.Write "<TD> <INPUT SIZE=15 NAME=" & Parametro.Name & " VALUE='" & Ob_RS (Parametro.Name) & "'>"
NEXT
Response.Write "<INPUT TYPE=Hidden NAME=Clave VALUE='" & Ob_RS ("Idalumno") & "'>"
Response.Write "<TD> <INPUT TYPE=Submit VALUE=Modificar> </FORM>"
Ob_RS.MoveNext
LOOP
Response.Write "</TABLE><BR>"
END IF
END IF
Ob_RS.Close
Ob_Conn.Close %>
<% ELSE %>
</span><span class="tituloins">ALUMNOS
QUE QUIERE MODIFICAR</span><span class="textoservidor"> <BR>
<FORM METHOD="Post" ACTION="alumnosmod.asp">
<p>NOMBRE:
<select name="Nombre">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("Nombre")%>
<%RS.movenext
Loop
%>
</select>
</p>
<p>
<INPUT name="Submit" TYPE="Submit" VALUE="Enviar datos">
<INPUT name="Reset" TYPE="Reset" VALUE="Restablecer">
</p>
</FORM>
<% END IF %>