Не получается открыть базу данных

[HelenHelen]

Добрый день!

Агентом нужно открыть базу и скопировать определенные значения полей в документы текущей БД. Проблема возникает сразу на этапе открытия: не удается открыть базу никаким способом.

Ни так:

Dim CO As NotesDatabase
Dim Server As String
Dim dbpath As String

Set CO= New NotesDatabase("","")
server="Local"
dbpath="cmso.nsf"	
Call CO.Open(server,dbpath)

If CO.Isopen=True Then
MessageBox("Открыто")
Else
MessageBox("Закрыто")
End If

Ни так:

Set CO=Session.Getdatabase("local","cmso.nsf",False)
Call CO.Open("","")

Свойство IsOpen все равно False, хотя никаких ошибок не выдается.

 

[Medevic]

Это такой сервер "local"?

 

[hosm]

Если БД лежит на локальном сервере, то надо "" вместо имени сервера. ну, и путь к БД считается относительно каталога данных.

 

[HelenHelen]

Спасибо большое, убрала локал и все заработало))))

 

[HelenHelen]

Коллеги, а можно еще такой вопрос: нужно программно открывать документы на редактирование и изменять в них значения текстовых полей. Метод EditDocument определен в классе NotesUIDocument, а, соответственно, нужный метод FieldSetText определен только для документа, открытого на редактирование. Есть ли какой-нибудь способ присвоить переменной класса NotesUIDocument что-нибудь кроме CurrentDocument, т.е. открыть на редактирование произвольный документ, который выбирается программно?

 

[Kizarek86]

Set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )

Чем не устраивает?

А зачем вообще открывать документ на редактирование, у Вас шифрование включено?

 

[HelenHelen]

А как же мне иначе переписать поля, не открывая на редактирование?

 

[Kizarek86]

Документы Вы можете найти нужные?

Если да, то используйте методы объекта notesDocument

valueArray = notesDocument.GetItemValue( itemName$ )
Set notesItem = notesDocument.ReplaceItemValue( itemName$, value )

 

[HelenHelen]

Документы найти можно. Но если пользоваться методом ReplaceItemValue, то в самом документе изменения не фиксируются, только в представлении. По правде не знаю, как такое возможно, но, наверно, это связано с тем, что мы не берем документ на редактирование?

 

[Kizarek86]

Если в представлении отображается измененное значение, значит оно в документе изменилось.
Ищите какое поле отображается в документе.

Если документ во время изменения значения через ReplaceItemValue открыт (чтение/редактирование), его нужно переоткрыть, т.к. получается что у Вас открыт "старый" не измененный документ

 

[HelenHelen]

Спасибо, я разобралась, просто в документе и представлении поля разные отображались)))

А еще, если можно, скажите, пожалуйста, как нужно объявить метку? Я хочу воспользоваться конструкцией GoTo, при это метка идет с двоеточием на конце, но мне дизайнер говорит, что метка не определена...

 

[Kizarek86]

Ну так определите метку.

'Код код код
Goto Метрка
'Код код код
Метка:
'Код код код

А вообще лучше не пользоваться ими, имхо метки нужны только для обработки ошибок в LS.


Добавлено: Очень много полезного узнаете в хелпе дизайнера, он довольно подробный, и почти на все есть хорошие примеры.
Не поленитесь пользоваться.

вот тут , очень полезная информация.

 

[Omh]

А вообще лучше не пользоваться ими, имхо метки нужны только для обработки ошибок в LS.

"Ящитаю" что метки можно юзать.
Например, что читабельнее и компактнее:

Dim Doc as NotesDocument
Set Doc = Dc.GetFirstDocument
While Not Doc Is Nothing
if Doc.GetItemValue(FLD1)(0) = "" then
if Doc.GetItemValue(FLD2)(0) = "" then
if Doc.GetItemValue(FLD3)(0) = "" then
!PROCESS
End if
End if
End if
Set Doc = Dc.GetNextDocument(Doc)
Wend

или

Dim Doc as NotesDocument
Set Doc = Dc.GetFirstDocument
While Not Doc Is Nothing
if Doc.GetItemValue(FLD1)(0) <> "" then Goto NextDoc
if Doc.GetItemValue(FLD2)(0) <> "" then Goto NextDoc
if Doc.GetItemValue(FLD3)(0) <> "" then Goto NextDoc
!PROCESS
NextDoc:	
Set Doc = Dc.GetNextDocument(Doc)
Wend