
12/08/2004, 15:26
|
 | | | 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)
********* |