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

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

  1. Ruska132

    Ruska132 Well-Known Member

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

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

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

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

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    335
    как пример по списку БД - получение списка АК
    Код:
    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
     
Загрузка...
Похожие Темы - Открыть бд из
  1. deeeman
    Ответов:
    3
    Просмотров:
    2.448
  2. San40S
    Ответов:
    23
    Просмотров:
    7.326
  3. dimat
    Ответов:
    20
    Просмотров:
    5.717
  4. Dragon108
    Ответов:
    4
    Просмотров:
    4.718
  5. Yas
    Ответов:
    4
    Просмотров:
    196

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