Excluir Registros

[jucacabala]

tem um banco com tres tabelas

evento: com uma chave-primaria "codigo"

objetivo: com o campo "codigo" (o mesmo valor da tabela evento)

programa: com o campo "codigo" (o mesmo valor da tabela evento)

esta tabela evento possui um campo data_evento

gostaria que quando a data atual fosse maior que a data cadastrada no BD

este registro fosse excluido

excluindo tambem os registros das tabelas "objetivo" e "programação" que contem o mesmo "codigo" da tabela eventos

meu codigo:

<%
DIM conexaodb, rsEvento, strEvento
strEvento = "select * from evento where data_evento >= #" & date() & "# "
strEvento = strEvento & " order by data_evento desc "
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>

[dark0]

bele

qual dessas partes você não sabe fazer?

Usar o delete?

Pegar as datas?

Sintaxe do delete:

Delete * from tabela WHERE campo=valor

[jucacabala]

eu gostaria que os registros fossem excluidos automaticamente.

[dark0]

você conseguiu montar o codigo?

Para eles serem excluidos, é só colocar na pagina inicial, esse comando que faz o delete.

Assim, sempre que alguém abrir a pagina, os registros vao ser excluidos

[jucacabala]

então pera ai

eu monto no meu index um

"select = Delete * from tabela WHERE campo=valor"

mas como eu faço para verificar as datas?

[dark0]

Ah bom..

O problema agora é exatamente isso ae, hehe

Eu trabalhei com datas em um delete só uma vez, pra fazer usuarios online com banco de dados, mas faz um bom tempo.

vamos tentar arranhar:

sql = "Delete * from tabela where data_evento < "& date &" "

conexao.execute(sql)

o que acontece?

[jucacabala]

erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'data_evento >= #24/2/2005# Delete * from evento where data_evento < #24/2/2005#'.

/julyana/eventos.asp, line 8

meu codigo:

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rsEvento, strEvento
strEvento = "select * from evento where data_evento >= #" & date() & "# "
strEvento = strEvento & "Delete * from evento where data_evento < #" & date() & "# "
strEvento = strEvento & " order by data_evento desc "
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>

[jucacabala]

eu coloquei este codigo no index:

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rs, str
str = "Delete * from evento where data_evento < #" & date() & "# "
call abreconexao
Set rs = conexaodb.Execute(str)
%>

deu esse erro:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas.

/tectrans/index.asp, line 6