Foros del Web » Programando para Internet » ASP Clásico »

Rellenar Combobox con datos de una base de datos

Estas en el tema de Rellenar Combobox con datos de una base de datos en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 05/02/2004, 11:43
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0
Rellenar Combobox con datos de una base de datos

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)  
Antiguo 05/02/2004, 11:55
ACHAVARRIA
Invitado
 
Mensajes: n/a
Puntos:
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>
  #3 (permalink)  
Antiguo 05/02/2004, 12:29
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0

He hecho lo que me has dicho, pero sigue igual, sale el combobox vacío de nuevo.
__________________
-----,-----,-----,@
  #4 (permalink)  
Antiguo 06/02/2004, 11:07
Avatar de zink  
Fecha de Ingreso: mayo-2002
Ubicación: Aguascalientes
Mensajes: 125
Antigüedad: 22 años
Puntos: 0
<SELECT SIZE=1 NAME="materia">
<%
do until Rs.EOF
%>
<OPTION VALUE="<%=Rs("nombre_materia")%>"> <% Response.Write Rs("nombre_materia")%> </OPTION>
<%
Rs.MoveNext
loop
%>
  #5 (permalink)  
Antiguo 09/02/2004, 14:19
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0


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

Muchas gracias.

__________________
-----,-----,-----,@
  #6 (permalink)  
Antiguo 09/02/2004, 15:34
 
Fecha de Ingreso: enero-2004
Ubicación: Antofagasta
Mensajes: 40
Antigüedad: 20 años, 4 meses
Puntos: 0
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
  #7 (permalink)  
Antiguo 10/02/2004, 11:45
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0
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.
__________________
-----,-----,-----,@
  #8 (permalink)  
Antiguo 13/02/2004, 12:50
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0
Ayuda, por favor

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 %>
<!-- #include FILE = "Adojavas.inc" -->
<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>
__________________
-----,-----,-----,@
  #9 (permalink)  
Antiguo 13/02/2004, 15:12
 
Fecha de Ingreso: enero-2004
Ubicación: iquitos
Mensajes: 164
Antigüedad: 20 años, 4 meses
Puntos: 0
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>
__________________
javier
  #10 (permalink)  
Antiguo 15/02/2004, 13:38
 
Fecha de Ingreso: septiembre-2003
Mensajes: 142
Antigüedad: 20 años, 8 meses
Puntos: 0
Lo he probado y me sale el recordset vacío, pero desde Oracle me salen 3 filas. ¿a qué es debido?
__________________
-----,-----,-----,@
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:28.