Ver Mensaje Individual
  #8 (permalink)  
Antiguo 12/08/2004, 15:26
Avatar de Boxmaster
Boxmaster
 
Fecha de Ingreso: agosto-2004
Ubicación: Ahorita... frente a mi PC
Mensajes: 74
Antigüedad: 20 años, 9 meses
Puntos: 0
Saludos

Tengo un codigo ya elaborado, espero que te pueda servir.

No es una forma muy elegante, pero por lo menos funciona.



<!--Conexión a la base de datos y a la tabla Actividades -->
<% dim Ob_Conn, Ob_RS %>
<% Set Ob_Conn = Server.CreateObject("ADODB.Connection")
'Se conecta a la base de datos local. Va al directorio donde se encuentra el archivo ASP.
Ob_Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseDeDatosCamping.mdb"))
Set Ob_RS=Ob_Conn.Execute("SELECT * FROM Actividades")
%>
<!--Cuando se pulsa el boton eliminar,se llama a la pagina paginaEliminarActividades, que
eliminará las actividades seleccionadas en el checkbox-->

<form name="formCheckBoxEliminarActividad" method="get" action="paginaEliminarActividades.asp">

<TABLE BORDER=1>
<TR>
<TD></TD> <!--En esta columna ira un checkbox por cada registro-->
<TD> HORA DE INICIO </TD>
<TD> HORA DE FIN </TD>
<TD> ACTIVIDAD </TD>
<TD> LUGAR </TD>
<TD> </TD>

<% DO UNTIL Ob_RS.Eof %>

<!--Por cada elemento de la tablaActividades, se incluye un checkbox cuyo nombre será el id q tiene
su registro correspondiente en la tabla-->
<%'Variable que contiene el id del registro
dim idReg%>
<TR>
<TD><input type="checkBox" name="<%=Ob_RS("Id")%>" value="" > </TD>
<TD> <%=Ob_RS("Inicio")%> </TD>
<TD> <%=Ob_RS("Fin")%> </TD>
<TD> <%=Ob_RS("Actividad")%> </TD>
<TD> <%=Ob_RS("Lugar")%> </TD>
<%idReg=Ob_RS("Id")
<TD> <A REF="paginaModificarActividad.asp?idReg"> Modificar </A> </TD>
<%Ob_RS.MoveNext
LOOP
Ob_RS.Close
Ob_Conn.Close %>
</TABLE>

<input type="submit" name="botonEliminar" value="Eliminar">
</form>

y en el archivo "paginaEliminarActividades.asp":

<!--Procedimiento que da de baja una actividades seleccionadas por el usuario a través de unos
CheckBox-->
<% SUB bajaActividad()
<!--**Se conecta a la base de datos-->
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
' Creación de un objeto command para ejecutar comandos sobre la base de datos
Set Ob_Command=Server.CreateObject("ADODB.Command")
'Se conecta a la base de datos local
Ob_Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseDeDatosCamping.mdb"))
'Se indica al objeto command la base de datos activa, q sera sobre la q se ejecuten
'los comandos.
Ob_Command.ActiveConnection=Ob_Conn

FOR EACH var IN Request.QueryString %>
<!--Si el checkBox correspondiente a este registro, está seleccionado, se borra el registro-->
<% IF isnumeric(var) THEN
response.write "Id borrado" & var %> <BR> <%
Ob_Command.CommandText="DELETE FROM actividades WHERE Id=" & var
Ob_Command.Execute
END IF
NEXT

Ob_Conn.Close
Response.Redirect ("paginaIntroduccionActividadesDiarias.asp") 'Abro la pagina de introduccion de actividades diarias, para que se muestren los cambios

END SUB %>
<!--Fin del procedimiento bajaActividad-->


Este codigo me sirvio para eliminar registros marcados mediante un check box.


*********
Siempre debemos seguir la regla de oro...
Haz a otros lo que quieres que a ti te hagan.
(Si aclaras dudas, ten por seguro que aclararan las tuyas)
*********