USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Carregando BD mostrando uma barra de progressão
Postada em 27/1/2003 por Ethan Hunt            
Crie um formulário com um progressbar, CommandButton e com um Data, onde vc pode clocar o bd que quiser(teste com o Biblio por exemplo, pois é bem grande e permitirá que tenha uma noção exata do que esta acontecendo), e coloque o código abaixo, é simples mais bastante útil, quando se trata de grandes quantidades de informação, o usário não ficará pensando que seu sistema travou!

Private Sub Command1_Click()
On Error GoTo Final
ProgressBar1.Visible = True
ProgressBar1.Min = 0
Data1.Recordset.MoveLast
ProgressBar1.Max = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF
    ProgressBar1.Value = ProgressBar1.Value + 1
    Me.Caption = "Carregando registro " & ProgressBar1.Value & " de " & ProgressBar1.Max
Loop

Final:
    ProgressBar1.Visible = False
    Exit Sub
    
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página