Ayuda!! Rellenar Combobox

alejo
04 de Junio del 2002
URGENTEE!! Tengo un problema desde hace dias. Tengo una serie de combobox. Los quiero rellenar con datos que tengo en mi BD. No se como es el codigo para rellenarlos. Si me pudierais facilitar un ejemplo ya hecho me seria de gran utilidad, ya lo adaptaria a mi trabajo. Y si no una explicacion de como se hace.
Muchisimaas gracias de antemano

peque?
04 de Junio del 2002
Este ejemplo lo encontr en internet y aunque no estaba explicado me fue de gran ayuda

En este caso precio y presentacin son campos de mi base de datos
Server3 es el nombre de mi servidor
Prueba es el nombre de mi base de datos
sa es el nombre de usuario para SQL
La conexin para la base de datos es para SQL
Parece que eso es todo, si te puedo ayudar en algo ms con mucho gusto.


Para la conexin con Acces debes sustituir el cdigo

Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open"driver={SQL Server};server=Server3;database=Prueba;uid=sa;pwd="

Por el siguiente:
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open "EjemploDB"



peque?
04 de Junio del 2002
Creo que se me olvido quitar los tag y no proceso el cdigo as que lo envi nuevamente
<tag
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open"driver={SQL Server};server=Server3;database=Prueba;uid=sa;pwd="
Set Ob_RS=Ob_Conn.Execute("SELECT * FROM Tabla")
While Not Ob_RS.EOF
Tag>
<option value="<tag=Ob_RS("Precio")tag>"><tag=Ob_RS("Presentacion")tag></option>
<tag
Ob_RS.MoveNext
Wend
Ob_RS.Close
tag>
Te toca sustituir los tag por %

Rootk
04 de Junio del 2002
MM.. hola a todos, por cierto pequea.. antes que nada gracias por la info, pero creo que hay una serie de cosas que me gustara aclarar.. para hacer las conexiones con ASP, hay que saber si vamos a trabajar con sql server, access o con DSN, pero en fin.. lo mas comun es con access y para poder llenar un combo se hace de la siguiente manera:

<%
dim Conn, Rs, strConn
'abro la coneccion con Access que est
' en mi directorio c:inetpubwwwrootMiBase.mdb

strConn = "driver={Microsoft Acces Driver (*.mdb)};dbq=" & server.MapPath("MiBase.mdb")
'despues creo mi coneccion
set Conn = server.CreateObject ("adodb.connection")
'creo mi recordset
set Rs = server.createobject("adodb.recordset")

'Abro la base de datos
Conn.Open openstr
'Creo mi consulta y la guardo en la variable '
' Consulta para despues llamarla con el Recordset

Consulta = "Select nombre from Datos"
rs.open Consulta, Conn
'despues procedo a hacer mi llenado del combo
%>
<select name="combo">
<%
'Mientras no haya llegado al final del archivo..
do while not rs.Eof %>
<option> <%= rs("Nombre") %></option>
<%
'despues me muevo al siguiente registro
rs.MoveNext
loop
rs.close
set rs = Nothing
%>

y eso es todo, puede copiarlo y pegarlo para que lo pruebes...ok..??

Cualquier duda si quieres mandame un correo electronico...!!

Saludos..