Retroceder   Foros del Web > Programación para sitios web > ASP Clásico

Respuesta
 
Herramientas Desplegado
Antiguo 18-abr-2008, 06:12   #1 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
no carga registros

Hola ¡¡¡

Tengo un select multiple, las dos cajas, en la primera una lista de productos y la segunda en blanco. Puedo añadir y quitar productos a la segunda caja(inicialmente en blanco). En el formulario tengo también un par de cajas de texto para añadir descripciones. Una vez terminada la creación del registro le pico a un botón guardar y se agrega a la base de datos. los registros se van mostrando abajo en un listado de todos los que hay. Si le pico a un registro las cajas se rellenan con sus datos para poder editarlo, pero no consigo que el select de seleccionados se rellene con los productos que había pasado.
Alguna idea?

Muchas gracias
Un saludo
FlashO está desconectado   Responder Citando
Antiguo 18-abr-2008, 07:43   #2 (permalink)
Colaborador
JuanRAPerez tiene algunos puntos positivos de karma
 
Avatar de JuanRAPerez
 
Fecha de Ingreso: octubre-2003
Mensajes: 1.741
Re: no carga registros

si pegaras el código surgirían algunas ideas...

Cita:
Si le pico a un registro las cajas se rellenan con sus datos para poder editarlo, pero no consigo que el select de seleccionados se rellene con los productos que había pasado.
te da error o simplemente el select no hace lo que si hace en otras ocasiones?????
__________________
JuanRa Pérez
San Salvador, El Salvador
JuanRAPerez está desconectado   Responder Citando
Antiguo 20-abr-2008, 15:09   #3 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
Re: no carga registros

Yo grabo un nuevo producto, le añado unos tags.
Al entrar a esa página de productos como administrador veo abajo todos los registros guardados.
Si le pico a uno se me rellenan todos los campos con los datos de ese producto.
El problema viene con el select multiple, porque se me rellena con los tags seleccionados, pero no consigo trabajar correctamente con ellos, no me deja actualizarlos, ni borrarlos, ni nada ¡¡
Eso es lo que quiero conseguir.
Aquí pongo una parte de código

Un saludo ¡¡¡


Código:
<select name="lista" class="textonormal" id="lista" size="15" style=" font-size:9px;width:200px " multiple ondblclick="anadir(this.form)">
<%do while not rsS.eof%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%rsS.movenext
loop
rsS.close
%>

</select></td>
<td width="18%"><div align="center">
<input name="add" type="button" id="add" value="&nbsp;>&nbsp;" onClick="anadir(this.form)">
<br>
<input name="addAll" type="button" id="addAll" value=">>" onClick="anadirTodos(this.form)">
<br>
<input name="deleteAll" type="button"  id="deleteAll" value="<<" onClick="eliminarTodos(this.form)">
<br>
<input name="BDelete" type="button" id="BDelete" value="&nbsp;<&nbsp;" onClick="eliminar(this.form)">
<br>
</div></td>
<td width="41%">
<%if identificador="" then%>
<select name="seleccionados" size="15" multiple class="textonormal" id="seleccionados" style=" font-size:9px;width:200px " ondblclick="eliminar(this.form)"></select>
<%else%>
<select name="seleccionados" size="15" multiple class="textonormal" id="seleccionados" style=" font-size:9px;width:200px " ondblclick="eliminar(this.form)">
<%Set Rstag = CreateObject("ADODB.RecordSet")
SqlTexttag = "SELECT idtag FROM relacional WHERE tipo=0 and idOrigen="&identificador
Rstag.Open SqlTexttag, DnsText2,3,3
if not Rstag.eof then
Do while not rstag.eof
Set Rs3 = CreateObject("ADODB.RecordSet")
SqlText3 = "SELECT nombre FROM Tags WHERE id="&rstag("idtag")
Rs3.Open SqlText3, DnsText2,3,3
if not Rs3.eof then
nombredeltag=rs3("nombre")
end if
rs3.close
%>
<option value=<%=rstag("idtag")%>><%=nombredeltag%></option>
<%rstag.movenext
loop
end if
Rstag.close%>
</select>
<%end if%>
</td>
</tr>
</table>

</td>
</tr>
<tr>
<td align="right"><span class="Estilo14">Observaciones</span></td>
<td><label>
<input name="observaciones" type="text" id="observaciones" size="50" value="<%=Observaciones%>" />
</label></td>
</tr>
<tr>
<td align="right" valign="top" class="Estilo14">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="right" valign="top" class="Estilo12">&nbsp;</td>
<td><input type="reset" name="Submit2" value="Nuevo" />
<%if session("tipodeusuario")="admin" then%>
<input type="submit" name="Submit" value="Guardar / Modificar" />
<%else%>

<input type="submit" name="Submit" value="Guardar" />
<%end if%>                  </td>
</tr>
</table>
</form>
FlashO está desconectado   Responder Citando
Antiguo 21-abr-2008, 02:05   #4 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
Re: no carga registros

El problema es que cuando abro un registro, me sale en la caja derecha los tags seleccionados, pero en la izquierda (que es donde están todos los tags) siguen apareciendo los ya marcados. Eso es lo que quiero corregir, que no aparezcan los ya seleccionados en la lista general.

Un saludo ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
FlashO está desconectado   Responder Citando
Antiguo 21-abr-2008, 05:32   #5 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
Re: no carga registros

Ya esta solucionado, aquí dejo el código:

Código:
<td width="41%"><%Set RsS = CreateObject("ADODB.RecordSet")
DnsText2 = "*************************************"
SqlText2 = "SELECT * FROM Tags order by Nombre ASC" 
RsS.Open SqlText2, DnsText2, 3,3

%>

<%if identificador="" then
%>
<select name="lista" class="textonormal" id="lista" size="15" style=" font-size:9px;width:200px " multiple ondblclick="anadir(this.form)">
<%do while not rsS.eof%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%rsS.movenext
loop
rsS.close
%>   
</select>

<%else%>      
<select name="lista" class="textonormal" id="lista" size="15" style="font-size:9px;width:200px;" multiple ondblclick="anadir(this.form)">
<%
do while not rsS.eof
Set Rstag2 = CreateObject("ADODB.RecordSet")
SqlTexttag2 = "SELECT idtag FROM relacional WHERE tipo=0 and idOrigen="&identificador
Rstag2.Open SqlTexttag2, DnsText2,3,3
repite="NO"
do while not Rstag2.eof 
if cint(Rstag2("idtag"))=cint(rsS("id")) then
repite="YES"
end if
Rstag2.movenext
loop
Rstag2.close%>
<%if repite="NO" then%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%end if%>
<%rsS.movenext
loop
rsS.close
%>   
</select>
</td>
<%end if%>
FlashO está desconectado   Responder Citando
Respuesta
No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 05:25.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93