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

Ruska132

Well-Known Member
21.01.2015
66
0
#1
Добрый день.
помогите ПЖ, в программировании не силен признаюсь, больше администрирование.
Задача вот такая, создается ежегодно БД, и необходимо в текущей базе, по кнопке выводить окно (@Prompt([OkCancelList]) с выбором какой БД открыть. заранее создал представление где храню данные об этих БД (наименование, сервер и путь)
Вопрос как вывести список из представления и при выборе нужного значения открывать БД.
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 492
367
#2
Вопрос как вывести список из представления и при выборе нужного значения открывать БД.
вот это не вопрос ;), вопрос будет - как сделать удобно
что мешает вести документ со ссылками на БД и описанием?
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 492
367
#3
как пример по списку БД - получение списка АК
Код:
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