Ado

Тема в разделе "Lotus - Программирование", создана пользователем root, 3 окт 2006.

  1. root

    root Гость

    Код (Text):
    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.Provider="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
    Далее мне необходимо подсчитать количество записей в таблици
    Код (Text):
    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 а мне нужно чтоб я проделовал с копией объекто все что угодно при том чтоб оригинал оставался не изменным.
     
  2. Elena Nefedova

    Elena Nefedova Гость

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

    GROMILA Well-Known Member

    Регистрация:
    8 апр 2004
    Сообщения:
    297
    Симпатии:
    0
    Нафига тебе копия?

    просто чувствую замыслил некий изврат ты.
     
Загрузка...
Похожие Темы - Ado
  1. planetoxod
    Ответов:
    1
    Просмотров:
    458
  2. SvetlanaL
    Ответов:
    1
    Просмотров:
    486
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    396
  4. Позитрон
    Ответов:
    3
    Просмотров:
    1.113
  5. JohnLemon
    Ответов:
    6
    Просмотров:
    1.174

Поделиться этой страницей