22/08/2005, 11:42
| |||
| |||
| consulta de base de datos con listas desplegables hola les agradeceria mucho que me ayuden por favor Tengo 1 lista deslegable que toma valores de mi base de datos(tabla maestro) mi lista tiene los datos del empleado (apellidop, apellidom, nomempl) quiero que al seleccionar algun elemento de mi lista me muestre la informacion correspondiente(q esta en mi base de datos- tabla maestro)de acuerdo a lo que e seleccionado (todo en la misma pagian asp) Muchas Gracias Saludos |
|
22/08/2005, 14:11
| ||||
| ||||
| Muchos temas al respecto, utiliza el buscador. Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
26/08/2005, 09:37
| |||
| |||
| Ayudenme Por Favor hOLA u_goldman e buscado en los foro s pero no e tenido suerte, por favor te agradeceria si puedes brindar sitios web donde haiga este tipo de ejemplo "consulta de base de datos con lista despelegable" saludos |
|
26/08/2005, 16:56
| ||||
| ||||
| Mmmm... podrias hacer, en primer lugar, un campo "id" autonumerico en la tabla y que en la lista desplegada un menu jump (algo asi, sino me equivoco: cada elemento es un link y si se presiona uno lleva automaticamente al link que corresponde al elemento) con el valor de la misma pagina mas:
Código:
Luego, la sentencia sql:
"pagina.asp?id="&rs.Fields("id")
Código:
En el lugar donde quieres mostrar la informacion, haces un response.write con los valores que quieres mostrar:sql="Select * From maestro where id='"%id%'"
Código:
Para evitar que se muestren todos los registros haces esto:(rs.fields("nomempl"))
Código:
Espero las criticas y ayudas id=Request.Querystring("id")
if id="" Then
"Seleccione un elemento de la lista"
Else
'aqui muestras la informacion de la tabla
End If
__________________ HPNeo |
|
31/08/2005, 16:31
| |||
| |||
 Hola HPNeo  te agredesco mucho haberme contestado  creo q no me expresado muy bien que digamos , Bueno ojala que ahora si sea mas entendible, MIra lo que quiero es que al seleccionar una lista desplegable la cual toma valores de mi base de datos llamada nepo de la tabla maestro_personal(codi_empl_per, ape_pat_per, ape_mat_per,nom_empl_per,dir_emp_per, depa_naci_dpt, dist_naci_tdi) que esta en access, me muestre toda la informacion correspondiente (de mi tabla maestro_personal)en base a lo seleccionado en mi lista todo en la misma pagina llamada prueba.asp, y acontinuacion esta el codigo que he desarrollado pero no me muestre lo que deseo  por favor te agradeceria comentarios para poder corregirlo , esta pagina q e desarrollado si me muestra lo valores tomados de mi base de datos en mi lista, pero al seleccionar no pasa nada , no me muestra la informacion que corresponde a lo seleccionado, si no me muestre todaaaa la informacion de mi tablaaaa sim que yo haiga realizado la seleccion de mi lista ..prueba.asp Código PHP: Código PHP: y asi poder realizar una nueva consulta en base a loq e capturado Código PHP: Código PHP: Código PHP: MUCHAS GRACIAS  |
