Foros del Web » Programando para Internet » ASP Clásico »

function buscar()

 Estas en el tema de function buscar() en el foro de ASP Clásico en Foros del Web. Hola necesito ayuda. De unos envios de datos para esta funcion "function buscar()" lo que yo necesito es que se muestren en la tabla que ...
  #1 (permalink)  
Antiguo 27/03/2009, 15:04
Avatar de TonyChile  
Fecha de Ingreso: marzo-2009
Ubicación: Maipú, Santiago
Mensajes: 422
Antigüedad: 16 años, 1 mes
Puntos: 7
function buscar()
Hola necesito ayuda. De unos envios de datos para esta funcion "function buscar()" lo que yo necesito es que se muestren en la tabla que esta en la misma pagina los datos en el caso que se haga clic en el boton "BUSCAR" ya que eso indica que se necesita ver solo una linea de datos y no todos como se muestra en un principio. Gracias por el interes

Esta es la parte del combobox y el boton.

Código: 
<table name="tabla" width="250" class="fondo_table1">
<tr><td colspan=6 class="titulo"></td></tr>
	<tr><td colspan="6" height=4></td></tr>


<tr>
			<td width="20%" nowrap class="text_black_bold_12"><strong>&nbsp;M&oacute;vil&nbsp;</strong></td>
<td colspan="3"> 
			  <select name="BBmovil" id="MOVIL" class="combo">
              <option value="0"selected>Seleccionar</option> 
			  <% 
              While (NOT reg1.EOF) 
              %> 
              <option value="<%=(reg1.Fields.Item("MOVIL").Value)%>"><%=(reg1.Fields.Item("MOVIL").Value)%></option> 
              <% 
              reg1.MoveNext 
              wend
			  %> 
			  </select>		  
    </td>			  
  </tr>

<tr><td colspan="6" width="100%">&nbsp;</td></tr>
	<tr>
		<td colspan="6" align="center">
			<input type="submit" name="BBbuscar" value="Buscar" class="botton80x23" onClick="buscar()">&nbsp;&nbsp;&nbsp;
			<input type="button" name="BBlimpiar" value="Limpiar" class="botton80x23" onClick="limpiar()">
 	    </td>
	</tr>
	<tr><td colspan="6">&nbsp;</td></tr>
    
</table>
estos son los nombres de los datos dentro del sql server 2000

NUM_CHIP, DATO1, DATO2, SERIE_CARPETA, PIN, PUK, FECHA_ENTREGA_CHIP, FECHA_RETIRO_CHIP, ASIGNADO, NO_ASIGNADO, NOTAS from CHIP

la conexion que se carga apenas se entra en la pagina para cargar la tabla

set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.CursorType = adOpenStatic
rs2.CursorLocation = 3
rs2.open sql2,conecta
rs2.pagesize=1000000
tamPagina = rs2.pagesize
PaginasTotales=rs2.PageCount


y esta es la tabla

Código: 
<table width="980" height="35" border="1" AllowDBNull="true" align="center" cellpadding = 2 cellspacing = 0 bordercolor="#000000" bgcolor="#FFFFFF" class="dropmenusimple" id="tabla1"  style="BORDER-COLLAPSE: collapse">
  <tr align="center" valign="middle" bordercolor="#000000">
    <td width="100" height="35" nowrap class="titulo_table2"><div align="center"><strong>N&uacute;mero De Chip</strong></div></td>
    <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato1</strong></div></td>
    <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato2</strong></div></td>
    <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Serie Carpeta</strong></div></td>
    <td width="60"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Pin</strong></div></td>
    <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Puk</strong></div></td>
    <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fecha &nbsp;&nbsp;&nbsp; Entrega Chip</strong></div></td>
    <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong></strong><strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fecha&nbsp;&nbsp;&nbsp; Retiro Chip</strong></div></td>
    <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>Asignado</strong></div></td>
    <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>No Asignado</strong></div></td>
    <td width="260" height="35" nowrap class="titulo_table2"><div align="center"><strong>Notas</strong></div></td>
  </tr>
  
  <%
   Do While Not rs2.EOF 
      var1 = rs2(1)
   
  %>
  
  <tr align="center" valign="middle">
    <td width="13%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=rs2(0)%></td>
    <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var1%></td>
    <td width="3%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var2%></td>
    <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var3%></td>
    <td width="2%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var4%></td>
    <td width="6%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var5%></td>
    <td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var6%></td>
	<td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var7%></td>
    <td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var8%></td>
  	<td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var9%></td>
    <td width="25%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var10%></td>
 </tr>
  <%
							
  		   rs2.movenext
           Loop 
 
           rs2.Close    
           Conecta.Close	
  %>
  
  
