VERIFICAR UMA INFOMACAO NO BD A CADA X MINUTOS

EMANUEL 08/06/2004 11:41:37
#28730
Pessoal,
como fazer uma rotina para checar um determinada informação no meu BD a cada 20 minutos por exemplo?
Exemplo:
Hoje, quero saber quais os registros inseridos em uma tabela nesta data, e ai, ficar verificando e me mostrando a cada 20 minutos.

melhor ainda se eu configurar para que o usuário defina este tempo...

obrigado
Mano
USUARIO.EXCLUIDOS 08/06/2004 11:43:19
#28732 Resposta escolhida
Coloque um timer e faça a consulta dentro do timer.

Seria isso que tu queria saber?
USUARIO.EXCLUIDOS 08/06/2004 11:49:21
#28739
Assim defina um timer com valor 1000 ou maior (um segundo)

e coloque o código abaixo
Sub Timer_Timer()
static T as single
if timer < t+20 or t = 0 then
t = timer
realize a consulta
end if
end sub

Onde coloquei 20 será o tempo em segundos.
USUARIO.EXCLUIDOS 08/06/2004 12:18:35
#28749
faça

20 X 60 = 1200

Coloque 1200
USUARIO.EXCLUIDOS 08/06/2004 12:45:49
#28762
Mude para

Private Sub Timer1_Timer()
Static T As Single
If Timer < T + 1200 Then
T = Timer
Set itemlst = ListView1.ListItems.Add
itemlst = Format(Now, "DD/MM/YYYY HH:MM")
End If

Ao inves de usar a função timer voce usou Timer1
USUARIO.EXCLUIDOS 08/06/2004 13:01:13
#28769
Desculpa mas você retirou um item do meu código faça assim

Private Sub Timer1_Timer()
Static T As Single
If Timer < T + 5 or t = 0 Then
T = Timer
Set itemlst = ListView1.ListItems.Add
itemlst = Format(Now, "DD/MM/YYYY HH:MM")
End If
USUARIO.EXCLUIDOS 08/06/2004 13:36:00
#28781
JOBASAINT o nosso colega precisava realizar uma consulta no banco de dados num intervalo programado.

20 minutos foi um exemplo.

E não provocar uma pausa no processamento
Tópico encerrado , respostas não são mais permitidas
Voltar