powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите как поступить с таймером?
5 сообщений из 5, страница 1 из 1
Подскажите как поступить с таймером?
    #32720373
VoDA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день/вечер/утро/ночь (нужное подчеркнуть)!

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

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

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

Может кто знает как можно это реализовать.
...
Рейтинг: 0 / 0
Подскажите как поступить с таймером?
    #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
Подскажите как поступить с таймером?
    #32720718
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А еще есть функция Timer (вместо Time).
...
Рейтинг: 0 / 0
Подскажите как поступить с таймером?
    #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
Подскажите как поступить с таймером?
    #32720808
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VoDAДобрый день/вечер/утро/ночь (нужное подчеркнуть)!

...

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

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

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


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