VladimirKrУважающий ВсехВасVladimirKrIFKА зачем закрывать рекордсет после присваивания его свойству формы Recordset?
Да вообщем-то незачем. Это все Гетц. :)
А так, сборщик мусора и освобождения интерфейсов в VBA работает хорошо.
Ну та же просьба.Ещё пару слов,так сказать, для чайников. Если не трудно,конечно же!
Данный код был заимствован из примера, приведенного в первой ссылке в начале топика (это чтобы не было лишнего базара, о том что я неправильно использовал рекоменданции):
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim Rs As ADODB.Recordset
Dim Con As ADODB.Connection
Set Rs = New ADODB.Recordset
...
Set Номенклатура.Form.Recordset = Rs
Rs.Close
Set Rs = Nothing
Con.Close
Set Con = Nothing
Закрывать Rs было стремно (сделаю Rs.Close и закроется Номенклатура.Form.Recordset - c DAO.Recordset так бы и случилось), но прокатило для ADODB.Recordset. Видимо, ADODB.Recordset.Close просто уменьшает счетчик ссылок на объект и не делает больше ничего.
(ADODB.Recordset.Close - это просто вызов метода ::Release унаследованного от класса IUnkown - родоначальника всех COM)
Объясню упрощенно:
Ком-объекты в VBA ведут себя следующим образом: они уничтожаются и освобождают память тогда, когда не остается больше ссылок на них.
То есть, если я напишу Set Rs=Nothing, я удалю одну ссылку на объект, но останется еще одна:
Номенклатура.Form.Recordset, которая будет жить, пока открыта форма. Когда форма будет закрыта - ссылок на Recordset не останется и будет вызван деструктор этого объекта.
А что будет, если я не напишу Set Rs=Nothing? Слава богу не на С++ пишем: Rs объявлена локальной переменной и после выхода из процедуры VBA сам закроет ссылку (то есть - сам присвоит Set Rs=Nothing). Это и называется "сбором мусора". И надо сказать, я давно не видел жалоб на утечку памяти, происходящую от VBA.
Примеры Гетца исторически восходять к временам Access 2.0, когда еще не было Com. И я подозреваю, что в каждом новом издании тупо Copy-Past)
Вывод: локальные Ком-объекты уничтожать после использования не надо, если вы готовы мириться, что они занимают память, пока продолжает выполняться процедура. На выходе из процедуры VBA сделает это за вас, и сделает корректно.
На самом деле все чуть сложнее и в VBA каким-то хитрым образом, путем использования коллекций можно добиться сбоя в подсчете ссылок на объект. (кажется, Бенедикт демонстрировал в этом форуме что-то такое).
Более подробно все это описано в хорошей книжке, которую советую прочитать всем, кто хочет разобраться с COM-объектами (понять их))
"Сущность технологии COM" Автор: Дональд Бокс
Большое спасибо!
