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

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

Guest

#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
6
#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)
 

susinmn

Well-known member
16.10.2007
529
3
#4
для какой задачи Вы хотите использовать не GetAllDocumentsByKey?
 
G

Guest

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

susinmn

Well-known member
16.10.2007
529
3
#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
 
G

Guest

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#9
вероятно ранее не было Option Declare
объяви переменную явно
 
G

Guest

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

Darker

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

Guest

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

Darker

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