1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. Ruska132

    Ruska132 Well-Known Member

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

    lmike нет, пердело совершенство
    Lotus team

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

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    3
    Регистрация:
    27 авг 2008
    Сообщения:
    6.406
    Симпатии:
    346
    как пример по списку БД - получение списка АК
    Код:
    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
     
Загрузка...

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