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

  • Автор темы Ogion7
  • Дата начала
O

Ogion7

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

Ogion7

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

Kee_Keekkenen

Well-Known Member
05.09.2006
639
6
#4
вот так например

Код:
_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)
)
)
 
O

Ogion7

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

Ogion7

Гость
#6
Пытаюсь (хотя бы поймать нужную мне базу, добавить в список дело техники) так
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=... выдает тайп мисматч, голова уже не варит, понять почему не могу :rolleyes: . Поля оба текстовые
 
O

Ogion7

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