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

[Guest]

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

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")

 

[hosm]

db.AllDocuments

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

 

[allex]

 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)

 

[susinmn]

для какой задачи Вы хотите использовать не GetAllDocumentsByKey?

 

[Akupaka]

Денис Кириченко, см пост OKEN.

susinmn, там же сказано

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

 

[Guest]

Всем спасибо, в особености OKEN, за идеи что методом search можно пройтись по конкретной форме:

searchFormula$ = {Forma = "Document"}
Set collection = db.Search(searchFormula$, dateTime, 0)

 

[susinmn]

Если получить все документы во view(не категоризованной)

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

 

[Guest]

Народ, может я че-то не догоняю. Но почему у меня Designer, ругается на:

searchFormula$ = {Form = "Document"}

типа переменная searchFormula$ не определена, для справки Designer 8.5 на 7 не ругался.

 

[Akupaka]

вероятно ранее не было Option Declare
объяви переменную явно

 

[susinmn]

выше определи переменную
Dim searchFormula$ as String

 

[Guest]

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

 

[Darker]

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

 

[Guest]

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

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

 

[Darker]

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

 

[Guest]

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

см. пост выше

 

[Darker]

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

 

[Omh]

Darker
А зачем переменной суффикс?

 

[Akupaka]

Omh
не перебивай цирк ))

 

[Guest]

Omh честно не знаю прочитал в хелпе примерно следующее:

 searchFormula$ = {Form = "Project" & ReminderDate = @Today}
Set db = session.CurrentDatabase
Set collection = db.Search(searchFormula$, Nothing,0)

чего так не знаю.

Добавлено:

Omh
не перебивай цирк ))

 

[Akupaka]

прочитал в хелпе примерно следующее

ну и? там правильно написано.
суфиксы используются для явного указания типа переменной, которая не объявлена явно.