Альтернатива Getalldocumentbykey

Тема в разделе "Lotus - Программирование", создана пользователем -, 29 мар 2010.

  1. Гость

    Как можно выбрать все документы в базе кроме GetAllDocumentsByKey?

    Код (Text):
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim dc As NotesDocumentCollection
    Set db = session.CurrentDatabase
    Set view = db.GetView( "By Category" )
    Set dc = view.GetAllDocumentsByKey("Spanish leather", False)
    Call dc.PutAllInFolder("Boots")
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    db.AllDocuments

    Добавлено: db.Search / FTSearch - если надо какие-то конкретные документы, а не все из БД...
     
  3. allex

    allex Гость

    Код (Text):
     Dim view_tg As NotesView
    Dim entry_tg As NotesViewEntry
    Dim tgcoll As NotesViewEntryCollection

    Set view_tg = sprdb.Getview("(temp_grafik)")
    Dim key(2) As Variant
    key(0)= y
    key(1)= o_k
    key(2)= t

    Set tgcoll = view_tg.Getallentriesbykey(key)
    Set entry_tg = tgcoll.Getfirstentry()
    или
    Set entry_tg =view_tg.Getentrybykey(key)
     
  4. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    для какой задачи Вы хотите использовать не GetAllDocumentsByKey?
     
  5. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Денис Кириченко, см пост OKEN.

    susinmn, там же сказано
     
  6. Гость

    Всем спасибо, в особености OKEN, за идеи что методом search можно пройтись по конкретной форме:
    Код (Text):
    searchFormula$ = {Forma = "Document"}
    Set collection = db.Search(searchFormula$, dateTime, 0)
     
  7. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Если получить все документы во view(не категоризованной)

    Код (LotusScript):
    Dim coll As NotesViewEntryCollection
    Dim entry As NotesViewEntry

    set coll = view.AllEntries
    set entry = coll.GetFirstEntry

    while not entry is nothing
    Set doc = entry.Document
    set entry = coll.GetNextEntry(entry )
    wend
     
  8. Гость

    Народ, может я че-то не догоняю. Но почему у меня Designer, ругается на:
    Код (Text):
    searchFormula$ = {Form = "Document"}
    типа переменная searchFormula$ не определена, для справки Designer 8.5 на 7 не ругался.
     
  9. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    вероятно ранее не было Option Declare
    объяви переменную явно
     
  10. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    выше определи переменную
    Dim searchFormula$ as String
     
  11. Гость

    Dim searchFormula$ as String - так нельзя ругается на $, а как только объявляю без $. После этого ругается на то что нельзя использовать ее в методы Search
     
  12. Darker

    Darker Гость

    Можно и без переменных, сразу же в качестве параметра:
    Set collection = db.Search({Forma = "Document"}, dateTime, 0)
    И ничего не надо будет объявлять
     
  13. Гость

    но это же решение в лоб, но как решение пробле на 100% подходит. Поправочка так не фурычит :)
     
  14. Darker

    Darker Гость

    Dim searchFormula as String
    Оъявлять надо без суффиксов("$")
     
  15. Гость

    см. пост выше
     
  16. Darker

    Darker Гость

    Поправочка, :) , {Form = "Document"}
    Короче так
    Dim searchFormula as string
    searchFormula$ = {Form = "Document"}
    Set collection = db.Search(searchFormula$, Nothing, 0)
     
  17. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Darker
    А зачем переменной суффикс?
     
  18. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Omh
    не перебивай цирк ))
     
  19. Гость

    Omh честно не знаю прочитал в хелпе примерно следующее:
    Код (Text):
     searchFormula$ = {Form = "Project" & ReminderDate = @Today}
    Set db = session.CurrentDatabase
    Set collection = db.Search(searchFormula$, Nothing,0)
    чего так не знаю.

    Добавлено:
    :)
     
  20. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    ну и? там правильно написано.
    суфиксы используются для явного указания типа переменной, которая не объявлена явно.
     
Загрузка...

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