Ado

@root · 02.10.2006, 10:51. **Показов** 9841. **Ответов** 2

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function fSelectRecords(Sql As String ) As Variant
On Error Resume Next
Dim  r_recordset As Variant
Dim conn As Variant
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set conn=CreateObject("ADODB.Connection")
conn.Provyder="Microsoft.Jet.OLEDB.4.0"
conn.Open uidoc.FieldGetText("tPath")
Set r_recordset=CreateObject("ADODB.recordset")
r_recordset.Open sql , conn
Set fSelectRecord =r_recordset здесь идет ссылка на объект r_recordset
 
End Function

Далее мне необходимо подсчитать количество записей в таблици

Code
1
2
3
4
5
6
7
8
9
If Not source.IsNewDoc Then
source.EditMode=True
Set tmpRecord = fSelectRecordы("Select * from "&source.FieldGetText("TNameTable") ) //тут тоже идет ссылка на объект
If Not tmpRecord.eof Then
RecordCount(tmpRecord)
Else
ErrorMessage(1)
End If
End If

Вопрос как можно передать копию объекта ? тоесть еслия я изменяю значение tmpRecord то автоматически меняеться r_recordset а мне нужно чтоб я проделовал с копией объекто все что угодно при том чтоб оригинал оставался не изменным.

@ytymo myfydovo · 02.10.2006, 12:23

Сообщение от root

Вопрос как можно передать копию объекта ? тоесть еслия я изменяю значение tmpRecord то автоматически меняеться r_recordset а мне нужно чтоб я проделовал с копией объекто все что угодно при том чтоб оригинал оставался не изменным.

Поскольку r_recordset представляет собой ссылку на объект, то и обрабатывается он только по ссылке, как и все другие объекты.
В данном случае, если всегда нужно иметь исходный вариант r_recordset, то следует создать сразу два курсора: r_recordset и, напр., r_original_set, передав в оба одно и то же подключение и sql-строку при открытии.

@kROMyto · 02.10.2006, 16:17

Нафига тебе копия?

просто чувствую замыслил некий изврат ты.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@kROMyto 0 / 0 / 0 Регистрация: 03.04.2004 Сообщений: 195
	02.10.2006, 16:17
	Нафига тебе копия? просто чувствую замыслил некий изврат ты. 0