<index><STRONG>Список серверов</STRONG> <DIV class="desc"

[Ogion7]

День добрый. Команда @Prompt([ChooseDatabase];"";""); диалог для открытия базы. Я хочу получить только список серверов. Как это сделать?

 

[Constantin A Chervonenko]

День добрый. Команда @Prompt([ChooseDatabase];"";""); диалог для открытия базы. Я хочу получить только список серверов. Как это сделать?

Каких серверов? Всех? Возьми @PickList и открой АК на (Servers)

 

[Ogion7]

Не понял, я в локальной базе хочу это сделать

 

[Kee_Keekkenen]

вот так например

_server:="имя сервера";
_names:="names.nsf";
_default:=fl_Server;
_list:=@DbColumn("" : "NoCache"; _server : _names; "Servers"; 3);

@If(@IsError(_list);
@Do(@Prompt([Ok]; "Внимание"; "Серверная Адресная книга не доступна."));

@Do(Choice:=@Prompt([OkCancelList]:[NoSort]; "Сервера"; "Пожалуйста, выберите из списка:"; _default; _list);
@SetField("fl_Server";Choice)
)
)

 

[Ogion7]

Спасибо, с этим ясно. Следующий вопрос -- выбрал сервер, как мне сделать диалог для выбора конкретного каталога или базы на сервере?

 

[Ogion7]

Пытаюсь (хотя бы поймать нужную мне базу, добавить в список дело техники) так

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document

Dim dbdir As New NotesDbDirectory(doc.CServer(0))
Dim db As NotesDatabase

Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
doc.Path=db.FileName
eval=Evaluate("@Contains(Path;PathFrom)",doc)
If eval=True Then
Msgbox db.Title
End If
Set db = dbdir.GetNextDatabase
Wend
End Sub

в строке eval=... выдает тайп мисматч, голова уже не варит, понять почему не могу . Поля оба текстовые

 

[Azrael]

eval(0) А лучше в начале описать As Variant

 

[Constantin A Chervonenko]

вот так например

...
_list:=@DbColumn("" : "NoCache"; _server : _names; "Servers"; 3);
...
Choice:=@Prompt([OkCancelList]:[NoSort]; "Сервера"; "Пожалуйста, выберите из списка:"; _default; _list);

@DbColumn+@Prompt = @PickList

 

[Ogion7]

Пасибо всем! Получилось

 

[Ogion7]

Для чего все это было надо -- клепаю агента для создания шаблонов из выбранных на сервере баз(в определенном каталоге). Еси получится выложу базу