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 presentación” 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 conexión para la base de datos es para SQL
Parece que eso es todo, si te puedo ayudar en algo más con mucho gusto.


Para la conexión con Acces debes sustituir el código

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 código 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 pequeña.. antes que nada gracias por la info, pero creo que hay una serie de cosas que me gustaría 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..