Domino 9 und frühere Versionen > ND7: Entwicklung

Zugriff auf Datenbank in einer fremden Domäne über WebQuerySave-Agent

<< < (2/3) > >>

koehlerbv:
Wir brauchen Code ... Wie ist das Datenbankobjekt deklariert?
Dim dbRemoteServer As New NotesDatabase ("", "")
sollte schon sein, und dann entsprechend zuweisen. Ohne Code ist das jetzt aber ins Dunkle gefeuert ...

Bernhard

ata:

--- Zitat ---Ohne Code ist das jetzt aber ins Dunkle gefeuert ...
--- Ende Zitat ---

... sehe ich auch so.

Die Fehlermeldung deutet darauf hin, daß die Datenbank entweder nicht richtig initialisiert wurde => Schreibfehler bei Server und/oder Pfad, oder du dort keine Rechte auf die Datenbank hast...

Toni

machineslave:
Hallo,

die Berechtigung habe ich überprüft, die stimmt soweit.
Hier wäre der Code:

Sub Initialize
   Dim session As New NotesSession
   Dim db      As New NotesDatabase("", "")
   Dim view    As NotesView
   Dim doc     As NotesDocument
   Dim nabDoc     As NotesDocument
 
   Set doc = session.DocumentContext
   
   
   On Error Goto fehler
   Call db.Open("<server>", "names.nsf")
   Set view = db.GetView("($VIMPeople)")
   aUser = doc.UserName(0)
   Set nabDoc = view.GetDocumentByKey(aUser)
   If Not (nabDoc Is Nothing) Then
      nabDoc.JobTitle = doc.JobTitle
      Call nabDoc.save(True, False)
   End If
   Print "Success"
   Exit Sub
   
   
fehler:
   Print Erl
   Print Err
   Print Error
   Exit Sub
End Sub

m3:
Ich würd mal nach dem db.Open einen Test einbauen, ob die DB auch wirklich offen ist.

machineslave:
Wenn ich folgenden Code verwende:

flag = db.Open("<server>", "names.nsf")
print flag

... bekomme ich False ausgegeben.
Merkwürdig ist halt, warum er mir nicht sagt, warum er die DB nicht öffnen kann.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete