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