• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Не работает Getdocumentbykey

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

rm2005

Добрый день! Необходимо по щелчку на кнопке в справочнике пользователей (ФИО, Лотус-имя) найти человека залогинившегося в базу.
Сделал вид по Лотус именам ("ByNotesName"). В OnClick написал обработчик:
Код:
Sub Click(Source As Button)
Dim Baza As New NotesDatabase(CurrentServerName, CurrentDataBasePath+"Справочник.nsf")
Dim CurrentSession As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument

Set view=Baza.GetView("ByNotesName")

Set doc=view.GetDocumentByKey(CurrentSession.UserName)
If doc Is Nothing Then Messagebox ("Не найдено")

End Sub
Почему-то никогда не находит. Можь че не так делаю?
 
M

morpheus

Для: rm2005
Читаем хэлп и видим
For the getDocumentByKey method to work using a key, you must have at least one column sorted for every key in the vector.

что значит... Вам необходимо сортированная колонка(по который вы ищете - ключ ), желательно первая в Вашем представлении

Да и CurrentSession.UserName - посмотрите что уВас записано там... а что записано в справочнике...
ведь CurrentSession.UserName вернёт чтото типа "CN=Stew Malone/OU=Editorial/O=Acme." а Вам надо выкавырять тока CN
 
R

rm2005

Блин! Точно! Не стояло свойство Ascending. Спасибо огромное, а то уже 3 дня убил.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!