Метод, возвращающий рекордсет

@DjinnWalker · Регистрация: 25.05.2008

Студворк — интернет-сервис помощи студентам

у меня есть класс и в нем методы типа

Visual Basic
1
2
3
4
5
6
7
Public Function getCity(regionCode As String, areaCode As String, cityCode As String, pointCode As String) As Recordset
Dim query As String
 Set getCity = New ADODB.Recordset
 query = 'SELECT * FROM kladr WHERE code LIKE ' & _
 ''' & regionCode & '0' & areaCode & '0' & cityCode & '' & pointCode & '' AND socr='д''
 getCity.Open query, cnMain, adOpenForwardOnly, adLockReadOnly
End Function

Которые возвращают рекордсеты.
Если в программе я пишу set rs=getCity(....)
то что происходит с самим методом? Я имею ввиду память ведь не освобождается от рекордсета, который сгенерирован методом?
Или память теперь занимает только новый rs? или еще что то?

Что то я запутался :-((
Пиплы просветите!!

Заранее сенксы

@palva · 21.12.2008, 22:27

Я думаю, что вас путает утверждение некоторых учебников, что команда

Code
1
Set oVar = Nothing

освобождает память, занятый объектом oVar и разрушает сам объект. Следующий работающий пример показывает, что это не так.

Code
1
2
3
4
5
6
7
8
Set pogoda = CreateObject('Scripting.Dictionary')
pogoda('London') = 'туман'
pogoda('Неаполь') = 'ясно'
pogoda('Москва') = 'пасмурно'
pogoda('Гадюкино') = 'дожди'
Set new_pogoda = pogoda
Set pogoda = Nothing
MsgBox new_pogoda('Гадюкино')

На самом деле объектная переменная содержит не сам объект, а ссылку на него. Объект может иметь несколько ссылок, а присваивание Nothing всего лишь информирует бейсик-систему, что данная объектная переменная больше не будет использоваться в качестве ссылки на объект. Таким образом, бейсик подсчитывает сколько ссылок указывает на данный объект, и в момент когда количество ссылок станет равным нулю понимает, что объект можно уничтожать и память освобождать. Делает ли это бейсик на самом деле - бог весть... Если кто-нибудь знает, как это можно проконтролировать из бейсик-программы, было бы интересно услышать. Косвенным образом об этом судить можно. Скажем, функция создает объект и возвращает ссылку на него. Если в основной программе эта ссылка не будет сохранена, то доступа к объекту не будет. Но произойдет ли утечка памяти, то есть не будет ли объект, созданный в функции занимать память? Если мы напишем функцию

Code
1
2
3
4
Function pogoda()
Set pogoda = CreateObject('Scripting.Dictionary')
pogoda.item('London') = 'туман'
End Function

и обратимся к ней несколько миллионов раз следующим образом

Code
1
s = pogoda()('London')

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

Может есть другие гипотезы?

@DjinnWalker · 22.12.2008, 08:24 **[ТС]**

Спасибо огромное.
Немного прояснилась обстановка...

@DjinnWalker · 22.12.2008, 09:31 **[ТС]**

А почему с рекордсетами происходит следующая вещь:

есть открытый рекордсет rs1.

set rs2=rs1
set rs1=nothing

msgbox rs2.RecordCount <- не сработает, тк rs2 тоже разрушен.

Заранее спасибо

@aaf · 22.12.2008, 11:42

не считаю что пример с использованием
rs2.RecordCount
корректен, так как он может по разным причинам не выводить число записей. Плюс ко всему - рекордсеты вообще вещь особенная.

@DjinnWalker · 22.12.2008, 11:44 **[ТС]**

но ведь рекордсет тоже объект...

@palva · 22.12.2008, 15:53

Следующий VBScript работает - выдает два раза '-1'

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
SET cn = CreateObject('ADODB.Connection')
SET rs = CreateObject('ADODB.Recordset')
cn.Open 'prices'
rs.Open 'SELECT * FROM prices', cn, 2, 2
MsgBox rs.RecordCount
Set rs1 = rs
set rs = Nothing
MsgBox rs1.RecordCount
MsgBox rs1.Fields('id')
rs1.Close
set rs1 = Nothing
cn.Close
set cn = Nothing

Действительно, объект не хочет возвращать число записей, но он вполне работоспособен, читается, закрывается и проч.

@Vit54 · 22.12.2008, 19:39

Property RecordCount vozvraschaet chislo zapisei tol'ko posle vypolneniya komandy Rs1.MoveLast, a bez etoi komandy vsegda -1. No daze Microsoft ne sovetyet ispol'zovat' MoveLast metod poskol'ku on sil'no zamedlyaet obrabotku.

@Korolana · 22.12.2008, 20:07

It is depends on your cursor location and cursortype,you can receive RecordCount without MoveLast, if you cursor on the Client Side and is not Dynamic

@palva · 22.12.2008, 21:52

Например, скрипт приведенный выше возвращает правильное количество записей, если открывать его командой

Code
1
rs.Open 'SELECT * FROM prices', cn, 3, 3

Но здесь мы обсуждаем совсем другой вопрос, а именно: отличаются ли функционально объекты rs и rs1.

@aaf · 23.12.2008, 06:08

Вернувшись к вопросу чисто логически можно предположить что память от рекордсета не освободится - там ведь (в методе) нет закрытия рекордсета и его высвобождения. Предлагаю проверить следующим Методом:
set rs=getCity(....)
..........Используем рекордсет
set rs=nothing

set rs2=rs (интересно, а такое вообще работать будет? Вроде должно.)
..........Пытаемся использовать рекордсет
set rs2=nothing

Интересно, что выведет второй рекордсет?
Но в любом случае getCity будет открыт. Ну и наверно памяти тоже хапнет.

@DjinnWalker · 24.12.2008, 08:39 **[ТС]**

Последний постинг работать не будет!

Я выяснил, что если мы имеем открытый рекордсет rs1 то

Visual Basic
1
2
set rs2=rs1
set rs1=nothing

то rs2 продолжает полноценную жизнь! А rs1 умер.

А вот если я имею библиотеку АктивХ dll, в ней класс, в классе методы которые возвращают рекордсеты. А именно:

Visual Basic
1
2
3
4
5
6
7
Public Function getCity(regionCode As String, areaCode As String, cityCode As String, pointCode As String) As Recordset
Dim query As String
Set getCity = New ADODB.Recordset
query = 'SELECT * FROM kladr WHERE code LIKE ' & _
''' & regionCode & '0' & areaCode & '0' & cityCode & '' & pointCode & '' AND socr='д''
getCity.Open query, cnMain, adOpenForwardOnly, adLockReadOnly
End Function

