Ir para conteúdo
Fórum Script Brasil
  • 0

Atualização a cada 30seg.


Leandro_Pirozzi

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...