ASP - Consulta en tabla desde un Combobox

   
Vista:

Consulta en tabla desde un Combobox

Publicado por J@m (41 intervenciones) el 09/08/2010 19:20:45
quiero que al seleccionar un dato de un combo,que cargue de una tabla, me busque un registro en otra tabla.

estoy usando VBSCRIPT

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta en tabla desde un Combobox

Publicado por Santos Pairazamán (2 intervenciones) el 09/08/2010 21:11:17
Tienes que realizar una consulta para traer los datos que se mostrarán en el Combo y luego en el evento Onchange del combo tendría que realizar un submit(enviar nuevamente la pàgina) y luego recuperas el valor del combo con request("NombreDeTuCombo") y con este valor realizar tu nueva consulta.

Espero t sirva

Hasta Pronto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta en tabla desde un Combobox

Publicado por prueba lishs (1 intervención) el 10/08/2010 20:33:38
prueba ejemplo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta en tabla desde un Combobox

Publicado por J@m (41 intervenciones) el 10/08/2010 20:52:26
Tienes un ejemplo, gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta en tabla desde un Combobox

Publicado por Santos Pairazamán (415 intervenciones) el 11/08/2010 18:54:33
Aquí hay un Ejm:

Muestro en un combo los departamentos y luego en el evento onchange del combo submiteo el formulario y luego recojo el valor del combo para realizar la nueva comsulta

Espero te sirva.

Salu2.

<%
Session("conexionBD") = "Provider=SQLOLEDB.1; User ID=xxxxx; PASSWORD=xxxxx.;Data Source=xxxxx; Initial Catalog=xxxx;"
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open session("conexionBD")

set rs = SERVER.CreateObject("ADODB.RECORDSET")
set cmd2=server.CreateObject("ADODB.COMMAND")
set cmd2.activeconnection=oConn
cmd2.prepared=false
cmd2.commandtype= 1
cmd2.commandtext = "Exec USPSelectDepartamentos"
set rs=cmd2.execute

%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>PRUEBA COMBOS</title>
</head>
<body>
<table width="900" border="1" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td></td>
<td valign="top"><table width="850" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" bgcolor="#E6EEFB" id="AutoNumber3" style="border-collapse: collapse">
<!--DWLayoutTable-->
<tr>
<td width="4"></td>
<td width="846" valign="middle" bgcolor="#E6EEFB">
<form ACTION="" name="formulario" method="POST">
<input type="hidden" name="INS_PROYECTO" value="">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<!--DWLayoutTable-->
<tr>
<td width="3" height="19"> </td>
<td id=celda width="22"> </td>
<td width="75"> </td>
</tr>
<tr>
<td height="26"> </td>
<td class="labelazul">Departamento</td>
<td valign="top">
<select name="cmboDpto" Style="WIDTH: 500px;" id="celdadato" onchange="Javascript:formulario.submit();">
<option selected value="0">[HAGA SU SELECCION]</option>
<%Do While Not rs.EOF
if cint(request("cmboDpto")) = cint(rs("codDepartamento")) then%>
<option selected value="<%=rs("codDepartamento")%>"><%=trim(rs("DesDepartamento"))%></option>
<%else%>
<option value="<%=rs("codDepartamento")%>"><%=trim(rs("DesDepartamento"))%></option>
<%end if
rs.MoveNext
loop
rs.Close
set rs=nothing
set cmd2=nothing
%>
</select>
</td>
</tr>
<tr>
<td colspan="3" height="10">
<%
if request("cmboDpto")<>"" then
set rsProv = SERVER.CreateObject("ADODB.RECORDSET")
set cmd=server.CreateObject("ADODB.COMMAND")
set cmd.activeconnection=oConn
cmd.prepared=false
cmd.commandtype= 1
cmd.commandtext = "Exec USPSelectProvinciaByDepartamento '"& request("cmboDpto") &"'"
response.write cmd.commandtext
set rsProv=cmd.execute
Do While Not rsProv.EOF
Response.write RsProv("CodProvincia") & " -- " & RsProv("DesProvincia")
rsProv.movenext
loop
rsProv.close
set rsprov=nothing
set cmd=nothing
End if%>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
<td></td>
</tr>
</table>
</body>
</html>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar