combobox ayudeme por favor

Luna83 · #1 (**permalink**) 19/05/2006, 18:50

Hola

Estoy empezando con asp son novata en este asunto mi problema es el siguiente:

Tengo que tomar los valores de un combobox que descargo de una base de datos para despues realizar mi consulta ya tengo el combobox doble mi problema es que no se como tomar ambos valores para despues realizar una consulta tome de ejemplo uno de sus codigos

<html>
<head>
<title>consulta</title>
<script language = "JavaScript">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open " Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDb=F:\visual\inventar ios.dbc "
productos_Sql = "Select distinct numhad, cvecat, deshad, modhad, cvemar from hardware"
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("numhad"))&""&(rs("modhad")) %>";
subcatagoryof = "<%=(rs("cvemar"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
</script>
</head>
<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>Hardware</u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>
<td width="77%">
<select size="1" id="cvemar" name="cvemar" onChange = "javascript:sublist(this.form, cvemar.value);">
<option selected>Selecciona una categoria</option>
<%familias_Sql = "Select distinct cvemar,nommar,decmar from marcas"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("cvemar")%>"><%=rs("nommar")%></option>
<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>       & nbsp;
<SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="9%">
<p align="left">
</p>
</td>
</tr>
</table>
</center>
</div>
<center>
</form>
</center>
</body>
</html>

ahora lo que quiero es que de los valores tomados en el combo generar una consulta pero la verdad no tengo idea de como hacerlo si alguien me puede ayudar gracias

Myakire · #2 (**permalink**) 20/05/2006, 11:03

Cita:

ahora lo que quiero es que de los valores tomados en el combo generar una consulta

En el evento OnChange del combo debes llamar a un función que mande el formulario al server para que se genere la consulta. Puedes enviar el formulario con NomFormulario.submit()

Mira estos ejemplos

http://soloasp.com.ar/foro_web/viewt...s+dependientes
http://www.asptutor.com/asp/vart.asp?id=102

Luna83 · #3 (**permalink**) 23/05/2006, 15:50

ok a lo que te refieres es que en lugar de
<select size="1" id="cvemar" name="cvemar" onChange = "javascript:sublist(this.form, cvemar.value);">

en la parte de onChange= " NomFormulario.submit();">
pero al sustituir esto pierdo mi lista y ya no obtengo el combobox combinado disculpame pero en verdad no logro entenderlo se que tambien tendria que cambiar
la forma del opcion o me equivoco

<option value="<%=rs("cvemar")%>"><%=rs("nommar")%></option>

WILLIAMGG · #4 (**permalink**) 23/05/2006, 16:15

Cita:

Iniciado por Luna83

ok a lo que te refieres es que en lugar de
<select size="1" id="cvemar" name="cvemar" onChange = "javascript:sublist(this.form, cvemar.value);">

en la parte de onChange= " NomFormulario.submit();">
pero al sustituir esto pierdo mi lista y ya no obtengo el combobox combinado disculpame pero en verdad no logro entenderlo se que tambien tendria que cambiar
la forma del opcion o me equivoco

<option value="<%=rs("cvemar")%>"><%=rs("nommar")%></option>

Hola lo k buscas es algo similar:
<head>
<script>
function Envio(){
document.formulario.submit();
}
</script>
</head>

<body>
<form name="formulario" action="mismapagina.asp" method="post">
<strong>Pais:</strong>
<%set tabla=coneccion.Execute("select * from PAIS")%>
<select name="CboPais" onchange="javascript:Envio();">
<%idpais=cint(Request.form("CboPais"))%>
<option value="----"></option>

<%do while not tabla.eof %>
<option value="<%=tabla("IdP")%>" <%if idpais=cint(tabla("IdP")) then%>
Selected <%End if%>>
<%=tabla("Nombre")%></option>
<%tabla.movenext
loop%>
</select>
</form>
</Body>

Donde la Tabla Pais tiene como campos : IdP tipo string y Nombre varchar
Espero te sirva

Luna83 · #5 (**permalink**) 01/06/2006, 18:06

hola perdon pero me gustaria si me puedes explicar mejor la funcion he buscado unos ejemplos pero no les entiendo gracias de antemano

La_LeY · #6 (**permalink**) 02/06/2006, 13:07

Luna a ver explicame a mi que es lo que quieres hacer y buscaremos la solucion por lo que vi no entendi que rayos quieres hacer asi que si nos explica mejor quizas te ayudemos!

Luna83 · #7 (**permalink**) 06/06/2006, 18:29