</table>
No se como hacer que al momento que el usuario haga clic se busque y muestre en la tabla lo que el selecciona por favor si alguien sabe como hacerlo le agradesco su ayuda
Que esten todos muy bien
Última edición por TonyChile; 27/03/2009 a las 15:22
  #2 (permalink)  
Antiguo 27/03/2009, 15:09
Avatar de David
Moderador
  
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años
Puntos: 839
Respuesta: function buscar()
Es que, lo que se ejecuta en el onclick es código Javascript, del lado del cliente. Si lo que deseas hacer es buscar en la tabla de la base de datos sin recargar la página, debes usar AJAX.

Si no hay problema en recargar la página, puedes usar un formulario, y cambiar tu botón buscar a un botón submit que envíe el formulario. Luego, cuando procesas ese formulario filtras los datos con una consulta SQL.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #3 (permalink)  
Antiguo 27/03/2009, 15:34
Avatar de TonyChile  
Fecha de Ingreso: marzo-2009
Ubicación: Maipú, Santiago
Mensajes: 422
Antigüedad: 16 años, 1 mes
Puntos: 7
Respuesta: function buscar()
Gracias David el Grande por la rapida respuesta

Si lo que quiero es que se ejecute al lado del cliente y si la pagina debe recargar que lo haga. Con lo de AJAX me dejaste mariado lei recien algo y baje un manual.

Y sobre lo que dijiste del formulario

Cita:
Si no hay problema en recargar la página, puedes usar un formulario, y cambiar tu botón buscar a un botón submit que envíe el formulario. Luego, cuando procesas ese formulario filtras los datos con una consulta SQL.
Ya cambie el button por submit

Quede un poco colgado
Me podrias dar un ejemplo o decirme donde encuentro uno
por favor y disculpa las molestias
  #4 (permalink)  
Antiguo 14/04/2009, 15:08
Avatar de TonyChile  
Fecha de Ingreso: marzo-2009
Ubicación: Maipú, Santiago
Mensajes: 422
Antigüedad: 16 años, 1 mes
Puntos: 7
Respuesta: function buscar()
Hola yo aun sin poder hacer esto.

Paso a mostrar lo que tengo y explicar lo que necesito por si aun no se entiende.

Este la conexion con la base de datos sql server 2000

Código asp: 
Ver original
  1. <script language="vbscript" runat="server">
  2.      
  3.             dim conecta, rs4, reg7, reg8, reg9, sql5, sql6 
  4.             
  5.             set conecta=server.createobject("ADODB.connection")
  6.             cadenaconeccion="Provider=MSDASQL;Data Source=prueba"
  7.             conecta.connectionstring=cadenaconeccion
  8.             conecta.open
  9.  
  10. set reg7=server.createobject("ADODB.recordset")
  11.       sql5="select distinct EMPRESA from ID_USUARIO ORDER BY EMPRESA ASC "
  12.       reg7.activeconnection=conecta
  13.       reg7.open sql5
  14.  
  15. set reg8=server.createobject("ADODB.recordset")
  16.      sql5="select distinct PERFIL from ID_USUARIO ORDER BY PERFIL ASC"
  17.      reg8.activeconnection=conecta
  18.      reg8.open sql5
  19.      
  20. set reg9=server.createobject("ADODB.recordset")
  21.      sql5="select distinct USUARIO from ID_USUARIO ORDER BY USUARIO ASC"
  22.      reg9.activeconnection=conecta
  23.      reg9.open sql5
  24.      
  25. </script>

el Body

