Atualização a cada 30seg.

[Leandro_Pirozzi]

Galera bom dia.

Tenho uma dúvida!!!

É possível fazer com que uma procura(Select) seja efetuado a cada 30seg, 1minuto atualizando os dados em todas as estações de trabalho?

obrigado.

Por exemplo: chamar a função abaixo a cada 30seg ou 60seg.

Function ExibeTarefas()
    Dim SQL As String
    
        Animation1.Visible = True
        Animation1.AutoPlay = True
        Animation1.Open App.Path & "\figuras\barra3.avi"
    
    SQL = "Select Equipe, Tarefa, Empresa, Contato, DataTarefa, Hora, Assessor From CONTATOS_AGENDA Where ASSESSOR = '" & Login & "' and DATATAREFA = '" & lblaniver.Caption & "' order by HORA"
   
    Set rsTarefas = New ADODB.Recordset
    rsTarefas.CursorLocation = adUseClient
    rsTarefas.Open SQL, gDB, adOpenDynamic
    
    Set Me.GridEX6.ADORecordset = rsTarefas
    
    If rsTarefas.EOF Then
        GridEX6.Visible = False
    Else
        GridEX6.Visible = True
    End If

End Function

[Leandro_Pirozzi]

Acredito que seja isso:

Adicionei um Timer

Passei o Interval para 30000

Private Sub Timer1_Timer()
    call exibetarefas
End Sub

Editado Novembro 6, 2009 por Leandro_Pirozzi