Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите как поступить с таймером? / 5 сообщений из 5, страница 1 из 1
01.10.2004, 16:10:41
    #32720373
VoDA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как поступить с таймером?
Добрый день/вечер/утро/ночь (нужное подчеркнуть)!

Проблема такова:
Требуется узнать на каких компьютерах и с какой скоростью работает БД.
Пытаюсь реализовать - сделал три многотабличных запроса, возвращающих большое количество данных.
И хочу засечь время, требуемое системе на получение ответа.

start = Time()
OpenRecordset(" QUERY ")
end = Time()
querytime = start - end

В ответе получаю данные в секундах, а хочется в долях.
Пробовал через таймер (стандартный в форме), но на время запроса он отключается .
пробовал перегонять в Long, но там что-то странное или просто кратность Time() - секунда и больше от него ждать не следует...

Может кто знает как можно это реализовать.
...
Рейтинг: 0 / 0
01.10.2004, 18:09:59
    #32720690
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как поступить с таймером?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 ' публичный модуль 
Option Explicit
Public Declare Function timeGetTime Lib "winmm.dll" () As Long


 ' где-нибудь в коде 
Dim i As Long

i = timeGetTime 
....
какие-то действия
....
MsgBox "Операция выполнялась - " & timeGetTime-i & "  мсек."

winAPI функция timeGetTime возвращает время в миллисек. от начала работы компьютера.
...
Рейтинг: 0 / 0
01.10.2004, 18:24:32
    #32720718
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как поступить с таймером?
А еще есть функция Timer (вместо Time).
...
Рейтинг: 0 / 0
01.10.2004, 19:19:14
    #32720806
VoDA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как поступить с таймером?
SergeySV
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 ' публичный модуль 
Option Explicit
Public Declare Function timeGetTime Lib "winmm.dll" () As Long


 ' где-нибудь в коде 
Dim i As Long

i = timeGetTime 
....
какие-то действия
....
MsgBox "Операция выполнялась - " & timeGetTime-i & "  мсек."

winAPI функция timeGetTime возвращает время в миллисек. от начала работы компьютера.

Спасибо! Больному стало легче.
...
Рейтинг: 0 / 0
01.10.2004, 19:22:16
    #32720808
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как поступить с таймером?
VoDAДобрый день/вечер/утро/ночь (нужное подчеркнуть)!

...

<OFF>
Доброе время суток :)

так будет всем приятно

ИМХО - конечно :)
<END OFF>
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите как поступить с таймером? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]