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

[Ruska132]

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

 

[lmike]

Вопрос как вывести список из представления и при выборе нужного значения открывать БД.

вот это не вопрос , вопрос будет - как сделать удобно
что мешает вести документ со ссылками на БД и описанием?

 

[lmike]

как пример по списку БД - получение списка АК

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