Rellenar Combobox con datos de una base de datos

ross_av · #1 (**permalink**) 05/02/2004, 11:43

Hola, necesito saber cómo rellenar un combobox con datos de una tabla de una base de datos, tengo hecho lo siguiente, pero me muestra el combobox vacío ¿dónde está el error?
Muchas gracias.

<%
var SQL = ""
miconexion = new ActiveXObject("ADODB.Connection")
miconexion.Open ("XXXXX")
SQL = "SELECT * FROM MATERIAS"
ResultSet rs = miconexion.execute(SQL)
%>
<form name = "formulario2">
<center> <b> Materia: </b> <select name = "materia">
<option value = " "> </option>
<%while (!rs.Eof)
{
%>
<option value="<% = rs('NOMBRE_MATERIA') %>"> <% = rs('NOMBRE_MATERIA') %> </option>
<%
rs.MoveNext()
} %>
</select>
</center>

#2 (**permalink**) 05/02/2004, 11:55

Aqui te paso un para que compares:

<select size="1" name="Directorio>
<option>Seleccionar</option>
<%
If not rs.BOF then
Rs.movefirst
while (NOT Rs.EOF)
%>
<option value=<%=Rs.fields.item("categoria_URL").value%>>< %=Rs.fields.item
("categoria").value%></option>
<%
Rs.movenext()
wend
End if
%>

</select>

ross_av · #3 (**permalink**) 05/02/2004, 12:29

He hecho lo que me has dicho, pero sigue igual, sale el combobox vacío de nuevo.

zink · #4 (**permalink**) 06/02/2004, 11:07

ross_av · #5 (**permalink**) 09/02/2004, 14:19

He probado lo que me has dicho y sigue sin salirme nada, ¿hay algún otro método de hacerlo?

Muchas gracias.

AntofagastaCL · #6 (**permalink**) 09/02/2004, 15:34

prueba con esto, este codigo te va arrojar los datos desde el ultimo al primero

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\BD.mdb"))

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM latabla"
rs.Open sql, con, 3,3

rs.moveLast
Do while not RS.BOF %>
<select name="nombreselect">
<option value="<% = rs("NOMBRE_MATERIA") %>"> <% = rs("NOMBRE_MATERIA") %> </option>
</select>

<%
RS.MovePrevious ()
Loop
%>

si no te funciona recomiendo que rebices tu BD y los nombres de los campos y la BD, etc para ratificar que estas bien con los datos

ross_av · #7 (**permalink**) 10/02/2004, 11:45

He probado con eso y me muestra en el combobox ">, pero no lo que quiero que me muestre, ¿a qué es debido que muestre eso y no lo que contiene rs?

Muchas gracias.

ross_av · #8 (**permalink**) 13/02/2004, 12:50

He hecho un nuevo código, pero tampoco me muestra nada en el combobox, ¿Alguien sabe si es la conexión lo que está mal o a qué es debido que no muestre lo que contiene el RecordSet?

Por favor, necesito ayuda.

Muchas gracias.

Dejo el código para ver si alguien es tan amable de ayudarme:

<% @language = Jscript %>

<html>
<head>
<title> Consulta de enlaces web </title>
</head>
<body bgcolor = "#00AAAA">
<%
miconexion = new ActiveXObject("ADODB.Connection")
miconexion.Open ("driver={Oracle ODBC driver};Server=ORCLSL;database=BDORACLE;Uid=scott; Pwd=tiger;")
%>
<center> <h1> Realiza tus consultas </h1> </center>
<br>
<br>
<br>
<form name = "formulario">
<center> <b> Materia: </b> <select name="materia">
<option value = "Todas"> Todas </option>
<%
Dim RET
Dim SQL = ""
SQL = "SELECT NOMBRE_MATERIA FROM MATERIAS ORDER BY NOMBRE_MATERIA"
rs=miconexion.execute(SQL)
RET = ""
do while (!rs.Eof)
RET = RET & "<option value='" & rs('NOMBRE_MATERIA') & "'>" & rs("NOMBRE_MATERIA") & "</option>"
rs.MoveNext()
}
Response.write(RET & "</SELECT>")
miconexion.Close()
%>
</body>
</html>

alexander21rr · #9 (**permalink**) 13/02/2004, 15:12

pruba este codigo:

<SELECT name="tecnico">
<% set rs4 = con.Execute(sql)
rs4.movefirst
do while not rs4.Eof %>
<option value="<%=rs4(0)%>"><% =rs4(1)%></option>
<% rs4.movenext
loop %>
</SELECT>

ross_av · #10 (**permalink**) 15/02/2004, 13:38

Lo he probado y me sale el recordset vacío, pero desde Oracle me salen 3 filas. ¿a qué es debido?