документы из View

@wowo · Регистрация: 03.02.2007

Студворк — интернет-сервис помощи студентам

Подскажите, как забрать все документы из view (как я понимаю, сделать коллекцию)....
Я раньше делал
Set dc = vw.GetAllDocumentsByKey (vListNameDoc, False )
Но это по ключу, а то надо все

10.04.2007, 19:53

Сообщение от wowa

Подскажите, как забрать все документы из view (как я понимаю, сделать коллекцию)....
Я раньше делал
Set dc = vw.GetAllDocumentsByKey (vListNameDoc, False )
Но это по ключу, а то надо все

первый столбец сделай скрытым со значением "1".
А потом: Set dc = vw.GetAllDocumentsByKey("1")

p.s. не забудь сортирнуть его

@Kyy_Kyykkymym · 10.04.2007, 22:38

можно использовать notesviewentrycollection

@wowo · 11.04.2007, 10:31

<span class="vbquote">(DNT @ 11:04:2007, 17:40 )</span>первый столбец сделай скрытым со значением "1".
[snapback]62143" rel="nofollow" target="_blank[/snapback]?[/quote]
А обязательно первый? Мне бы желательно сделать последний, но оно что-то не работает

@wowo · 11.04.2007, 10:42

Хотя вроде получилось через notesviewentrycollection
Спасибо!
Но все равно , интересно, насчет первого столбца

11.04.2007, 10:57

Можно и не первую-

Из хелпа GetAllDocumentsByKey:

Finds documents based on their column values withyn a view. You create an array of keys, where each key corresponds to a value in a sorted column in the view. The method returns all documents whose column values match each key in the array.

Syntax
Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] )

keyArray
String (variable-length only), integer, long or double value, or array of string, number, DateTime, or DateRange objects. Each element in the array is compared to a sorted column in the view. The first element in the array is compared to the first sorted column in the view; the second element is compared to the second sorted column; and so on.

Первый элемент в массиве сравнивается с первой сортируемой колонкой в виде; второй элемент сравнивается со второй сортируемой колонкой; и так далее.

@wowo · 11.04.2007, 11:10

Для: DNT
Спасибо,

Подскажите еще, хоть и не по теме..
Call db1.Open(stDBServer,stDBFileName )
Я открываю БД...
делаю некоторые действия
потом меняю stDBServer,stDBFileName
и опять хочу Call db1.Open(stDBServer,stDBFileName )
Ну вообщем это в цикле.... И у меня пишет ошибку , типа открыта другая БД.... Что делать???

@morphyus · 11.04.2007, 11:13

Для: wowa
хм... странно, имхо , Call у Вас лишний

This LotusScript agent opens each database in the AddressBooks property of NotesSession. The NotesDatabase variable, book, must be treated as a Variant to be used as an AddressBooks element.

Code
1
2
3
4
5
6
7
Sub Initialize
Dim s As New NotesSession
Forall book In s.AddressBooks
book.open "", ""
Messagebox book.Title,, "Address book"
End Forall
End Sub

@wowo · 11.04.2007, 11:34

Для: Morpheus
Что-то я не совсем понимаю...
У меня работает
Dim db1 As New NotesDatabase( "", "" )
Call db1.Open(stDBServer,stDBFileName )
Но после того, как я уже открыл.. открыть другую БД, уже не получается.....

Пишет database object is already open as .....................

11.04.2007, 11:35

Сообщение от wowa

Для: Morpheus
Что-то я не совсем понимаю...
У меня работает
Dim db1 As New NotesDatabase( "", "" )
Call db1.Open(stDBServer,stDBFileName )
Но после того, как я уже открыл.. открыть другую БД, уже не получается.....

покажи ошибку, чтоли.

@wowo · 11.04.2007, 11:36

Пишет database object is already open as .....................

@morphyus · 11.04.2007, 11:37

Для: wowa
Dim db1 As New NotesDatabase( "", "" )
db1.Open(stDBServer,stDBFileName )

11.04.2007, 11:41

Для: wowa

database object is already open as ...." --->>> "объект базы данных уже открыт, как ..."

ты уверен что у тебя переменные stDBServer,stDBFileName корректно меняются в цикле?

@wowo · 11.04.2007, 11:51

Для: Morpheus
не сохраняет,, пишет ошибку скрипта

Для: DNT
ДА, проверял много раз

Как-н можно обнулить db1?

@morphyus · 11.04.2007, 11:55

Для: wowa

ну на крайняк Set db1 = Nothyng

СТОП!!! а
Dim db1 As New NotesDatabase( "", "" ) происходит в теле ЦИКЛА, или вне его
for i = ...
Dim db1 As New NotesDatabase( "", "" )
db1.Open(stDBServer,stDBFileName )
next

ТАК будет ошибка, а так ошибки не будет
Dim db1 As New NotesDatabase( "", "" )
for i = ...
db1.Open(stDBServer,stDBFileName )
next

@wowo · 11.04.2007, 12:15

Поставил Dim db1 As New NotesDatabase( "", "" ) в цикл - и всё заработало.. Большое спасибо...
Хотя раньше ставил в цикл, но что-то не получалось ))
Спасибо!

11.04.2007, 12:18

Для: wowa

так значит lotus ругался именно на эту строчку??? Dim db1 As New NotesDatabase( "", "" )

@wowo · 11.04.2007, 12:20

Для: DNT
выходит да!
Нужно было ее засунуть в цикл перед открытием новой БД

@wowo · 16.07.2007, 12:05

<span class="vbquote">(DNT @ 12:04:2007, 08:44 )</span>Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] )

keyArray
String (variable-length only), integer, long or double value, or array of string, number, DateTime, or DateRange objects. Each element in the array is compared to a sorted column in the view. The first element in the array is compared to the first sorted column in the view; the second element is compared to the second sorted column; and so on.

