formulario con Registro seleccionado (select)

Cameron_2006 · #1 (**permalink**) 16/06/2008, 11:50

Buenas tardes, la verdad que no se que título ponerle a este problema, así que contaré lo qu estoy haciendo.

Un pequeño sistema de enlaces, en el que tengo 2 tablas, :

tabla: Categorias
campo1= cod_cat (autonimerico) (categoría del enlace)
campo2= Categoria (texto)(nombre de la categoría)

tabla: enlaces
campo1=cod_enlace (autonumerico)
campo2=titulo
campo3=cat_enlace (numerico) (categoria del enlace)
campo4=url
campo5=apartado
campo6=descripcion
campo7=activo

Ahora bien, las tablas se poblan correctamente, el problema ocurre en el formulario donde quiero realizar modificaciones, me rescata todos los valores menos uno, que es la categoria, este lo quiero hacer por medio de un select , y es que cuando el formulario se muestre quiero que se muestre la categoría actual seleccionada, y no lo hace, entonces si le doy al botón de modificar, me cambia la categoría por la primera de la lista.

El código es este:
SsQL="Select * from cat_enlaces"
set rs = con.Execute(SsQL) %>

<select name="cod_categoria" size="1" id="cod_categoria">
<%
Do While not rs.eof
strSelected = ""
if rs.Fields("cod_cat") = cod_cat then
strSelected = "selected"
end if
%>
<option value="<%=rs.Fields("cod_cat") %>"><%=rs("categoria")%></option>
<% rs.movenext
Loop %>
</select>

Agradezco de antemano la ayuda!
Gracias

u_goldman · #2 (**permalink**) 16/06/2008, 12:06

Hola Cameron_2006,

Prueba con esto, en negritas los cambios:

Código:

if rs.Fields("cod_cat") = cint(cod_cat) then
strSelected = " selected"
else
strSelected = ""
end if
%>
<option value="<%=rs.Fields("cod_cat") %>"<%=strSelected%>><%=rs("categoria")%></option>
<% rs.movenext
Loop %>
</select>

Saludos

Cameron_2006 · #3 (**permalink**) 16/06/2008, 12:46

No me funcionó, lo puse tal cual y nada, le quité el cint y tampoco, así está actualmente:

<select name="cod_categoria" size="1" id="cod_categoria">
<%
Do While not rs.eof
strSelected = ""
if rs.Fields("cod_cat") =cint(cod_cat) then
strSelected = "selected"
else
strSelected = ""
end if
%>
<option value="<%=rs.Fields("cod_cat") %>"<%=strSelected%>><%=rs("categoria")%></option>
<% rs.movenext
Loop %>
</select>

u_goldman · #4 (**permalink**) 16/06/2008, 12:48

Puedes pegar la salida HTML de ese select?

Cameron_2006 · #5 (**permalink**) 16/06/2008, 13:08

ante nada, gracias por la ayuda, es esto lo que dices?

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>directorio de enlaces</title>

</head>
<body>

<H3> LISTADO DE TODOS LOS ENLACES </H3>
<hr noshade="noshade" size="1" />

<form name="formi" method="post" action="guardar_enlace.asp">
<input type="hidden" name="cod_enlace" value="<%=cod_enlace%>" >

<table width="100%" border="1">
<tr>
<th width="29%" scope="row"><div align="left">Titulo de la página</div></th>
<td width="71%"><input name="titulo" id="titulo" value="<%=titulo%>" size="70" /></td>
</tr>
<tr>
<th width="29%" scope="row"><div align="left">Enlace URL </div></th>
<td width="71%"><input name="url" id="url" value="<%=url%>" size="70" /></td>
</tr>
<tr>
<th width="29%" scope="row"><div align="left">Descripcion del sitio </div></th>
<td width="71%"><input name="descripcion" id="descripcion" value="<%=descripcion%>" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Apartado donde está e-dinero </div></th>
<td width="71%"><input name="apartado" id="apartado" value="<%=apartado%>" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Categoria actual </div></th>
<td width="71%"><input name="categoria_actual" id="categoria_actual" value="<%=categoria_actual%>" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Modificar categoría </div></th>
<td width="71%">

<%Set con=Server.CreateObject("ADODB.Connection") 'creo objeto connection
con.open "mibasededatos"
Set rs=Server.CreateObject("ADODB.RecordSet") %>

<%SsQL="Select * from cat_enlaces"
set rs = con.Execute(SsQL) %>

