Индикатор выполнения дисплея во время обработки

While its true that you cant tell how long the query is going to take, its possible to give your user and idea of the time lapsed/remaining. You use the progress bar control from your VB IDE. You then set its 'max' property to your query recordcount. As you iterate through the records increase the progress bars 'value' property. Here's an example; ('Rs' is an ADODB recordset)

        ProgressBar1.Max = Rs.RecordCount - 1

        For P = 0 To .RecordCount - 1
           ProgressBar1.Value = P

            'some process here
            Rs.MoveNext

        Next P

Шаги получения данных из базы данных:

1. приложение отправить запрос в базу данных
2. база данных анализирует запрос и подготавливает результат
3. результат отправки базы данных назад в приложение

В большинстве случаев вы не можете сказать, сколько времени это займет, поэтому вместо индикатора выполнения подумайте о комбинации:

• указателя мыши в виде песочных часов
• «Подождите» в строке состояния
• немного анимация (ветряная мельница, вращающиеся шестерни и т. д.)