En mi base de datos tengo una tabla de categoría con el combo me despliega el equipo de computo para consultar y ya que elegi el equipo la relaciono con la tabla de hardware para sacar los modelos que existen de ese equipo
por ejemplo escogo scaner y el siguiente combo me muestra los modelos existentes scanjet 2400, etc.. pero estos modelos pertenecen a la tabla de hardware y el nombre de ese campo es modhad ahora lo único que quiero es tomar es la llave primaria el valor de numhad para poder realizar la consulta en otra tabla

JuanRAPerez · #8 (**permalink**) 07/06/2006, 08:47

ese ejemplo te puede ayudar como dijeron arriba

http://www.asptutor.com/asp/vart.asp?id=102

Luna83 · #9 (**permalink**) 18/06/2006, 14:02

hola les muestro este codigo pero me muestra un problema al momento de haver un combo con los valores de marca y categoria
en la parte de mi consulta en SQL donde hago la union con las demas bases de datos me manda un mensaje de que hay una palabra desconocida espero que me puedan ayudar

<FORM method="post" name="form" action="a_equipo.asp" onSubmit="return Validar();">
<table border="1" width="50%">
<tr>
<td width="121">Numero de Serie:</td>
<td colspan="3"><input name="serequ" size="40"></td>
</tr>
<tr>
<td width="121">Equipo:</td>
<td colspan="3"><%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDb=c:\visual\inventar ios.dbc"
Set oRs = Server.CreateObject("ADODB.Recordset")
set rs = conn.execute("SELECT * from categoria WHERE tipocat='Hardware'")
%>
<select name="cvecat" size="1">
<%
do while not rs.eof %>
<%
response.write "<option value=" + Cstr(rs("cvecat")) +">" + rs("descat")+ "</option>"
rs.movenext
loop
%></select>
</td>
</tr>
<tr>
<% set rs = conn.execute("SELECT * from marcas")
%>
<td width="121">Marca:</td>
<td colspan="3"><select name="cvemar" size="1">
<%
do while not rs.eof %>
<%
response.write "<option value=" + Cstr(rs("cvemar")) +">" + rs("nommar")+ "</option>"
rs.movenext
loop
%></select>
</td>
</tr>
<tr>
<%
cvecat = Request.Form("cvecat")
cvemar = Request.Form("cvemar")
set rs = conn.execute("SELECT Hardware.modhad FROM inventarios!categoria INNER JOIN inventarios!hardware INNER JOIN inventarios!marcas ON Marcas.cvemar = Hardware.cvemar ON Categoria.cvecat = Hardware.cvecat WHERE Hardware.cvecat = " & Request("cvecat")&" AND Hardware.cvemar =" & Request("cvemar")&"")aqui me marca error

%>

<td width="121">Modelo:</td>
<td colspan="3">
<select name="numhad" size="1">
<%
do while not rs.eof %>
<%
response.write "<option value=" + Cstr(rs("numhad")) +">" + rs("modhad")+ "</option>"
rs.movenext
loop
%></select>
</td>
</tr>
</table>
<input type="submit" value="Enviar" name="B1">
</FORM>

Myakire · #10 (**permalink**) 20/06/2006, 23:25

¿lo tienes todo en una sola linea?

Si son en varias lineas debes usar el signo _ para indicar que sigue en la siguiente linea.

Luna83 · #11 (**permalink**) 21/06/2006, 14:36

si solo es una linea y aun asi me manda ese error

u_goldman · #12 (**permalink**) 21/06/2006, 14:42

y Asi?

Código:

set rs = conn.execute("SELECT Hardware.modhad FROM inventarios!categoria INNER JOIN inventarios!hardware INNER JOIN inventarios!marcas ON Marcas.cvemar = Hardware.cvemar ON Categoria.cvecat = Hardware.cvecat WHERE Hardware.cvecat = " & Request("cvecat")&" AND Hardware.cvemar =" & Request("cvemar"))

Tambien por favor dinnos que error te marca.

Saludos

Luna83 · #13 (**permalink**) 21/06/2006, 14:51

gracias lo voy a checar

Luna83 · #14 (**permalink**) 21/06/2006, 14:53

un favor mas me podrian decir de una pagina para checar como actualizar datos en un formulario tomando en cuenta datos almacenados en una base de datos

Myakire · #15 (**permalink**) 26/06/2006, 17:25

http://www.asptutor.com/
http://www.soloasp.com.ar/

Ahí hay bastantes codigos

Saludos