|
02/09/2005, 16:42
| ||||
| ||||
| Bien, bien... no he podido responder antes porque estoy en examenes parciales, lo siento, pero asi es el colegio. Aqui esta la solucion:
Código:
Hubo un error en el orden de la ejecucion de la segunda sentencia sql, y ahora mira lo que esta en celeste: sino se selecciona ningun registro, no aparece nada y ya no se muestran los miles de registros que tiene la tabla.<html>
<head>
</head>
<body>
<!-- Conecto mi base de datos--->
<%
Dim cnOra1, cnStrOra ,Rs, sql, SQL1
Set cnOra1 = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.Recordset")
cnOra1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nepo.mdb")
sql="select * from personal "
Rs.Open sql, cnOra1
' Capturo el valor de mi lista_desplegable en la variable iEmpleado
iEmpleado=Request.Form("Empleado")
if iEmpleado="" then 'si la variable iEmpleado esta vacia se muestra solo el formulario
%>
<!-- Inicio de formulario-->
<form method="POST" action="prueba.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="669" id="AutoNumber1" height="291">
<tr>
<td width="665" colspan="5" height="1"><font face="Arial" size="2">Empleado: </font>
<select size="1" name="Empleado" >
<!--Mi lista toma valores de mi base de datos (tabla personal)--->
<% total=0
while not Rs.EOF
%>
<option value="<%=Rs("codi_empl_per")%>"><%=Rs("ape_pat_per")%> <%=Rs("ape_mat_per")%> <%=Rs("nom_emp_per")%></option>
<% Rs.movenext
total= total+1
wend
%>
</select> <input type="submit" value="Enviar" name="B1">
</form>
<!--Fin de Formulario-->
</tr>
<%
else
Rs.close
if Request.Form("Empleado")<>"" then
sql = sql + "where codi_empl_per="&iEmpleado &""
end if
response.write(sql)
Rs.Open sql, cnOra1
response.write(iEmpleado)
if Rs.State <>0 then
if not (Rs.BOF and Rs.EOF) then
total=0
do while not Rs.EOF
total=total+1
%>
<tr>
<td width="306" height="24"><font size="2" face="Arial">DNI:
</font></td>
<td width="194" height="24"><%=Rs("codi_empl_per")%></td>
<td width="134" height="24"> </td>
</tr>
<tr>
<td width="665" colspan="5" height="50">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10" height="1">
<tr>
<td width="12%" height="1"><font size="2" face="Arial">Domicilio:</font></td>
<td width="88%" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="665" colspan="5" height="48">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="43">
<tr>
<td width="33%" height="16"><font size="2" face="Arial">Distrito: <%=Rs("dist_naci_tdi")%></font></td>
<td width="33%" height="16"><font size="2" face="Arial">Provincia: <%=Rs("prov_naci_tpr")%></font></td>
<td width="34%" height="16"><font size="2" face="Arial">Departamento: <%=Rs("depa_naci_dpt")%></font></td>
</tr>
<tr>
<td width="33%" height="21"> </td>
<td width="33%" height="21"> </td>
<td width="34%" height="21"> </td>
</tr>
</table>
<%
Rs.movenext
loop
%>
</td>
</tr>
<!--Cierro mi conexion de base de datos--->
<%
else
Rs.close
Set rs= Nothing
cnOra1.close
Set cnOra1= Nothing
end if
end if
end if
%>
</table>
</body>
</html>
Espero tus comentarios Saludos P.D.: He cambiado el nombre de la tabla, y la sentencia sql podria ser: sql = sql + "where codi_empl_per='"&iEmpleado &"'"
__________________ HPNeo |
|
27/09/2005, 18:44
| ||||
| ||||
| no creo que alguien se de el trabajo de analizar todo ese codigo... sintetiza tu duda.. saludos
__________________ Haz la guerra en la cama y el amor donde se te de la gana... El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!! |
|
29/09/2005, 16:58
| ||||
| ||||
| Metallick tiene razon... ya me duele la cabeza de ver tanto <, >, % y demas... No entiendo bien tu pregunta, me gustaria q me explicaras mejor nos vemos luego
__________________ HPNeo |
|
04/10/2005, 10:21
| |||
| |||
| Hola les agradecira una ayudita quiero que mis campos de mi tabla nepo_cab Name Null? Type ----------------------------------------- -------- ------------------------- CODI_EMPL_PER NOT NULL CHAR(8) CODI_DEPE_TDE NOT NULL CHAR(4) DIR_EMP_PER NOT NULL VARCHAR2(60) CODI_DEPA_DPT NOT NULL CHAR(2) CODI_PROV_TPR NOT NULL CHAR(2) CODI_DIS_TDI NOT NULL CHAR(2) RL276 NOT NULL CHAR(1) NOMBRADO NOT NULL CHAR(1) DESIGNADO NOT NULL CHAR(1) SNP NOT NULL CHAR(1) PROYECTO NOT NULL CHAR(1) ESPECI_PROY NOT NULL VARCHAR2(60) OTROS NOT NULL CHAR(1) ESPECI_OTROS NOT NULL VARCHAR2(60) JURAMENTO NOT NULL CHAR(1) ANIO NOT NULL CHAR(4) MES NOT NULL CHAR(2) LEY NOT NULL VARCHAR2(100) GRADO NOT NULL CHAR(1) COD_PARENTESCO NOT NULL CHAR(2) se han llenados con los datos de la pagina frmdatos.asp frmdatos.asp Cita: Saludos <% Dim cnOra1, cnStrOra ,Rs, sql,sql1,sql_cargo,sql_depe,sql_insert Set cnOra1 = Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") cnStrOra ="Provider=OraOLEDB.Oracle;Password=631;User ID=PR;Data Source=TCP.WORLD" cnOra1.open cnStrOra sql= "select * from maestro_personal order by ape_pat_per" Rs.Open sql, cnOra1 iEmpleado=request.form("Empleado") %> 'si la variable iEmpleado esta vacia se muestra solo el formulario if iEmpleado ="" then <form method="POST" action="frmdatos.asp" name="formtemp"> <select size="1" name="Empleado" onchange="this.form.submit()" > <option value=""> </option> <% while not Rs.EOF %> <option value="<%=Rs("codi_empl_per")%>"><%=Rs("ape_pat_pe r")%> <%=Rs("ape_mat_per")%>   ;<%=Rs("nom_emp_per")%></option> <% Rs.movenext wend %> </select> </form> <% else Rs.close sql1="select * from maestro_personal" if Request.Form("Empleado")<>"" then sql1 = sql1 + " where codi_empl_per='"&iEmpleado&"'" end if Rs.Open sql1, cnOra1 if Rs.State <>0 then if not (Rs.BOF and Rs.EOF) then do while not Rs.EOF %> <p>Dependencia a la que pertenece: <b><%=Rs("depe_remu_per")%></p> <p>DNI: <%=Rs("codi_empl_per")%></p> <p>Domicilio: <%=Rs("dir_emp_per")%></p> <p>Distrito:<%=Rs("dist_naci_tdi")%></p> <p>Provincia: <%=Rs("prov_naci_tpr")%></p> <p>Departamento: <%=Rs("depa_naci_dpt")%></p> <p><% if (Rs("reg_lab_per").Value)=276 Then%></p> <p><input checked type="checkbox" name="ck276"></p> <% else %> <p>Nombrado :</p> <% if (Rs("con_tra_per").Value)="N" Then %> <p><input checked name="cknombrado" type="checkbox" size="2"></p> <% else %> <p><input name="cknombrado" type="checkbox" size="2"></p> <% end if%> <% Rs.movenext loop Rs.close %> <p>Servicios No Personales :</p> <p><input type="checkbox" name="cksnp" value="ON"></p> <p>Proyectos</p> <p><input type="checkbox" name="ckproy" value="ON"></p> <p>Especificar</p> <p><input type="text" name="txtespeproy" size="52"></p> <p>Otros</p> <p><input type="checkbox" name="ckotros" value="ON"></p> <p>Especificar</p> <p><input type="text" name="txtespeotros" size="52"></p> <p>DECLARO BAJO JURAMENTO</p> <p>Si <input type="radio" name="rdjura" value="1" checked></p> <p>NO &NBSP; <input type="radio" name="rdjura" value="0"></p> <p>>HASTA EL CUARTO GRADO DE CONSANGUINIDAD</p> <p>Número de parientes : &nsbp; <input tipe="text" name="npac" size="10"></p> <p>Apellidos y Nombres : <input type="text" name="apepnm4" size="80"></p> <p>Parentesco o vínculo conyugal</p> <p> <select name="pgrado4" onchange=""> <option value="Seleccione">Seleccione</option> <% sql_pare="select * from tipo_paren_nepo order by desc_parentesco" Rs.Open sql_pare,cnOra1 while not Rs.EOF %> <option value="<%=Rs("cod_parentesco")%>"><%=Rs("desc_pare ntesco")%></option> <% Rs.MoveNext wend Rs.close %> </select> </p> <p>Cargo</p> <p> <select size="1" name="cgrado4" onchange="" > <option value="">Seleccione</option> <% sql_cargo="select m.codi_empl_per, m.codi_carg_tca, c.desc_carg_tca from maestro_personal m, inei.tcargos c where m.codi_carg_tca= c.codi_carg_tca(+)" Rs.Open sql_cargo, cnOra1 while not Rs.EOF %> <option value="<%=Rs("codi_carg_tca")%>"><%=Rs("desc_carg_ tca")%></option> <% Rs.movenext wend Rs.close %> </select> </p> <p>Dependencia en la que presta servicios.</p> <p> <select size="1" name="dgrado4" onchange="" > <option value="">Seleccione</option> <% sql_depe="select m.codi_empl_per, m.codi_depe_tde, d.desc_depe_tde from maestro_personal m,tdependencias d where m.codi_depe_tde=d.codi_depe_tde(+) and flag='1'" Rs.Open sql_depe, cnOra1 while not Rs.EOF %> <option value="<%=Rs("codi_depe_tde")%>"><%=Rs("desc_depe_ tde")%></option> <% Rs.movenext wend Rs.close %> </select> </p> <p>HASTA EL SEGUNDO GRADO DE CONSANGUINIDAD</p> <p>Número de parientes : <input type="text" name="npac" size="10"></p> <p>Apelldos y Nombres : <input type="text" name="apepnm2" size="80"></p> <p>Parentesco o vínculo conyugal</p> <p> <select name="pgrado2" onchange=""> <% Rs.Open sql_pare,cnOra1 while not Rs.EOF %> <option value="<%=Rs("COD_PARENTESCO")%>"><%=Rs("DESC_PARE NTESCO")%></option> <% Rs.MoveNext wend Rs.close %> </select> </p> <p>Cargo</p> <p> <select size="1" name="cgrado2" onchange="" > <option value="">Seleccione</option> <% Rs.Open sql_cargo, cnOra1 while not Rs.EOF %> <option value="<%=Rs("codi_carg_tca")%>"><%=Rs("desc_carg_ tca")%></option> <% Rs.movenext wend Rs.close %> </select> </p> <p>Dependencia en la que presta servicios.</p> <p> <select size="1" name="dgrado2" onchange="" > <option value="">Seleccione</option> <% Rs.Open sql_depe, cnOra1 while not Rs.EOF %> <option value="<%=Rs("codi_depe_tde")%>"><%=Rs("desc_depe_ tde")%></option> <% Rs.movenext wend %> </select> </p> <% Rs.close Set rs= Nothing 'cerramos rs cnOra1.close 'ya no existe recorset le decimo al servidor Set cnOra1= Nothing end if end if end if %> |
|
07/10/2005, 13:55
| |||
| |||
| El problema que no se como insertarlos , si tengo que crear otra pagina q es la que me recepccione los datos enviados y luego lo inserta en la la tabla nepo_Cab, ese el problema que no se como hacer la insercion te agredeceria q me ayudes Saludos |
|
08/10/2005, 18:06
| ||||
| ||||
| Ok, pasa todos los datos que quieres insertar a otra pagina los recoges mediante Request.Form("nombre_elemento_formulario"): primer_elemento_formulario=Request.Form("nombre_el emento_formulario") . . . N_elemento_formulario=Request.Form("nombre_element o_formulario") <form action="frmdatos2.asp" method="post"> ... </form> Y luego haces un Insert Into (por lo visto un insert gigante): "Insert Into tabla (campo1, campo2, campoN) values ('"&primer_elemento&"','"&segundo_elemento&"','"&N _elemento&"')" Si el valor es una cadena de texto: '"&primer_elemento&"' Si es numerico: "&primer_elemento&" Si es fecha: #"&primer_elemento&"# Si es autonumerico: deja ese espacio porque la base de datos genera el numero Si esta mal mi explicacion te ruego que me lo digas, de igual manera por favor agregame al msn, asi te puedo ayudar mas rapido y directo. Saludos
__________________ HPNeo |
|
11/10/2005, 11:23
| |||
| |||
| Hola HNPEO GRACIAS POR TU AYUDA PERO LO Q NO SE ........TE ACUERDAS??Q YO TENGO UN FORMULARIO Q ME REDIRECCIONA A LA MISMA PAGINA OSEA A frmdatos.asp, ENTONCES NO ENTIENDO TENGO QPONER OTRO FORMULARIO PAARA Q ME MANDE A OTRO PAGINAPARA Q ESTA ME RECIBA LOS DATOS ENVIADOS Y LUEGO INSERTARLOS, SI ES ASI DONDE TENGO Q PONER EL FORMULARIO EN Q PARTE DEL CODIGO GRACIAS SALUDOS |
|
11/10/2005, 15:38
| ||||
| ||||
| Si... mira, tu codigo es algo... extenso, por decirlo de cierto modo: y quiza te puedas confundir. Mejor haz esto: <form action="frmdatos2.asp" method="post"> Crea la pagina frmdatos2.asp, o como quieras llamarla, y en esa pagina recoge todos los datos de la forma anteriormente explicada. Solo tienes que crear esa pagina (frmdatos2.asp) y recoger las variables de los elementos del formulario de frmdatos.asp: primer_elemento_formulario=Request.Form("nombre_el emento_formulario") . . . N_elemento_formulario=Request.Form("nombre_element o_formulario") Saludos
__________________ HPNeo |
|
12/10/2005, 09:11
| |||
| |||
| Hola HNPEO gracias por tu ayuda :( pero creo que no me expresado muy bien q digamos ojala q ahora si se mas detallado , mira en la pagina frmdatos.asp donde estas todo el codigooooooooooo ahi ya hay un formularioo que tiene como action="frmdatos.asp" , osea me hace una consulta a mi bd y los resultados me muestra en la misma pagina (frmdatos.asp) el problema que yo tengo es si ?? tengo q poner otro formulario, que me envie a a la pagina frmdatos2.asp que es la q me va recoger todos los datos de mi pagina frmdatos.asp y asi voy a poder insertarlo , pero mi gran duda es donde pongo el formulario q me va a enviar a frmdatos2.asp Si mi pagina frmdatos.asp ya tiene un formulario que me manda ala misma pagina .. ojala q ahora si este mas entendible ahhh ya te agrege a mi msm saludos gracias |
|
06/10/2010, 12:39
| |||
| |||
| Respuesta: consulta de base de datos con listas desplegables por favor necesito ayuda trengo una lista en dreamweaver que toma los datos de mi base de datos pero yo deseo que al seleccionar un regristro de la lista me genere una consulta mostrando una informacion ejemplo.. la lista lleva <li>comerciales</li> <li>panaderias</li> <li>farmacias</li> <li>charcuteria</li> <li>csupermercados</li> y que al selecionar uno de ellos me busque en la base de datos todos los registros que sean comerciales si es la opcion comerciales que estoy seleccionando y y me los muestre en mi pagina |
|
06/10/2010, 14:49
| ||||
| ||||
| Respuesta: consulta de base de datos con listas desplegables No revivas temas viejos con información que no ayuden a la solución Lo tuyo no es tanto una duda aranasoftware, o por lo menos no una concreta y específica. Abre un nuevo tema explicando lo que haz hecho y dónde tienes el problema Saludos |
Este tema le ha gustado a 1 personas 
