Как вывести время выполнения запроса к БД в ms access?

Question

[Ринат Хайсман]

У меня есть форма, кнопки и поля которой назначены на выполнение процедур. (наполнение БД случайными числами)
Обновил код (от 07.10.17):

Option Compare Database

Sub randomDigits(tableName, fldOt, fldDo, n)
    Start_time = Time()
    Dim i
    Randomize
    With CurrentDb.OpenRecordset("select * from [" & tableName & "]")
        For i = 1 To n
            .AddNew<img src="https://habrastorage.org/webt/59/d8/87/59d887b59a714490382428.png" alt="image"/>
            !number = Rnd(i) * (fldDo - fldOt) + fldOt
            .update
        Next
    End With
    End_time = Time()
End Sub

Sub button_Click()
    Dim mTime As Date
    Dim mTotalSec As Long
    n = Number19()
    fldOt = number_ot()
    fldDo = number_do()
    mTime = Now()
    Call randomDigits("table", number_ot, number_do, n)
    mTotalSec = DateDiff("s", mTime, Now)
    txtTotalSec = mTotalSec
End Sub

Как можно подсчитать не время выполнения этого кода, а именно время от начала до конца построения нужного кол-ва записей в базе данных?
В результате мне нужно сравнить время выполнения запросов к бд при разном кол-ве записей.

UPD:
Обновил код
txtTotalSec - имя поля
button - имя кнопки

Скриншоты:

Форма в режиме конструктора

txtTotalSec в имени поля

Вкладка данные

Архив с файлом работы:

Архив

https://yadi.sk/d/uW4O47p03NYSNo

Comments

[Артём Каретников]

Непонятен вопрос. Вон же есть Start_time, End_time.

Не очень понятно еще, зачем при такой схеме делать выборку из таблицы, а не просто передать числом нужное количество записей.

[Ринат Хайсман]

Артём Каретников, я нуб в аксе, сделал по тому, что нагуглил. Start_time, End_time. они показывают только время работы самого скрипта, а нужно время генерация от начала до конца... вроде банальная задача, но решение найти не могу.( Если нужно, могу сбросить проект в архиве.

Answer 1

[Артём Каретников]

вот процедура, отвечающая за заполнение данных
Sub randomDigits(tableName, fldOt, fldDo, n)
Start_time = Time() ' время, когда она была запущена
Dim i ' тут бы я добавил as long
Randomize
With CurrentDb.OpenRecordset("select * from [" & tableName & "]") ' это собственно запрос. Выбираются данные из таблицы, причем все. Зачем так сделано - неясно.
For i = 1 To n ' а вот тут добавляются данные от 1 до n
.AddNew ' добавлено
!number = Rnd(i) * (fldDo - fldOt) + fldOt ' установлено значение числа.
.update ' сохранены записи
Next ' пошли на следующую строку
End With
End_time = Time() ' сохранили в переменную время конца выполнения
End Sub

' вот это вызов процедуры генерации. Имеет смысл добавить необязательно слово Call - так понятней, что это именно процедура
Call randomDigits ("table", number_ot, number_do, n)

debug.pring now()
Call randomDigits ("table", number_ot, number_do, n)
debug.pring now()
Вот так будет полное время выполнения процедуры генерации.

Comments

[Ринат Хайсман]

Спасибо, Артем. Только как вывести значение переменной "Time" в поле формы?

И насчет debug.print now не очень понял, нажимаю Ctrl + G, вставляю туда код и все что он делает, это выводит текущую дату и время....

[Артём Каретников]

Ринат Хайсман,

Вместо слешей // должна быть тильда, если захотите сохранить комментарии

Sub button_Click() // процедура для считывания данных из соответствующих полей формы
Dim mTime As Date // переменная под время
Dim mTotalSec As Long // переменная под отображение секунд

n = Number19()
fldOt = number_ot()
fldDo = number_do()
mTime = Now() // взяли текущее время
randomDigits "table", number_ot, number_do, n
mTotalSec = DateDiff("s", mTime, Now) // вычислили разницу в секундах
txtTotalSec = mTotalSec // показали разницу в секундах в поле txtTotalSec
End Sub

Край как не люблю давать сразу рыбу, а не удочку. Но чтоб два раза не вставать - вместо Select * from, если нет нужды тащить данные на клиента, можно использовать просто "ИмяТаблицы"

[Ринат Хайсман]

Артём Каретников, ничего не вышло, поле возвращает моментально 0, в то время, когда база продолжает наполняться. Не знаю, что не так.(

[Артём Каретников]

"Золушка, чудес не бывает". Показывайте код.

[Ринат Хайсман]

Артём Каретников, добавил изменения (выложил код, прикрепил скрины и обновил код) в вопрос.

[Артём Каретников]

Нормально работает все, как и должно было. Причина 0 в поле в том, что задаете слишком маленькое число строк, вот оно влет и уходит. Для ощутимого объема нужно взять 5-6 сотен тысяч или миллион - будет заметно. У меня миллион добавлялся за 30 секунд, что и было отображено в поле.

[Артём Каретников]

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

[Ринат Хайсман]

Артём Каретников, делаю лабу, на 30-60-120-240-480к записей так создать и замерить время генерации каждой выборки, в милисекундах, если меньше секунды на это уходит...

По-хорошему, еще надо добавить обработку значений в полях, чтобы там Null не было. Иначе все добавленные строки будут с Null, т.е. пустые. — значения в строки добавляются, в этом плане все хорошо

[Артём Каретников]

Никак. Минимальная единица времени, с которой работает DateDiff - секунда. Поэтому только брать вставку кучи записей, потом делить количество записей на секунды.