Problemas con Combox

[Acostag]

Hola Amigos... Primero que nada.. Gracias y Felisitaciones a toda la Comunidad FOROS_del_Web.

tengo un Dilema... ya logre crear un Combox donde accesa a una tabla de Access (Win98 y access97) y si me Trae Informacion.. pero quiero meter Variables. para que me traega la informacion que esta declarada en combox. ya lo puse dentro del while pero al Ejecutalo me arroja toda la informacion de la tabla..
Pueden Ayudarme... este es mi Ejemplo de Combox

<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>


Saludos
Luis.R.Acosta

[Gurrutello]

hola
podrias hacer algo asi
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes where clave='"&request.form("clientes")&""'
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>
aunque tambien puedes hacerlo con un request.querystring
request.cookies
etc...
saludos y espero que sea esto lo que buscabas

[Acostag]

Gurrutello... ya ejecute tu ejemplo.. pero no me arrojo nada..

mi checate este que hice... pero me la informacion que me arroja no es la deseada.... osea me arroja todo la tabla y el campo que yo requiero... Podrias Checalo y decirme donde Va...

<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes "
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%></option>

<div align="center">
<table cellspacing="0" cellpadding="0" border="1" width="500">
<tr bgcolor="#ffffcc">
<td width="15" bgcolor="#FFCC99" valign="top" align="Center"class= "titulo"><%=rs.Fields("id")%></td>
<td width="190" bgcolor="#FFCC99" valign="top" align="Center"class="titulo"><%=rs.Fields("Nombre" )%></td>
<td width="70" bgcolor="#FFCC99" valign="top" align="Center"class="titulo"><%=rs.Fields("Telefon oP")%></td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" border="1" width="500">
<tr bgcolor="#ffffcc">
<td width="250" bgcolor="#FFCC99" valign="top" align="Center"class="titulo"><%=rs.Fields("Direcci on")%></td>
<td width="70" bgcolor="#FFCC99" valign="top" align="Center"class= "titulo"><%=rs.Fields("TelefonoF")%></td>
<td width="100" bgcolor="#FFCC99" valign="top" align="Center"class="titulo"><%=rs.Fields("Colonia ")%></td>
<td width="80" bgcolor="#FFCC99" valign="top" align="Center"class= "titulo"><%=rs.Fields("clave")%></td>
</tr>
</table>
</div>

<%
rs.MoveNext
Wend
rs.Close
%>

Saludos
Luis.R.Acosta

[ElAprendiz]

obviamente si pones "select *" sin ninguna condicion te va a devolver todos los registros
haz como te dice gurutello pon una condicion para que te liste solo los registros que tu quieres

segun veo estos son tus campos id, Nombre, TelefonoP, Direccion, TelefonoF, Colonia, clave
si quieres listar los datos por cliente o id:
"SELECT * FROM Clientes where id=' "&request.form("id")&" ' " ' si id es texto
o
"SELECT * FROM Clientes where id= "&request.form("id")&" " ' si id es numerico

Saludos

[maestro]

Aqui tienes un thread con varios links para trabajar mas y mejor con ASP y BD

http://beta.forosdelweb.com/showthre...hreadid=102080

Suerte.

[Acostag]

Gracias....ElAprendiz pero has de decir que son un TONTO..
pero no me sale...

puse Tu Instruccion pero el Combo ya no me arroja Informacion..

"SELECT * FROM Clientes Where id=' "&request.form("Clave")&" ' "

Podrias ayudarme..

saludos
Luis.R.Acosta