Como Saber quando Chegar Um Registro No Bd?

[Ezequiel Batista]

Bom pessoal queria saber como é que faço pra saber se há um registro no no bd por ex: um cadastro. o bd seria access

dai queria mostrar em uma pagina se houve novo cadastro a pagina é atualizada a cada 10 segundo!!

Agradeço a atenção!!

[webdeveloper]

Como no access não existem Triggers, acredito que a unica forma seria esta pagina que atualiza a cada dez segundos, checar se houveram inseções novas ou não.

[Ezequiel Batista]

mas como seria feito essa estrutura???

Agradeço a Ajuda!!

[Henderson]

não sei se entendi muito bem...

mas você pode fazer assim

armazena o ultimo cadastro numa variavel de sessão

sei lá.. armazena o valor de algum campo qe seja único, por exemplo o ID, não sei... depende de como tá seu bd!

armazena lá session("ultimocadastro") = RecordSet("campo_unico")

aí quando atualizar, você verifica se tem algum cadastro com ID maior que esse armazenado na variável de sessão

se tiver, você atualiza a variável session("ultimocadastro") com esse valor e mostra que esse é o último cadastro.

entendeu?

[Ezequiel Batista]

...

Editado Junho 1, 2007 por Ezequiel Batista

[bareta]

utilize um select top e exiba os ultimos cadastros...

sql="select top 10 * from tabela order by id desc"

se eu entendi o que quer é isto ai...

[Ezequiel Batista]

mas quando a pagina atualiza ela não informa que chegou novo cadastro!!!

a session que criei perde seu conteúdo!!

você saberia me dizer como faço essa estrutura bareta??

Obrigado

[bareta]

digamos que os cadastros vão pra tabela email e que seus campos sejam

id (autonumeração)

nome (memorando)

email (memorando)

a pessoa se cadastrou... vai gravar um reg no bd... certo

ai quando a página atualizar ...

sql="select top 10 * from email order by id desc"
set rs=conn.execute(sql)
if not rs.eof then
while not rs.eof
response.write rs("nome")&"<br>"
rs.movenext
wend
end if
rs.close
set rs=nothing

[Ezequiel Batista]

Obrigado Bareta!!

Mas mesmo assim não conseguir registrar que chegou um novo cadastro em meu bd!!!

fiz umas adaptações no seu script pro meu bd e não consegui!!

vou passa meu codigo como estava usando!

eu queria assim quando chegar um novo ele vai executar um som tipo assim "novo cadastro no bd"

segue o codigo!

<%

Dim conexao,constr,rs

set conexao = createobject("AdoDb.connection")

constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("dados.mdb")

conexao.open constr

set rs = conexao.execute("SELECT * FROM cadastros order by codigo desc")

if session("ultimo") < rs("codigo") then response.write "<bgsound src='audios/novo.wav' loop='0'>"& session("ultimo") = rs("codigo")

%>

<meta http-equiv="REFRESH" content="2;URL=novo.asp">

e esse é o novo que fiz com as alterações que você me passou!

<%

Dim conexao,constr,rs

set conexao = createobject("AdoDb.connection")

constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("dados.mdb")

conexao.open constr

set rs = conexao.execute("SELECT top 10 * FROM cadastros order by codigo desc")

%>

<%

if not rs.eof then

while not rs.eof

response.write "<bgsound src='audios/novo.wav' loop='0'>"

rs.movenext

wend

end if

rs.close

%>

<meta http-equiv="REFRESH" content="2;URL=novo.asp">

mas ai com esse executa o audio toda vez que a pagina é atualizada e sem chegar nenhum cadastro novo!!

Editado Junho 1, 2007 por Ezequiel Batista

[bareta]

hauihauihiahihauaia.... você não entendeu.. o que eu disse...

não disse em momento algum que usando select top ia fazer o que tu queria...

o top vai pegar x registros do banco...

agora se quer gerar avisos a kada novo cadastro... o negocio é o seguinte...

adicione um campo chamado alertado (tipo sim/não)...

ai faz um select nessa tabela e busca o que não ta marcado.. e emite o numero de cadastros... depois atualiza a tabela marcando esses campos..