Открыть бд из списка.

Тема в разделе "Lotus - Программирование", создана пользователем Ruska132, 26 ноя 2015.

  1. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    66
    Симпатии:
    0
    Добрый день.
    помогите ПЖ, в программировании не силен признаюсь, больше администрирование.
    Задача вот такая, создается ежегодно БД, и необходимо в текущей базе, по кнопке выводить окно (@Prompt([OkCancelList]) с выбором какой БД открыть. заранее создал представление где храню данные об этих БД (наименование, сервер и путь)
    Вопрос как вывести список из представления и при выборе нужного значения открывать БД.
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    вот это не вопрос ;), вопрос будет - как сделать удобно
    что мешает вести документ со ссылками на БД и описанием?
     
  3. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.073
    Симпатии:
    299
    как пример по списку БД - получение списка АК
    Код (LotusScript):
    Sub Initialize
        On Error Goto ErrH
        Dim ses As New NotesSession
        Set db=ses.CurrentDatabase
       
        Dim books As Variant
        books = ses.AddressBooks
       
        Dim i As Integer
        Dim server As String
        Dim done As Boolean
        Forall b In books
            If ( b.IsPublicAddressBook ) And ( Not done ) Then
                Redim Preserve dbNames(i)
                Redim Preserve dbs(i)
                Call b.Open( "", "" )
                If i=0 Then
                    server=b.Server
                End If
                If b.Title="" Then
                    Call b.Open(server,b.fileName)
                End If
                dbNames(i)=b.Title
                Set dbs(i)=b
                i=i+1          
            End If
        End Forall
        Exit Sub
    ErrH:
        RaiseError
        Resume Next
    End Sub
     
Загрузка...

Поделиться этой страницей