Combo Box

[ACHAVARRIA]

Es urgente !!!!!!!!!!!!
Como hago para cargar un combo Box desde una tabla en SQL desde ASP con VBScript, he intentado con esta rutina pero no me funciona:
La rutina de conexión y definición de la tabla y la base de datos si me funciona yesta arriba de esta rutina pero esto no me funciona !!!!!!!

< Select name = "COMBO1">
<%
While not Tabla.EOF
%>
<select>
<option value = "<%tabla("campo1")%>"&gt ;<%tabla("campo2")%> </option>
<%
tabla.MoveNext
Wend
%>
</Select>

:roto: :roto: :roto: :roto: :roto:

[RRuben]

No es asi:

DO WHILE NOT rs.eof()

LOOP

Que es el WEND? Por que es un mensaje de asp.net?

Saludos.

[ElAprendiz]

While...Wend: ejecuta el bucle mientras una condición es verdadera.

aunque la mas usada es:

do while not rs.eof
loop



<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[bakanzipp]

tienes un enredo con la lista....abres dos listas la cierras mal..
no creo que se problema de usar un while o un do while mientras cierres bien el bucle...

prueba con esto

Código:

  
< Select name = "COMBO1">
<%
While not Tabla.EOF 
%>
<option value = "<%tabla("campo1")%>"><%tabla("campo2")%> </option>
<%
tabla.MoveNext
Wend
%>
</Selected>

:)

[ElAprendiz]

hola bakanzipp:

no es ese el problema si no que le falta el signo =
&lt;%=tabla(&quot;campo1&quot;)%&gt;&quot;&gt;&lt; %=tabla(&quot;campo2&quot;)%&gt;


saludos

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[bakanzipp]

jjuaaaa...

miserable signo...segunda vez ke caigo sin ver este detalle...

[ACHAVARRIA]

Muchas Gracias, por lo menos ya no me da errores !!!!!!! ;) :) ;) :) ;)

[bakanzipp]

no se cae...pero tampoco funciona

oye y te funciono bien ahora?

[ElAprendiz]

pero y te funciona?

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[ACHAVARRIA]

No carga los datos en el combo pero no genera el error que me daba por que ya le asigne el '=' que le falta a la sintaxis !!!

[bakanzipp]

o sea que todavia no te carga los datos en el combo..

y la consulta sql...posteala..el problema debe esta ahi entonces

[ACHAVARRIA]

ESTA ES RUTINA COMPLETA Y NO FUNCIONA:Set conexion = Server.CreateObject (&quot;ADODB.Connection&quot;)
conexion.open &quot;driver={SQL Server};server=BCR0506VIS01;database=Estadisticas; uid=dbost;pwd=;&quot;

SQL1 = &quot;SELECT * FROM Oficina&quot;
Set Oficina = conexion.execute(SQL1)


&lt;Select Name= &quot;Combo4&quot;&gt;
&lt;%
oficina.movefirst
DO While not OFICINA.EOF
%&gt;
&lt;OPTION VALUE =&quot;&lt;%=oficina(&quot;codoficina&quot;)%&gt;& quot;&gt;
&lt;/option&gt;
&lt;%
Oficina.MoveNext
Loop
%&gt;
&lt;/Selected&gt;

[bakanzipp]

no te faltara la asignacion a lo que te muestra el option?

Código:

  
<Select Name= "Combo4">
<%
oficina.movefirst
DO While not OFICINA.EOF
%>
<OPTION VALUE ="<%=oficina("codoficina")%>"><%=oficiona("el_campo_que_quieres_mostrar_en_la_lista")%></option>
<%
Oficina.MoveNext
Loop
%>
</Selected>

[AlZuwaga]

&lt;/Selected&gt;

No se si será un error de tipeo en el foro, pero lo correcto sería cerrar con &lt;/select&gt;!

[g_susdaniel]

a ver prueba....

&lt;/Select&gt;

<div align=right><embed src="http://www.jesusdaniel.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>Usuario # 3359 en los foros</div>

[ACHAVARRIA]

:) :) QUERIDOS COLEGAS YA FUNCIONA LA RUTINA LO PASO FUE TODO ESTABA BIEN LO QUE PASO FUE QUE ESTABA CREANDO UN COMBO ABAJO DE LA PAGINA Y NO LO PODIA VER, LO QUE HICE FUE MOVER EL CODIGO FUENTE HASTA DONDE TENIA DECLARADO EL COMBO EN EL CODIGO HTML Y PEGUE EL ASP Y YA FUNCIONA PERFECTAMENTE..

;) ;) ;) ;) ;)

MUCHISIMAS GRACIAS A TODOS POR SU COLABORACION, QUE DIOS LES BENDIGA

[ElAprendiz]

;)

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[bakanzipp]

entonces vamonos a almorzar...
provecho colegas :P

[ACHAVARRIA]

una consulta mas!!!
como hago para tomar el valor de lo que tiene el combo ???????

[ElAprendiz]

pues el valor esta aqui
OPTION VALUE =&quot;&lt;%=oficina(&quot;codoficina&quot;)%&gt;& quot;

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[ACHAVARRIA]

Ya funca gracias !!!!!!