Borrar registros de BD

[haven]

tengo una página en donde me muestra todos los registros de mi Bd, le he puesto un código que me permite borrar de la base de datos los eventos que hayan excedido de una fecha, el problema es que no me los borra todos, no me permite borrar ni el Id ni la fechas, el código que utilizo es este.

Código:

  <%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&"/"&Mes&"/"&Anio

'Con esto borramos los registros que excedan de la fecha Final en 3 días
		FechaFiestas=RS("DateFinal")
		DiferenciaEntreFechafiesta = DateDiff("y", Fecha, FechaFiestas)

		if DiferenciaEntreFechafiesta<-3 then

		'RS("ID")=""
		RS("Description")=""
		RS("Event_Name")=""
		RS("Description")=""
		RS("Location")=""
		RS("Category")=""
		'RS("Date")=""
		'RS("DateFinal")=""

	'Guardamos los cambios
		'RS.Update


		end if
%>

Con esto voy borrando dato a dato
¿Alguien sabe como puedo borrar el registro completo?
un saludo

[ElAprendiz]

Que clase de borrado es ese amigo??????? de donde lo sacaste???

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[Cain]

Y no sería más fácil hacer un borrado SQL normal?
DELETE * FROM tabla WHERE condiciones_necesarias

Joe Tawers,
<font color=blue><u>Web en proceso de construcción</u>[/CODE]

[haven]

Pues sacarlo lo que se dice sacarlo, de ninguna parte, pensaba que se hacía así, de hecho si me borra ciertos campos pero no todos.
He probado con

Código:

 SQL = "DELETE FROM Events WHERE ID LIKE 7"
Set RS = Conn.Execute(SQL)

y si me borra el registro cuyo Id es 7, pero como le especifico en esta consuta que me borre los registros que excedan de la fecha final 3 días???
Puede ser algo así:

Código:

 SQL = "DELETE FROM Events WHERE ID LIKE ('%" & DiferenciaEntreFechafiesta<-3 & "%')"
Set RS = Conn.Execute(SQL)

La verdad es que no lo se, estoy haciendo pruebas y o bien me borra algunos datos, como en el ejemplo de arriba o bien me borra la tabla completa o bien me sale algún error de código del tipo:
ADODB.Recordset error '800a0cc1'

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

/navarra/noticias salvapantallas/administracion/admin/view.asp, line 319
Si le pono este código:

Código:

 <%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&"/"&Mes&"/"&Anio

'Con esto borramos los registros que excedan de la fecha Final en 3 días
		FechaFiestas=RS("DateFinal")
		DiferenciaEntreFechafiesta = DateDiff("y", Fecha, FechaFiestas)
		borrado=DiferenciaEntreFechafiesta<-3
		if DiferenciaEntreFechafiesta<-3 then

		Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open dsn

SQL = "DELETE FROM Events WHERE ID LIKE ('%" & borrado & "%')"
Set RS = Conn.Execute(SQL)


		end if
%>

seguro que estoy haciendo alguna barbaridad.
Un saludo

[ElAprendiz]

yo haria algo asi:

&lt;%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&amp;&quot;/&quot;&amp;Mes&amp;&quot;/&quot;&amp;Anio

actual=date
actual-3=DateAdd(&quot;d&quot;, -3, Actual)

Set Conn=Server.CreateObject(&quot;ADODB.Connection&qu ot;)
Conn.Open dsn

SQL = &quot;DELETE * FROM Events WHERE campoFecha&lt;&quot;&amp;actual-3&amp;&quot;&quot;
Set RS = Conn.Execute(SQL)
%&gt;

el DateAdd(&quot;d&quot;, -3, Actual) te da la fecha de hace 3 dias.

ahora te puede tirar problemas con el formato de la variable en la consulta..ya no me acuerdo como era..para fechas



espero te sirve de algo


<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[haven]

Ya esta , ya ha salido

Código:

 <%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&"/"&Mes&"/"&Anio

'Con esto borramos los registros que excedan de la fecha Final en 3 días
		FechaFiestas=RS("DateFinal")
		DiferenciaEntreFechafiesta = DateDiff("y", Fecha, FechaFiestas)

		if DiferenciaEntreFechafiesta<-3 then

borrado=RS("ID")


		Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open dsn

SQL = "DELETE FROM Events WHERE ID LIKE ('%" & borrado & "%')"
Set RS = Conn.Execute(SQL)


		end if
%>

Creo que estará así bien??
Un saludo

[ElAprendiz]

Prueba y nos cuentas


<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[haven]

En principio parecía que salía, pero me da un error:
ADODB.Recordset error '800a0cc1'

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

/navarra/noticias salvapantallas/administracion/admin/view.asp, line 310

Y en la línea 310 está este código

Código:

       <td bgcolor="#FFFFFF"><font face="Verdana, arial" size="1"><a href="edit.asp?ID=<%=RS("ID")%>&orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">Editar</a>  <a href="delete.asp?ID=<%=RS("ID")%>&orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">Borrar</a></font></td>

Lo he comprobado y es por el RS(&quot;ID&quot;), pero no sé como hacerlo, he probado de tu forma y también funciona pero me da el mismo error, parece ser que tengo una forma de escribir el código un poco rara, tal vez sea porque comenzé con esto del código por lo más dificil, y las cosas más sencillas se me escapan.
Un saludo

[haven]

Vale ahora si que funciona correctamente

Código:

 <%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&"/"&Mes&"/"&Anio

'Con esto borramos los registros que excedan de la fecha Final en 3 días
		FechaFiestas=RS("DateFinal")
		DiferenciaEntreFechafiesta = DateDiff("y", Fecha, FechaFiestas)

		if DiferenciaEntreFechafiesta<-3 then

borrado=RS("DateFinal")



'Con este ejemplo borramos el registro completo, sabiendo que Id son los que han caducado en tres días
		Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open dsn

SQL = "DELETE FROM Events WHERE DateFinal LIKE ('%" & borrado & "%')"
Set RS1 = Conn.Execute(SQL)

		end if
%>

Un saludo amigo

[haven]

Ahora solo faltaría que una vez terminado est me compactaría la base de datos. He visto este ejemplo por los foros:

Código:

 Function CompactDB(source, Destination)

If trim(source) = "" and trim(Destination) = "" Then
CompactDB = False
Else
Dim DBE
Set DBE = CreateObject("DAO.DBEngine")
DBE.CompactDatabase source, Destination
CompactDB = True
End IF
End Function

pero no me funciona, no se que poner en los campos source y destinacion o si tengo que sustituir cada palabra por la ruta donde esta la BD, he encontrado otro muy bueno que funciona muy bien, el problema es que funciona con el filesystem y mi servidor no los admite.
<a href='ir.asp?http://www.aspalliance.com/mbrink1111/compact.asp' target='_blank'>http://www.aspalliance.com/mbrink1111/co...</a>
Alguien sabe alguna otra forma??
Un saludo

[AlZuwaga]

creo que para que funcione la compactación, luego que terminás de eliminar los registros la tenés que lamar así:

Call CompactDB(&quot;NombreBD.mdb&quot;, &quot;NuevoNombreBD.mdb&quot;)