Eсли не писать r.Close при окончании процедуры

[Avtopic]

Здравствуйте!
...
Set r = db.OpenRecordset(sqlk)
...
r.Close
Set r = Nothing
End Sub
если не писать r.Close при окончании процедуры close не происходит?

[Avtopic]

Т.е. если r объявлен в пределах процедуры при окончании процедуры, что, Recordset не закрывается?

[alibek]

Если r является локальной переменной, а не глобальной, то должен закрыться.
А есть ли причина, почему надо не писать r.Close?

[Avtopic]

Спасибо за ответ!
Причина в том что, в определенный момент, в цикле приходится перебирать много запросов, напр.:
в ARRE() имена запросов, допустим sqlk1, sqlk2, sqlk3 и т. д. их формирую заранее.
и в цикле идет выборка разных вариантов.
Set r = db.OpenRecordset(ARRE(i))
причем, к одному и тому же запросу может получиться, что возвращаться несколько раз.
в работе нет проблем, но мурашки бегают, когда представлю, какое количество Recordset может остаться открытым, если что-то неправильно делаю.
А делаю так:

Код: Выделить всё

r является локальной
For i = 1 To n
.....
....
Set r = db.OpenRecordset(ARRE(i))
....
....
Next
.....
r.Close
Set r = Nothing
End Sub

или нужно, обязательно вот так:

Код: Выделить всё

For i = 1 To n
.....
....
Set r = db.OpenRecordset(ARRE(i))
....
....
r.Close
Set r = Nothing
Next
.....

End Sub

Во втором варианте, меня мучает совесть перед компьютером, не зря ли я его терзаю. В прочем, в первом варианте тоже...
А если Recordset-и по окончании процедуры сами закрываются, то и проблем нет.

[alibek]

Вынеси Set r = Nothing за пределы цикла, в остальном нормально.
А что за задача? Не верится мне, что ее невозможно решить другим способом, менее страшным.

[Avtopic]

Безусловно, можно решить другим путем и все довел до одного, правда, огромного запроса.
Главное избавился от этого маразма с циклами.
А совет, все равно полезный, спасибо.

[hohol_kz]

Хм, вообще-то твоего

Код: Выделить всё

Set r = Nothing

должно хватать полностью.

Я делал что-то подобное, когда последовательно заполняю уровни дерева. Всегда хватало присвоения Nothing для recordset.

[Avtopic]

To hohol_kz

Умоляю, объясните, как вы проверяете, хватает или нет.
Честно, мучает меня этот Set ... = Nothing. Ну, вышел я из процедуры, как проверить остается или нет переменная в памяти. По этой части VBA как раз некогда не ругается, пока машина не остановится.
Ну, написано, что надо писать Set ... = Nothing и я пишу. И вроде бы, почему надо, тоже написано, а где можно прочитать поподробнее?

[GSerg]

VB всегда вызывает IUnknown::Release у любой ненулевой объектной переменной, которая вышла из области своей видимости. И ему пофигу, есть реально этот метод или нет, всё равно вызовет. Так что когда его нет, всё нафиг рушится. Соответственно, делать set = nothing следует либо когда нужно уничтожить объект где-нибудь в середине процедуры, либо когда нужно соблюсти порядок закрытия объектов. И ещё когда нужно разорвать циклическую ссылку. В остальном VB всё делает сам.
Скорее всего, у класса Recordset стоит Close на уничтожении. Иначе сложно представить, как бы он себя вёл. Тем не менее, явно предоставленные методы типа Close, Dispose и т.п. я всегда вызываю явно.

[hohol_kz]

Проверяю просто: если далее по коду мне объект уже не понадобится то прихлопнем его на всякий случай, чотбы место не занимал; если же еще понадобится, то оставляю на развод. А то надеяться на автоматическое освобождение памяти... Как было правильно сказано выше, лучше всего использовать явно. Тогда вероятность мусора при аварийонм сбое программы понижается.

[Avtopic]

Проверяю просто: если далее по коду мне объект уже не понадобится то прихлопнем его на всякий случай, чотбы место не занимал; если же еще понадобится, то оставляю на развод. А то надеяться на автоматическое освобождение памяти... Как было правильно сказано выше, лучше всего использовать явно. Тогда вероятность мусора при аварийонм сбое программы понижается.

Нет, это не “проверяю”, это “делаю” . Выше конечно все било сказано правильно. Я тоже обьязателно ставлю .Close и =Nothing

а здесь написано:

hohol_kz
Я делал что-то подобное, когда последовательно заполняю уровни дерева. Всегда хватало присвоения Nothing для recordset.

Так всеже, можно проверить “хватало” или “не хватало”?