Código asp: 
Ver original
  1. <body>
  2. <form name="DD"  method="post" action="">
  3. <table name="tabla" width="250px" class="fondo_table5">
  4.     <tr><td colspan=6 class="titulo"></td></tr>
  5.     <tr><td colspan="6" height=4></td></tr>
  6.   
  7.    <tr>
  8.             <td width="20%" nowrap class="text_black_bold_12 Estilo3">&nbsp;<strong>Empresa</strong></td>
  9. <td colspan="3"> 
  10.               <select name="DDempresa" id="EMPRESA" class="combo">
  11.               <option value="0"selected>Seleccionar</option>
  12.               <%
  13.               While (not reg7.EOF)
  14.               %>
  15.               <option value="<%=(reg7.Fields.Item("EMPRESA").Value)%>"><%=(reg7.Fields.Item("EMPRESA").Value)%></option>
  16.               <%
  17.               reg7.Movenext
  18.               wend 
  19.               %>
  20.               </select>       
  21.             </td>             
  22.   </tr>
  23.  
  24.   <tr>
  25.             <td width="20%" nowrap class="text_black_bold_12 Estilo3">&nbsp;<strong>Perfil</strong>&nbsp;</td>
  26. <td colspan="3"> 
  27.               <select name="DDperfil" id="PERFIL" class="combo">
  28.               <option value="0"selected>Seleccionar</option>
  29.               <%
  30.               While (not reg8.EOF)
  31.               %>
  32.               <option value="<%=(reg8.Fields.Item("PERFIL").Value)%>"><%=(reg8.Fields.Item("PERFIL").Value)%></option>
  33.               <%
  34.               reg8.Movenext
  35.               wend
  36.               %>
  37.               </select>       
  38.              </td>            
  39.   </tr>
  40.   
  41.   <tr>
  42.             <td width="20%" nowrap class="text_black_bold_12 Estilo3">&nbsp;<strong>Usuario</strong>&nbsp;</td>
  43. <td colspan="3"> 
  44.               <select name="DDusuario" id="USUARIO" class="combo">
  45.               <option value="0"selected>Seleccionar</option>
  46.               <%
  47.               While (not reg9.EOF)
  48.               %>
  49.               <option value="<%=(reg9.Fields.Item("USUARIO").Value)%>"><%=(reg9.Fields.Item("USUARIO").Value)%></option>
  50.               <%
  51.               reg9.Movenext
  52.               wend
  53.               %>
  54.               </select>       
  55.              </td>            
  56.   </tr>
  57.  
  58.   <tr><td colspan="6" width="100%">&nbsp;</td></tr>
  59.     <tr>
  60.         <td colspan="6" align="center">
  61.                <input type="button" name="DDbuscar" value="Buscar" class="botton80x23" onClick="buscar()">&nbsp;&nbsp;&nbsp;
  62.                            <input type="button" name="DDlimpiar" value="Limpiar" class="botton80x23" onClick="(DDempresa.value = '0',  DDperfil.value = '0',  DDusuario.value = '0')">      
  63.         </td>
  64.     </tr>
  65.     <tr><td colspan="6">&nbsp;</td></tr>
  66. </table>
  67. <%
  68.  
  69. SQL6= "SELECT  NUM_CHIP, NUM_SERIE, MOVIL, EQUIPO, APELLIDOP, NOMBRES, LIM_MINUTOS, LIM_SME, NOTAS from ID_USUARIO"
  70. 'esto es por si alguno de los datos es nulo o vacio no de problemas
  71.   if NUM_CHIP="" then
  72.       var1=""
  73.   end if
  74.   
  75.   if NUM_SERIE="" then
  76.       var2=""
  77.   end if
  78.   
  79.   if MOVIL="" then
  80.       var3=""
  81.   end if
  82.   
  83.   if EQUIPO="" then
  84.       var4=""
  85.   end if
  86.   
  87.   if APELLIDOP="" then
  88.       var5=""
  89.   end if
  90.     
  91.   if NOMBRES="" then
  92.       var6=""
  93.   end if
  94.   
  95.   if LIM_MINUTOS="" then    
  96.       var7=""
  97.   end if
  98.   
  99.   if LIM_SME="" then
  100.       var8=""
  101.   end if
  102.   
  103.   if NOTAS="" then
  104.      var9=""
  105.   end if                                  
  106.  
  107. set rs4= server.CreateObject("ADODB.Recordset")
  108.                 rs4.Cursortype=adOpenStatic 
  109.                 rs4.CursorLocation=3
  110.                 rs4.open sql6, conecta
  111.                 rs4.pagesize =1000000
  112.                 tampagina=rs4.pagesize
  113.                 paginastotales=rs4.pagecount
  114.                 
  115. %>  
  116.        
  117. <table align="center" width="250" border="0">
  118.   <tr>
  119.    <td width="240" align="center" class="texto_negro Estilo1 Estilo3"><span class="Estilo2">Cantidad de Registros:</span> <%=RS4.RecordCount%></td>
  120.   </tr>
  121. </table>
  122.                    
  123. <p>&nbsp;</p>
  124. <table width="1056" height="35" border="1" align="center" cellpadding = 2 cellspacing = 0 bordercolor="#000000" class="dropmenusimple"  style="BORDER-COLLAPSE: collapse">
  125.   <tr bordercolor="#000000">
  126.     <td width="126" height="35" nowrap class="titulo_table6"><div align="center"><strong>N&uacute;mero De Chip</strong></div></td>
  127.     <td width="126" height="35" nowrap class="titulo_table6"><div align="center"><strong>N&uacute;mero De Serie</strong></div></td>
  128.     <td width="80"  height="35" nowrap class="titulo_table6"><div align="center"><strong>N&uacute;mero Celular</strong></div></td>
  129.     <td width="97"  height="35" nowrap class="titulo_table6"><div align="center"><strong>Equipo</strong></div></td>
  130.     <td width="100" height="35" nowrap class="titulo_table6"><div align="center"><strong>Apellido</strong></div></td>
  131.     <td width="150" height="35" nowrap class="titulo_table6"><div align="center"><strong>Nombres</strong></div></td>
  132.     <td width="64"  height="35" nowrap class="titulo_table6"><div align="center"><strong>Lim-Minutos</strong></div></td>
  133.     <td width="64"  height="35" nowrap class="titulo_table6"><div align="center"><strong>Lim-Sme</strong></div></td>
  134.     <td width="300" height="35" nowrap class="titulo_table6"><div align="center"><strong>Notas</strong></div></td>
  135.   </tr>
  136.  <%
  137.    Do While Not rs4.EOF 
  138.       var1 = rs4(0)
  139.       var2 = rs4(1)
  140.       var3 = rs4(2)
  141.       var4 = rs4(3)
  142.       var5 = rs4(4)
  143.       var6 = rs4(5)
  144.       var7 = rs4(6)
  145.       var8 = rs4(7)
  146.       var9 = rs4(8)
  147.   
  148. %>   
  149.   <tr align=right valign="middle">
  150.       <td width="10%" height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var1%></td>
  151.       <td width="10%" height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var2%></td>
  152.       <td width="9%"  height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var3%></td>
  153.       <td width="10%" height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var4%></td>
  154.       <td width="10%" height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var5%></td>
  155.       <td width="15%" height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var6%></td>
  156.       <td width="8%"  height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var7%></td>
  157.       <td width="8%"  height="35" align="center" nowrap bordercolor="#000000" class="texto_negro"><%=var8%></td>
  158.       <td width="25%" height="35" align="left"   nowrap bordercolor="#000000" class="texto_negro"><%=var9%></td>
  159.  </tr>  
  160. <%
  161.                             
  162.            rs4.movenext
  163.            Loop 
  164.  
  165.            rs4.Close    
  166.            Conecta.Close    
  167. %>
  168. </table>

Entonces como puedo al hacer clic en boton buscar si ya se seleccionaron los datos de las combo aunque sea 1, 2 o los 3 de ellos se muestre el resultado en la tabla que se encuentra abajo en la misma pagina

En un principio la tabla ya se carga con todos los datos al entrar en la pagina la seleccion es para poder acceder a una informacion de forma mas personalizada

Espero que me puedan ayudar ya que esto me a dado un gran dolor de cabeza
  #5 (permalink)  
Antiguo 14/04/2009, 16:17
Avatar de JuanRAPerez
Colaborador
  
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Respuesta: function buscar()
Cita:
Iniciado por TonyChile Ver Mensaje
En un principio la tabla ya se carga con todos los datos al entrar en la pagina la seleccion es para poder acceder a una informacion de forma mas personalizada
la verdad no leí tu código, pero por lo que creo, es que cuando envías los valores con el botón no recoges la variable y por eso no te carga ningún filtro porque se siguen ejecutando tus mimas sql

lógica a usar:
+ al dar clic envías los filtros
+ recibes las variables, si vienen con información cambias tus sql's
+ ejecutas tus sql's con los nuevos filtros de las 'cosas que enviastes en el formulario'
+ fin

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 15:28.