Гео, не, это я плохо спать буду :) В смысле мало, но рассказать ближнему то, что сам знаешь – дело хорошее, ибо откликнется тем же (надеюсь)…
Итак…
Во-первых…
>Set rs = CurrentDb.OpenRecordset("Select * from t where t.fio=""Иванов"";", , dbRunAsync)
>' На самом деле последний аргумент не нужен
и мотивация:
>CurrentDb.OpenRecordet без этого аргумента работает асинхронно, до тех пор, пока не начнешь обращаться еще к неподготовленным записям рекордсета. А-ля форма, которая показала первую запись, еще не дождавшись последней...
Здрасте на куй я ваша дядя (C) ЛП
По умолчанию все запросы и при запуске из любой библиотеки (дао/адо/акссес(ДуЦМД)) выполняются синхронно. "А-ля форма, которая показала первую запись, еще не дождавшись последней" реализована не через асинхронное выполнение. Т.е. открытие рекордсета из кода с умолчательными параметрами не есть открытие рекордсета формой с прописанными параметрами асинхронного режима.
Более того, часть запроса запущенного формой выполняется в синхронном режиме, а часть в асинхронном. Эдо дело рулится параметрами, грубо говоря, AsyncExecute, FetchCacheSize и AsyncFetch. "Грубо говоря" потому что в каждой библиотеке названия свои… AsyncExecute отвечает за то, что запрос должен выполняться асинхронно; AsyncFetch говорит что часть запроса должна быть выполнена синхронно, а оставшаяся часть – асинхронно; ну и FetchCacheSize характеризует какое количество записей должно быть возвращено запросом в синхронном режиме, при этом все остальные записи возвращаются уже в асинхронном.
Так вот формы при открытии указывают следующие параметры: AsyncExecute = True, FetchCacheSize = 500 и AsyncFetch = True. В результате мы видим, что в момент возникновения OnOpen формы (самое первое событие) рекордсет содержит 501 запись (количество возвращенных записей в синхронном режиме). Все остальные записи будут возвращаться в асинхронном, а значит в момент, когда более приоритетные потоки (в нашем случае поток, выполняющий VBA код) простаивают. Желаешь убедиться? Сделай так:
1) Создай ленточную форму на основе длинющей-длинющей таблички;
2) в заголовке формы создай текстовое (свободное) поле;
3) установи таймер в одну секунду
4) по таймеру пихай в текстовое поле количество записей в рекордсете, подключенном в форме;
5) убедись, что загрузка записей производится…
А теперь пункты 1 и 2 те же, а вот остальные следующие:
3) установи таймер в 1 мс;
4) в процедуре таймера запусти бесконечный цикл (Do … Loop без параметров) внутри которого читай количество записей в рекордсете и выводи в текст бокс.
Убедись, что загрузка записей НЕ производится…
И в том и в другом варианте на всякий случай делай репаинт...
На счет твоего теста… Вот не знаю как там DAO обходится с асинхронностью (но точно по умолчанию режим синхронный), но вот как ADO обходится – знаю, поэтому буду судить о твоем тесте по "правилам" ADO.
Выполнение "Последовательно" – ну здесь всё просто.
Выполнение "Параллельно" – всё не так! Даже если ЛП не прав на счет асинхронности только для ОдиБиСи и предположим, что запрос выполнялся всё ж таки асинхронно, то вот что произошло:
1.
2.
3.
4.
5.
6.
Поток VBA|Поток DAO|Поток Jet
запуск запроса
принимаем запрос, располагаем в потоке Jet с МЕНЬШИМ приоритетом
цикл (это поток с большим приоритетом, поэтому Jet-овский отдыхает)
rs.MoveLast – заставляет остановить поток VBA и передать выполнять поток Jet
выполнение запроса
конец
Т.е. переключений здесь – минимум! Это последовательное выполнение, а не параллельное. В контексте Access (даже не Виндоус, а именно Аксесс) асинхронное выполнение – это не параллельное выполнение, а выполнение "в промежутках". И пример с 11-ой секундой был направлен на "развеивание" мифа о ускорении программы при разделении выполняемого кода на два потока – однопроцессорная машина эти самые два потока выполнит не за 10 сек, а за 11, при этом 1 секунда уйдет на переключения между потоками.
Кстати, если будешь выполнять описанный мной тест с формами, то проделай следующее – открой сразу две копии одного и того же мдбэшки, расположи рядом (чтобы было видно и то и другое), запусти 1-й вариант теста и попереключайся между этими задачами. О результатах расскажешь :)
Ну как мог…
з.ы. щаз увидел продолжение дискуссии, но уже завтра... усе завтра... в смысле сегодня, но завтра :)