Первый элемент в массиве сравнивается с первой сортируемой колонкой в виде; второй элемент сравнивается со второй сортируемой колонкой; и так далее.
[snapback]62187" rel="nofollow" target="_blank[/snapback]?[/quote]

Блин, раньше получилось, а теперь забыл
Подскажите, пожалуйста, как мне забрать документ по второму столбцу, если первый и второй отсортированы?
Что-то типа так?
Set doc = vw.GetDocumentByKey (["", vUnidNameDoc])

@wowo · 16.07.2007, 12:54

как вообщем задать этот массив?

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821

	документы из View 10.04.2007, 18:57. Показов 37420. Ответов 24 Метки нет (Все метки) Подскажите, как забрать все документы из view (как я понимаю, сделать коллекцию).... Я раньше делал Set dc = vw.GetAllDocumentsByKey (vListNameDoc, False ) Но это по ключу, а то надо все 0

@Kyy_Kyykkymym 1 / 1 / 0 Регистрация: 01.10.2006 Сообщений: 615
	10.04.2007, 22:38
	можно использовать notesviewentrycollection 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 10:31
	<!--QuoteBegin-DNT+11:04:2007, 17:40 --> <span class="vbquote">(DNT @ 11:04:2007, 17:40 )</span><!--QuoteEBegin-->первый столбец сделай скрытым со значением "1". [snapback]62143" rel="nofollow" target="_blank[/snapback]?[/quote] А обязательно первый? Мне бы желательно сделать последний, но оно что-то не работает 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 10:42
	Хотя вроде получилось через notesviewentrycollection Спасибо! Но все равно , интересно, насчет первого столбца 0

DmT
	11.04.2007, 10:57
	Можно и не первую- Из хелпа GetAllDocumentsByKey: Finds documents based on their column values withyn a view. You create an array of keys, where each key corresponds to a value in a sorted column in the view. The method returns all documents whose column values match each key in the array. Syntax Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] ) keyArray String (variable-length only), integer, long or double value, or array of string, number, DateTime, or DateRange objects. Each element in the array is compared to a sorted column in the view. The first element in the array is compared to the first sorted column in the view; the second element is compared to the second sorted column; and so on. Первый элемент в массиве сравнивается с первой сортируемой колонкой в виде; второй элемент сравнивается со второй сортируемой колонкой; и так далее.

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 11:10
	Для: DNT Спасибо, Подскажите еще, хоть и не по теме.. Call db1.Open(stDBServer,stDBFileName ) Я открываю БД... делаю некоторые действия потом меняю stDBServer,stDBFileName и опять хочу Call db1.Open(stDBServer,stDBFileName ) Ну вообщем это в цикле.... И у меня пишет ошибку , типа открыта другая БД.... Что делать??? 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 11:34
	Для: Morpheus Что-то я не совсем понимаю... У меня работает Dim db1 As New NotesDatabase( "", "" ) Call db1.Open(stDBServer,stDBFileName ) Но после того, как я уже открыл.. открыть другую БД, уже не получается..... Пишет database object is already open as ..................... 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 11:36
	Пишет database object is already open as ..................... 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	11.04.2007, 11:37
	Для: wowa Dim db1 As New NotesDatabase( "", "" ) db1.Open(stDBServer,stDBFileName ) 0

DmT
	11.04.2007, 11:41
	Для: wowa database object is already open as ...." --->>> "объект базы данных уже открыт, как ..." ты уверен что у тебя переменные stDBServer,stDBFileName корректно меняются в цикле?

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 11:51
	Для: Morpheus не сохраняет,, пишет ошибку скрипта Для: DNT ДА, проверял много раз Как-н можно обнулить db1? 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	11.04.2007, 11:55
	Для: wowa ну на крайняк Set db1 = Nothyng СТОП!!! а Dim db1 As New NotesDatabase( "", "" ) происходит в теле ЦИКЛА, или вне его for i = ... Dim db1 As New NotesDatabase( "", "" ) db1.Open(stDBServer,stDBFileName ) next ТАК будет ошибка, а так ошибки не будет Dim db1 As New NotesDatabase( "", "" ) for i = ... db1.Open(stDBServer,stDBFileName ) next 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 12:15
	Поставил Dim db1 As New NotesDatabase( "", "" ) в цикл - и всё заработало.. Большое спасибо... Хотя раньше ставил в цикл, но что-то не получалось )) Спасибо! 0

DmT
	11.04.2007, 12:18
	Для: wowa так значит lotus ругался именно на эту строчку??? Dim db1 As New NotesDatabase( "", "" )

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	11.04.2007, 12:20
	Для: DNT выходит да! Нужно было ее засунуть в цикл перед открытием новой БД 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	16.07.2007, 12:05
	<!--QuoteBegin-DNT+12:04:2007, 08:44 --> <span class="vbquote">(DNT @ 12:04:2007, 08:44 )</span><!--QuoteEBegin-->Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] ) keyArray String (variable-length only), integer, long or double value, or array of string, number, DateTime, or DateRange objects. Each element in the array is compared to a sorted column in the view. The first element in the array is compared to the first sorted column in the view; the second element is compared to the second sorted column; and so on. Первый элемент в массиве сравнивается с первой сортируемой колонкой в виде; второй элемент сравнивается со второй сортируемой колонкой; и так далее. [snapback]62187" rel="nofollow" target="_blank[/snapback]?[/quote] Блин, раньше получилось, а теперь забыл Подскажите, пожалуйста, как мне забрать документ по второму столбцу, если первый и второй отсортированы? Что-то типа так? Set doc = vw.GetDocumentByKey (["", vUnidNameDoc]) 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	16.07.2007, 12:54
	как вообщем задать этот массив? 0