В программе
Set AddrObj = New Kladr.Address определение объекта.

и если его уничтожить set AddrObj=nothing, то все рекордсеты которые были возвращены его методами теряют функциональность! Но не уничтожаются...

@Max_rv · 25.12.2008, 11:01

По идее объект существует, пока на него есть хоть одна ссылка, при высвобождении всех ссылок сборщик мусора должен уничтожить его автоматически. Но увы, не раз сталкивался с тем что сборщик мусора в VB глючит..
dim adoRs as adodb.recordset
dim adoRs1 as adodb.recordset

set adoRs=new adodb.recordset
adoRs.open '.....'
set adoRs=adoRs1
AdoRs1 хранит токо ссылку на Recordset

set adoRs=new adodb.recordset
adoRs.open '.....'
set adoRs1=new adodb.recordset
set adoRs1=adoRs.clone
AdoRs1 хранит экземпляр Recordset'а

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@DjinnWalker 1 / 1 / 0 Регистрация: 25.05.2008 Сообщений: 232
	22.12.2008, 08:24 [ТС]
	Спасибо огромное. Немного прояснилась обстановка... 0

@DjinnWalker 1 / 1 / 0 Регистрация: 25.05.2008 Сообщений: 232
	22.12.2008, 09:31 [ТС]
	А почему с рекордсетами происходит следующая вещь: есть открытый рекордсет rs1. set rs2=rs1 set rs1=nothing msgbox rs2.RecordCount <- не сработает, тк rs2 тоже разрушен. Заранее спасибо 0

@aaf 0 / 0 / 0 Регистрация: 26.12.2007 Сообщений: 435
	22.12.2008, 11:42
	не считаю что пример с использованием rs2.RecordCount корректен, так как он может по разным причинам не выводить число записей. Плюс ко всему - рекордсеты вообще вещь особенная. 0

@DjinnWalker 1 / 1 / 0 Регистрация: 25.05.2008 Сообщений: 232
	22.12.2008, 11:44 [ТС]
	но ведь рекордсет тоже объект... 0

@Vit54 0 / 0 / 0 Регистрация: 21.05.2007 Сообщений: 252
	22.12.2008, 19:39
	Property RecordCount vozvraschaet chislo zapisei tol'ko posle vypolneniya komandy Rs1.MoveLast, a bez etoi komandy vsegda -1. No daze Microsoft ne sovetyet ispol'zovat' MoveLast metod poskol'ku on sil'no zamedlyaet obrabotku. 0

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	22.12.2008, 20:07
	It is depends on your cursor location and cursortype,you can receive RecordCount without MoveLast, if you cursor on the Client Side and is not Dynamic 0

@aaf 0 / 0 / 0 Регистрация: 26.12.2007 Сообщений: 435
	23.12.2008, 06:08
	Вернувшись к вопросу чисто логически можно предположить что память от рекордсета не освободится - там ведь (в методе) нет закрытия рекордсета и его высвобождения. Предлагаю проверить следующим Методом: set rs=getCity(....) ..........Используем рекордсет set rs=nothing set rs2=rs (интересно, а такое вообще работать будет? Вроде должно.) ..........Пытаемся использовать рекордсет set rs2=nothing Интересно, что выведет второй рекордсет? Но в любом случае getCity будет открыт. Ну и наверно памяти тоже хапнет. 0

@Max_rv 0 / 0 / 0 Регистрация: 26.08.2008 Сообщений: 53
	25.12.2008, 11:01
	По идее объект существует, пока на него есть хоть одна ссылка, при высвобождении всех ссылок сборщик мусора должен уничтожить его автоматически. Но увы, не раз сталкивался с тем что сборщик мусора в VB глючит.. dim adoRs as adodb.recordset dim adoRs1 as adodb.recordset set adoRs=new adodb.recordset adoRs.open '.....' set adoRs=adoRs1 AdoRs1 хранит токо ссылку на Recordset set adoRs=new adodb.recordset adoRs.open '.....' set adoRs1=new adodb.recordset set adoRs1=adoRs.clone AdoRs1 хранит экземпляр Recordset'а 0