|
|
|
|
|
|
|
|
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
|
|
|
|
|
