[Resolvido] Deletar registros pela data

[Vinicius Ianni 189]

Boa noite !

 

Estou tentando apagar os registros que tenham data inferior a data de hoje.

 

Testei primeiro com este código:

CODE

set conn = createobject("adodb.connection")

conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./database/duclassified.mdb") &""

set rs = createobject("adodb.recordset")

'set rs.activeconnection = conn

sql = "delete * from ADS where ADS_EXPIRED < datevalue('"&now()&"')"

Set rs = conn.Execute(stql)

 

dá este erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

/redonda/dele.asp, line 8

 

Pesquisando aqui no forum, achei este código:

 

CODE

dim apagar

 

Set Apagar = Server.CreateObject("ADODB.Recordset")

Apagar.ActiveConnection = MM_connDUclassified_STRING

Apagar.Source = "delete * from ADS where ADS_EXPIRED < datevalue('"&now()&"')"

Apagar.CursorType = 0

apagar.CursorLocation = 2

apagar.LockType = 1

apagar.Open()

 

apagar.Close()

Set apagar = Nothing

 

Mas dá este erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/redonda/dele.asp, line 18

 

Onde posso estar errando ?

Lembrando que tenho um registro para teste com a data de 14/6/2008

 

Provavelmente é um erro bobo, mas não o vejo.

 

Abraços,

Vinicius Ianni

[Vinicius Ianni 189]

Era o erro mais idiota que já vi....

 

tinha um S no ADS_EXPIRED...

 

Desculpa pessoal,

Moderador, se puder apagar esse tópico, agradeço.

 

Preciso dormir....

 

Abraços,

Vinicius Ianni

[hargon 64]

Bacana ter resolvido sozinho. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif