Eliminar registro automaticamente por fecha

Blashak · #1 (**permalink**) 12/12/2007, 06:53

Buenasss
Estoy intentando borrar los registros que ya lleven mas de 30 dias y me aparece el siguiente error.

Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/web/fecha3.asp, line 23

mi codigo:
<%
dim sqm
fecha_tope=dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
set resultado = oConn.execute("select * from anuncio")
do while not resultado.eof
ams=resultado("Fecha")

if ams < fecha_tope then

id=resultado("ID")
sqm = ("delete from anuncio where id='"&ID&"'")

oConn.execute(sqm)
response.write(ams)
'response.write(id)

else
response.write("sd")
'response.write(id)
end if

resultado.movenext
loop

%>

Espero sus respuesta.. muchas gracias

Kelpie · #2 (**permalink**) 12/12/2007, 07:40

Supongo que habrás probado sin las comillas, tal que así:

sqm = "delete from anuncio where id=" & id

JuanRAPerez · #3 (**permalink**) 12/12/2007, 09:04

suip parece ser eso

una pregunta en lugar de leer toda la tabla
y luego recorrerla porque no haces mejor un delete de un solo?????

tu haces un

set resultado = oConn.execute("select * from anuncio")

luego vas recorriendo tota tu tabla hasta encontar los que tenes que eliminar eso hace que tu consulta sea mas pesada - digo -

porque mejor no hacer un

Cita:

delete from anuncio where tu_campo_fecha > = fecha_tope

suerte

Blashak · #4 (**permalink**) 12/12/2007, 09:13

JuanRAPerez probe con la linea esa q me pusiste y me tira este error.

Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'Fecha > = '10/12/2007''.
/web/fecha3.asp, line 24

mi codigo modificado segun vos..

<%
dim sqm
fecha_tope=dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
set resultado = oConn.execute("select * from anuncio")
do while not resultado.eof
ams=resultado("Fecha")

if ams < fecha_tope then

id=resultado("ID")
sqm = ("delete from anuncio where Fecha > = '"&fecha_tope&"'")

oConn.execute(sqm)
response.write(ams)
'response.write(id)

else
response.write("sd")
'response.write(id)
end if

resultado.movenext
loop

%>

Shiryu_Libra · #5 (**permalink**) 12/12/2007, 10:58

las fechas van entre ##
esto no

Cita:

sqm = ("delete from anuncio where Fecha > = '"&fecha_tope&"'")

prueba esto

Cita:

sqm = ("delete from anuncio where Fecha > = #"&fecha_tope&"#")

Blashak · #6 (**permalink**) 12/12/2007, 11:16

vale Shiryu_Libra era lo de los # y aprte le faltaba esto ' total qda asi..
codigo
sqm = ("delete from anuncio where 'Fecha > = #"&fecha_tope&"#'")
pero ahora el problema es que no me borra las fechas q sean menores a fecha_tope sino que me borra todas.
si me podrias ayudar te lo agradeceria
saludos

Shiryu_Libra · #7 (**permalink**) 12/12/2007, 15:16

ok, aclaremos algo antes de continuar

cual es el rango de fechas a eliminar?, desde hoy y 30 dias antes?? o como???

ya que puedes utilizar "between" "and"

Shiryu_Libra · #8 (**permalink**) 12/12/2007, 15:38

segun a lo que lei, algo de esta naturaleza deberia ser lo que estas solicitando
desde hoy a 30 dias antes, eliminalo

Cita:

sqm = "delete from anuncio where Fecha between #" & fecha_tope & "# and #" & date() & "#"

Blashak · #9 (**permalink**) 13/12/2007, 02:50

buenas Shiryu_Libra probe lo ultimo que me dijiste y me aparece este error.

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not delete from specified tables.
/web/fecha3.asp, line 27

mi codigo

<%
dim sqm
fecha_tope=dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
set resultado = oConn.execute("select * from anuncio")
do while not resultado.eof
ams=resultado("Fecha")

if ams < fecha_tope then

id=resultado("ID")
sqm = ("delete from anuncio where Fecha between #" & fecha_tope & "# and #" & date() & "#")

oConn.execute(sqm)
response.write(ams)
'response.write(id)

else
response.write("sd")
'response.write(id)
end if

resultado.movenext
loop

con respecto a lo que me preguntaste yo quiero eliminar los registros que tengan de 30 dias para adelante. por eso le doy a fecha_tope el valor -30.

Saludos

JuanRAPerez · #10 (**permalink**) 13/12/2007, 07:48

los que quiere borrar son los que llevan 30 o mas dias en la base de datos.

por eso a la fecha de hoy le quita 30 dias

Cita:

fecha_tope=dateadd("d",-30,date())

luego tendria unidamente que borrar los que sean iguales o menores a esa fecha.
que seria como Shiryu te lo explico - con los #

Cita:

sqm = ("delete from anuncio where Fecha > = #"&fecha_tope&"#")

pruebalo asi y dinos que es lo que realmente hace

suerte

Blashak · #11 (**permalink**) 13/12/2007, 18:43

buenas JuanRAPerez probe como me dijiste y me aparece el siguiente error.

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'Fecha > = #14/11/2007#'.
/web/fecha2.asp, línea 21

JuanRAPerez · #12 (**permalink**) 14/12/2007, 09:16

ummmmmm

probalo

Cita:

<%
fecha_tope = dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"

strSQL = "delete from anuncio where fecha <= #"&Fecha_tope&"#"
set rs = oConn.Execute(strSQL)

rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>

Suerte

Blashak · #13 (**permalink**) 14/12/2007, 10:39

Ya esta JuanRAPerez muchas gracias

JuanRAPerez · #14 (**permalink**) 14/12/2007, 11:19

oki

feliz navidad jejejej