<select name="cod_categoria" size="1" id="cod_categoria">
<%
Do While not rs.eof
strSelected = ""
if rs.Fields("cod_cat") =cint(cod_cat) then
strSelected = "selected"
else
strSelected = ""
end if
%>
<option value="<%=rs.Fields("cod_cat") %>"<%=strSelected%>><%=rs("categoria")%></option>
<% rs.movenext
Loop %>
</select>

</td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Activo</div></th>
<td width="71%"> <input name="Activo" type="Checkbox" id="Activo" <%=Activo%> size="70" /></td>
</tr>

<tr>
<td colspan="2" align="center">
<input name="Modificar" type="submit" id="Modificar" value="Modificar" />
<input name="cancelar" type="reset" id="cancelar" value="Cancelar" /> </td>
</tr>
</table>
</form>

<% rs.close
con.close
Set rs=nothing
Set con=nothing %>

</body>
</html>

Cameron_2006 · #6 (**permalink**) 16/06/2008, 13:12

estoy usando Access

u_goldman · #7 (**permalink**) 16/06/2008, 13:23

No, solo quiero ver el HTML que genera el loop, el HTML del select.

Cameron_2006 · #8 (**permalink**) 16/06/2008, 13:30

disculpame, lo tengo en dos etiquetas:

<tr>
<th width="29%" scope="row"><div align="left">Modificar categoría </div></th>
<td width="71%">

...

</td>
</tr>

Cameron_2006 · #9 (**permalink**) 16/06/2008, 13:32

Disculpa tengo el bruto en 90% es eso lo que me pides?

Cameron_2006 · #10 (**permalink**) 16/06/2008, 13:42

<form name="formi" method="post" action="guardar_enlace.asp">
<input type="hidden" name="cod_enlace" value="<%=cod_enlace%>" >

<table width="100%" border="1">
<tr>
<th width="29%" scope="row"><div align="left">Modificar categoría </div></th>
<td width="71%">

... codigo...
</table>
</form>

<% rs.close
con.close
Set rs=nothing
Set con=nothing %>

u_goldman · #11 (**permalink**) 16/06/2008, 13:45

Cameron, solo quiero ver el HTML que resulta, click derecho, ver codigo fuente y pega el codigo HTML de ese select.

Cameron_2006 · #12 (**permalink**) 16/06/2008, 13:49

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>directorio de enlaces</title>

</head>
<body>

<H3> enlace a modificar </H3>
<hr noshade="noshade" size="1" />

<form name="formi" method="post" action="guardar_enlace.asp">
<input type="hidden" name="cod_enlace" value="4" >

<table width="100%" border="1">
<tr>
<th width="29%" scope="row"><div align="left">Titulo de la página</div></th>
<td width="71%"><input name="titulo" id="titulo" value="Diseño de páginas web" size="70" /></td>
</tr>
<tr>
<th width="29%" scope="row"><div align="left">Enlace URL </div></th>
<td width="71%"><input name="url" id="url" value="http://midominio.com" size="70" /></td>
</tr>
<tr>
<th width="29%" scope="row"><div align="left">Descripcion del sitio </div></th>
<td width="71%"><input name="descripcion" id="descripcion" value="nuevas generaciones" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Apartado donde está e-dinero </div></th>
<td width="71%"><input name="apartado" id="apartado" value="en alguna parte" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Categoria actual </div></th>
<td width="71%"><input name="categoria_actual" id="categoria_actual" value="formacion" size="70" /></td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Modificar categoría </div></th>
<td width="71%">

<select name="cod_categoria" size="1" id="cod_categoria">

<option value="1">arte</option>

<option value="2">asociaciones</option>

<option value="3">blogs</option>

<option value="4">bricolaje</option>

<option value="5">gratis</option>

<option value="6">comunicaciones</option>

<option value="7">deporte</option>

<option value="8">internet</option>

<option value="9">empleo</option>

<option value="10">formacion</option>

<option value="11">foros</option>

<option value="12">hoteles</option>

<option value="13">inmobiliarias</option>

<option value="14">moda</option>

<option value="15">motor</option>

<option value="16">ocio</option>

<option value="17">restaurantes</option>

<option value="18">salud</option>

<option value="19">socideda</option>

<option value="20">turismo</option>

</select>

</td>
</tr>

<tr>
<th width="29%" scope="row"><div align="left">Activo</div></th>
<td width="71%"> <input name="Activo" type="Checkbox" id="Activo" checked size="70" /></td>
</tr>

