Domino 9 und frühere Versionen > ND6: Entwicklung
Lotus Script - Zugriff auf anderen Server
HipSlu:
leider....
dbcheck = OpenDatabaseInBackendAgent(MailServer, MailFile, "")
'Dim dbcheck As New NotesDatabase(MailServer, MailFile)
level = dbcheck.CurrentAccessLevel
==>
14:03:23 : Agent <REPLICA> gestartet
14:03:23 : #######################
14:03:23 : xx/xx/xx wird bearbeitet
14:03:23 Error : Line 57 / Error 202: SET required on class instance assignment
14:03:23 Error : Line 59 / Error 183: Variant does not contain an object
14:03:23 Error : QUELL-Datenbank xx/xx/xx / mail\xxx.nsf Access-Level nicht MANAGER: 0
14:03:23 : #######################
das script gibt zwar eine db zurück, aber eine leere....
Doc Torte:
ich weis ja nicht, wie Deine Übergaben aussehen, vielleicht hängts da ja schon ?
...jup, hatte ja geschrieben, das die funktion immer eine Datenbank zurückliefert.
Doc Torte:
--- Zitat von: Doc Torte am 29.08.03 - 13:39:06 --- iServer = xdb.Server
--- Ende Zitat ---
diese Zeile müßtest du mal noch ausschalten, denn er sucht ja so auf dem gleichen server !
Axel_Janssen:
1. muss der Funktionsheader nicht besser heißen ???:
--- Code: ---Function OpenDatabaseInBackendAgent(iServer As String, iDBName As String, iDBReplicaID As String) As NotesDatabase
--- Ende Code ---
Also mit deklarierten Return-Datentyp (As NotesDatabase). Wenn man das wegläßt liefert die Funktion immer Variant zurück, oder?
2. @HipSlu. Versuch mal:
--- Code: ---
Set dbcheck = OpenDatabaseInBackendAgent(MailServer, MailFile, "")
--- Ende Code ---
also mit set. Die Funktion liefert ja ein Objekt zurück und das geht immer mit dem Schlüsselwort 'set'.
Doc Torte:
...man kann die funktion als NotesDatabase declarieren, okay.
daß er das Set nicht benutzt hat ist mir garnicht aufgefallen - aber da sieht man wieder, wer lesen kann ist klar im Vorteil ;-)
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln