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

[SOLUCIONADO] Porque no me refresca la tabla al eliminar un dato

Estas en el tema de Porque no me refresca la tabla al eliminar un dato en el foro de ASP Clásico en Foros del Web. Hola; Estoy haciendo una pagina en asp en la que tengo 3 apartados. Buscar, agregar y eliminar. Buscar todo me hace perfecto y agregar cada ...
  #1 (permalink)  
Antiguo 22/05/2013, 04:25
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 11 años, 11 meses
Puntos: 7
Porque no me refresca la tabla al eliminar un dato

Hola;

Estoy haciendo una pagina en asp en la que tengo 3 apartados. Buscar, agregar y eliminar.
Buscar todo me hace perfecto y agregar cada vez que agrego algo la tabla me la visualiza perfectamente añadiendo lo nuevo que agrego. El problema viene a la hora de eliminar que es que no me refresca la tabla quitando el datos que se ha eliminado. Cuando le doy a eliminar elimina perfectamente de la base de datos pero me pasa lo que he comentado.

¿Alguien me puede echar una mano?
__________________
Gracias por todo;

Un saludo
  #2 (permalink)  
Antiguo 22/05/2013, 04:30
Avatar de Malenko
Moderador
 
Fecha de Ingreso: enero-2008
Mensajes: 5.323
Antigüedad: 16 años, 2 meses
Puntos: 606
Respuesta: Porque no me refresca la tabla al eliminar un dato

Puedes poner como generas la tabla? Que mecanismo estas usando (aunque no te funcione) para hacer el refresco?
__________________
Aviso: No se resuelven dudas por MP!
  #3 (permalink)  
Antiguo 22/05/2013, 04:43
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 11 años, 11 meses
Puntos: 7
Respuesta: Porque no me refresca la tabla al eliminar un dato

La tabla la creo así:

Código ASP:
Ver original
  1. <form action="referencias.asp" method = "post" id="form3" name="borrar">
  2.     <table border="1">
  3.     <%if request.Form("valortext2")<>"" then %>
  4.        <%valortext = request.Form("valortext2")%>
  5.     <%end if%>
  6.     <%If valortext <> "" then%>
  7.         tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valortext&"'", conn%>
  8.         <%while not (tablabase.eof)%>
  9.         <%Dim existe
  10.         Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  11.         existe = tablabase("n_pedido")%>
  12.         <%tablabase.moveNext%>
  13.         <%wend%>
  14.             <%tablabase.Close%>
  15.             <%if existe = "1" then%>
  16.         <%tablabase.open "select id as id from tablabase where n_pedido ='"&valortext&"'", conn%>
  17.             <%while not (tablabase.eof)%>
  18.             <%Dim id_pedido
  19.             Session(tablabase("id")) = tablabase("id").value
  20.             id_pedido = tablabase("id")%>
  21.             <%tablabase.moveNext%>
  22.             <%wend%>
  23.             <%tablabase.Close%>
  24.             <%if id_pedido<> "" then%>
  25.             <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido&"%' order by id_pedidoHijo", conn%>
  26.             <%while not (tablabase.eof)%>
  27.                <tr align="left">
  28.                <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
  29.                Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  30.                            Preserve pedidos(z)
  31.                pedidos(z) = tablabase("n_pedido").value
  32.                check = cstr(tablabase("id_pedidoHijo").value)%>
  33.                <td align="center">
  34.                 <input type="checkbox" name="ch" value="<%=check%>">
  35.                </td>
  36.                <td align="left">                                           
  37.                 <%response.write pedidos(z)%>
  38.                </td>                               
  39.                <%i = i + 1
  40.                z= z + 1
  41.                tablabase.moveNext%>
  42.                </tr>
  43.                <%wend%>
  44.                <%tablabase.Close%>
  45.                <input type="hidden" name="valortext2" id="valortext2" value ="<%=valortext%>" />
  46.            <%end if%>
  47.         <%else%>
  48.            <tr>
  49.             <%response.write "* El proyecto introducido no existe"%>
  50.            </tr>       
  51.         <%end if%>                                     
  52.        <%end If%>
  53.       <%end If%>
  54.    </table>                                        
  55.    <table align="right">
  56.     <tr>
  57.         <td>
  58.             <input type="submit" name="eliminar" value="Eliminar">
  59.             <%if Request.Form("ch").Count then%>
  60.                 <%For i = 1 To Request.Form("ch").Count%>
  61.                     <%Dim seleccionados
  62.                     seleccionados = Request.Form("ch")(i)%>
  63.                     <%tablabase.open "delete from referencias where id_pedidoHijo ='"&seleccionados&"'", conn%>
  64.                 <%Next%>
  65.                 <%if Request.Form("valortext2") <> "" then%>
  66.                     <%Dim valortext2
  67.                     valortext2 = request.Form("valortext2")%>
  68.                 <%end if%>
  69.             <%end if%>
  70.         </td>
  71.     </tr>
  72.    </table>
  73. </form>
__________________
Gracias por todo;

Un saludo
  #4 (permalink)  
Antiguo 23/05/2013, 07:51
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 11 años, 11 meses
Puntos: 7
Respuesta: Porque no me refresca la tabla al eliminar un dato

Cita:
Iniciado por Malenko Ver Mensaje
Puedes poner como generas la tabla? Que mecanismo estas usando (aunque no te funcione) para hacer el refresco?
La cosa es que elimino y en la base de datos se elimina pero no se refresca la tabla y si le vuelvo a dar al botón eliminar por segunda vez si me la refresca.

__________________
Gracias por todo;

Un saludo
  #5 (permalink)  
Antiguo 31/05/2013, 04:39
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 11 años, 11 meses
Puntos: 7
Respuesta: Porque no me refresca la tabla al eliminar un dato

Ya lo he solucionado.

Lo que ha echo ha sido cuando le doy al botón eliminar que cojo el valor del checbox y el valor del hidden, he añadido una linea mas en la que hago un response.redirect a la pagina otra vez pasandole un valor. Luego a la hora de cargar la lista, si veo que me viene un valor del response.redirect, hago el select a la tabla de nuevo.

Dejo el código por si a alguien le sirve. Si hay algún problema estoy dispuesta a explicarlo.

Gracias;

Código ASP:
Ver original
  1. <form action="referencias.asp" method = "post" id="form3" name="borrar">                                   
  2.     <table border="1">
  3.         <%if request.queryString("eliminarHijo")<>"" then
  4.             Dim valorEliminarHijo
  5.             valorEliminarHijo = request.queryString("eliminarHijo")%>
  6.             <tr>
  7.                 <td colspan="3" align="center">
  8.                     <u><big><big><strong><tt>PROYECTO: <%response.write valorEliminarHijo%></tt></strong></big></big></u>
  9.                 </td>
  10.                </tr>                                           
  11.             tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valorEliminarHijo&"'", conn%>
  12.             <%while not (tablabase.eof)%>
  13.                 <%Dim existe_valorEliminarHijo
  14.                 Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  15.                 existe_valorEliminarHijo = tablabase("n_pedido")%>
  16.                 <%tablabase.moveNext%>
  17.             <%wend%>
  18.             <%tablabase.Close%>
  19.             <%if existe_valorEliminarHijo = "1" then%>
  20.                 <%tablabase.open "select id as id from tablabase where n_pedido ='"&valorEliminarHijo&"'", conn%>
  21.                 <%while not (tablabase.eof)%>
  22.                     <%Dim id_pedido_valorEliminarHijo
  23.                     Session(tablabase("id")) = tablabase("id").value
  24.                     id_pedido_valorEliminarHijo = tablabase("id")%>
  25.                     <%tablabase.moveNext%>
  26.                 <%wend%>
  27.                 <%tablabase.Close%>
  28.                 <%if id_pedido_valorEliminarHijo<> "" then%>
  29.                     <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido_valorEliminarHijo&"%' order by id_pedidoHijo", conn%>
  30.                     <%while not (tablabase.eof)%>
  31.                         <tr align="left">
  32.                             <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
  33.                             Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  34.                             Redim Preserve pedidos(z)
  35.                             pedidos(z) = tablabase("n_pedido").value
  36.                             check = cstr(tablabase("id_pedidoHijo").value)%>
  37.                             <td align="center">
  38.                                 <input type="checkbox" name="ch" value="<%=check%>">
  39.                                </td>
  40.                             <td align="left">                                          
  41.                                 <%response.write pedidos(z)%>
  42.                             </td>                              
  43.                             <%i = i + 1
  44.                             z= z + 1
  45.                             tablabase.moveNext%>
  46.                         </tr>
  47.                     <%wend%>
  48.                     <%tablabase.Close%>
  49.                     <input type="hidden" name="valortext2" id="valortext2" value ="<%=valorEliminarHijo%>" />
  50.                 <%end if%>
  51.             <%else%>
  52.             <tr>
  53.                 <%response.write "* El proyecto introducido no existe"%>
  54.             </tr>      
  55.         <%end if%>
  56.     <%end if%>
  57.     <%if request.Form("valortext2")<>"" then %>
  58.         <%valortext = request.Form("valortext2")%>                                         
  59.     <%end if%>
  60.     <%If valortext_dondeAgregar <> "" then%>
  61.         <tr>
  62.             <td colspan="3" align="center">
  63.                 <u><big><big><strong><tt>PROYECTO: <%response.write valortext_dondeAgregar%></tt></strong></big></big></u>
  64.             </td>
  65.         </tr>                                          
  66.             tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valortext_dondeAgregar&"'", conn%>
  67.             <%while not (tablabase.eof)%>
  68.                 <%Dim existe5
  69.                 Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  70.                 existe5 = tablabase("n_pedido")%>
  71.                 <%tablabase.moveNext%>
  72.             <%wend%>
  73.             <%tablabase.Close%>
  74.             <%if existe5 = "1" then%>
  75.                 <%tablabase.open "select id as id from tablabase where n_pedido ='"&valortext_dondeAgregar&"'", conn%>
  76.                 <%while not (tablabase.eof)%>
  77.                     <%Dim id_pedido5
  78.                     Session(tablabase("id")) = tablabase("id").value
  79.                     id_pedido5 = tablabase("id")%>
  80.                     <%tablabase.moveNext%>
  81.                 <%wend%>
  82.                 <%tablabase.Close%>
  83.                 <%if id_pedido5<> "" then%>
  84.                     <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido5&"%' order by id_pedidoHijo", conn%>
  85.                     <%while not (tablabase.eof)%>
  86.                         <tr align="left">
  87.                             <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
  88.                             Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  89.                             Redim Preserve pedidos(z)
  90.                             pedidos(z) = tablabase("n_pedido").value
  91.                             check = cstr(tablabase("id_pedidoHijo").value) %>  
  92.                             <td align="center">
  93.                                 <input type="checkbox" name="ch" value ="<%=check%>">
  94.                             </td>
  95.                             <td align="left">                                          
  96.                                 <%response.write pedidos(z)%>
  97.                             </td>                              
  98.                             <%i = i + 1
  99.                             z= z + 1
  100.                             tablabase.moveNext%>
  101.                         </tr>
  102.                     <%wend%>
  103.                     <%tablabase.Close%>
  104.                     <input type="hidden" name="valortext2" id="valortext2" value ="<%=valortext_dondeAgregar%>"/>
  105.                 <%end if%>
  106.             <%else%>
  107.                 <tr>
  108.                     <%response.write "*El proyecto introducido no existe" %>
  109.                 </tr>      
  110.             <%end if%>                                     
  111.         <%end If%>
  112.     </table>                                           
  113.     <table align="right">
  114.         <tr>
  115.             <td>
  116.                 <input type="submit" name="eliminar" value="Eliminar">
  117.                 <%if Request.Form("ch").Count then%>
  118.                     <%For i = 1 To Request.Form("ch").Count%>
  119.                         <%Dim seleccionados
  120.                         seleccionados = Request.Form("ch")(i)%>
  121.                         <%tablabase.open "delete from referencias where id_pedidoHijo ='"&seleccionados&"'", conn%>
  122.                     <%Next%>
  123.                 <%end if%> 
  124.                 <%if Request.Form("valortext2") <> "" then%>
  125.                     <%Dim valortext2
  126.                     valortext2 = request.Form("valortext2")
  127.                     <%Response.Redirect "referencias.asp?eliminarHijo="&valortext2%>
  128.                 <%end if%>                                         
  129.             </td>
  130.         </tr>
  131.     </table>
  132. </form>

__________________
Gracias por todo;

Un saludo

Etiquetas: asp, dato, tabla
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




La zona horaria es GMT -6. Ahora son las 06:14.