<tr>
<td colspan="2" align="center">
<input name="Modificar" type="submit" id="Modificar" value="Modificar" />
<input name="cancelar" type="reset" id="cancelar" value="Cancelar" /> </td>
</tr>
</table>
</form>

</body>
</html>

u_goldman · #13 (**permalink**) 16/06/2008, 14:13

Ok, el problema entonces es en el valor de tu variable cod_cat, no veo donde le asignas el valor, como no tiene valor, es un string vacio, por lo cual nunca toma el valor de "selected" en tu if, verifica el valor de esta variable.

Saludos

zalvatore · #14 (**permalink**) 16/06/2008, 18:23

A ver si entiendo tu problema... lo que queres modificar son "Enlaces" no?
Digamos que tienes una lista con los enlaces y clickendo en cada uno puedes modificar los datos pasandole su id
ej>
modenlace.asp?cod_enlace=14

Si esto es asi... en tu pagina modenlace deberias hacer 2 consultas.
1) para sacar los datos de ese enlace como asi tmabien el codigo de la categoria a la q corresponde.

rsEnlaces

SELECT * FROM enlaces WHERE cod_enlace = "& Request.QueryString("cod_enlace") &""

2) y la otra consulta para traer todas las categorias

rsCategorias

SELECT * FROM Categorias ORDER BY Categoria

Ahora "llenas" los inputs con la primera consulta y en el dropdown haces lo siguiente:

<select name="cod_categorias">
<% While NOT rsCategorias.EOF %>

<option <% If rsCategorias("cod_categoria") = rsEnlaces("cat_enlace") Then %>selected<%End If%> id="<%=rsCategorias("cod_categoria")%>"><%=rsCateg orias("Categoria")%></option>

<% rsCategorias.MoveNext()
Wend %>
</select>

Bueno, espero que se entiende la logica... eso deberia andar, chequea nomas bien los nombres de las trablas y los campos que quiza le pifie a alguno, pero la logica se entiende...
Saludos y cualquier cosa avisame!

Matias

Cameron_2006 · #15 (**permalink**) 17/06/2008, 01:46

Gracias Zalvatore, pero no es eso lo que quiero, así solo me trae el correspondiente al enlace y no se despliega la lista, que eso ya lo hace perfecto, lo que quiero es que además se despliegue la lista de opciones, o sea, que en la lista me venga marcado la categoría de ese enlace.

Cameron_2006 · #16 (**permalink**) 17/06/2008, 02:23

Gracias u_goldman, ya funciona perfectamente.

u_goldman · #17 (**permalink**) 17/06/2008, 08:23

Ok, pero al final, que fue?

Cameron_2006 · #18 (**permalink**) 17/06/2008, 08:35

Lo que tu decías, la variable no estaba declarada ni le había dado un valor. Gracias otra vez.

u_goldman · #19 (**permalink**) 17/06/2008, 09:00

Ah, ok, gracias por aclararlo y por nadas

zalvatore · #20 (**permalink**) 17/06/2008, 09:01

Hola Cameron, primero que nada me alegro que ya lo hayas solucionado, pero igualmente de la forma que yo te dije ademas de quedar seleccionado la categoria correspondiente, te las lista todas:

<% While NOT rsCategorias.EOF %>

<option <% If rsCategorias("cod_categoria") = rsEnlaces("cat_enlace") Then %>selected<%End If%> id="<%=rsCategorias("cod_categoria")%>"><%=rsCate g orias("Categoria")%></option>

<% rsCategorias.MoveNext()
Wend %>

Hago un loop con todas las categorias y si el id coincide con el del enlace actual la pongo en selected...

Bueno, da igual, pero queria mostrarte que estaba bien esta opcion para que la tengas en cuenta, que quiza es mas simple Saludos!

Matias

Cameron_2006 · #21 (**permalink**) 17/06/2008, 09:16

Gracias Matías, te comento que lo probé pero me resultó lo que te dije, que selecciona la categoría correspondiente pero no lista el resto de las categorías, igual puede ser porque no estaba la variable declarada? de todas maneras, lo volveré a probar así a ver que tal.
Gracias por la ayuda, eres muy amable.
Gracias

zalvatore · #22 (**permalink**) 17/06/2008, 10:09

Claro, fijate que tenes 2 consultas, en una traes los datos de ese Enlace especifico y en la otra traes una lista con TODAS las categorias... esta ultima la usas para llenar el dropdown... loopeas options por cada Categoria y lo unico que haces es condicionar el "selected"... Si el IdCategoria del option es igual al de tu Enlace entonces que devuelva selected... sino, solamente el option....

Saludos!