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

  • Автор темы -
  • Дата начала

Гость
#1
Как можно выбрать все документы в базе кроме 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

* so what *
18.05.2009
2 442
9
42
Kiev, Ukraine
#2
db.AllDocuments

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

allex

Гость
#3
Код:
 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)
 

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

susinmn

Well-Known Member
16.10.2007
529
8
33
Саратов
#7
Если получить все документы во 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
 

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

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

Darker

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

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

Darker

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

Darker

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