Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

OoO-Agenten Laufzeiten anzeigen lassen???

<< < (3/4) > >>

ascabg:
Hallo,

Ich dachte eigentlich immer, wenn ich eine Datenbank mit GetFirstDatabase hole (aus der Klasse NotesDbDirectory) ist diese noch nicht offen und ich muss diese erst noch explizit oeffnen, da lt. Hilfe die Datenbank mit dem angegebenen Befehl ja nicht geoeffnet wird.

Und die Fehlermeldung sagt dieses meines Erachtens ja auch aus

--- Zitat ---Database Servername!!Verzeichnis\DBName.nsf has not been opened yet.
--- Ende Zitat ---


Andreas

koehlerbv:
Stimmt, das db.Open fehlt ja auch noch.

Bernhard

Pyewacket:
Ich hole mir beim Arbeiten mit NotesDbDirectory aus der DB nur Server- und Filename
und arbeite mit einem separat definierten DB-Objekt.
Wir haben die Erfahrung gemacht daß es beim direkten Arbeiten mit dem von dbdir.Getnextdatabase
gelieferten DB-Objekt zu Fehlern kommen kann wenn die Datenbank darüber geöffnet wird.
Vereinzelt kann es vorkommen daß Datenbanken ausgelassen werden bzw mehrfach zurückgegeben werden. Leider ist es uns nie gelungen das zu reproduzieren.

Gruss
 Peter

koehlerbv:
So ähnlich mache ich das auch, allerdings nicht mit einem separaten Objekt (das kann ja kaum anders sein als das DB-Objekt, dem ich gerade Server und FilePath abgepresst habe.


--- Code: --- 'Loop thorugh all databases in the Notes data directory:
Set dbInProcess = dbdirComplete.GetFirstDatabase (DATABASE)
While Not dbInProcess Is Nothing
Call dbInProcess.Open (dbInProcess.Server, dbInProcess.FilePath)
Set repInfo = .....................

--- Ende Code ---

Bernhard

Norton:
Hallo zusammen,

erst einmal danke für die Antworten. Unsere entwicklungstechnischen Fähigkeiten waren dann nicht so gut wie erhofft. Heute morgen war unser Entwickler aber wieder da, hat diesen Thread gelesen und das Script mit den Hinweisen ruckzuck angepasst.

Hier ist das von uns verwendete Script, was hervorragend funktioniert, falls noch wer anders das mal brauchen sollte:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As New NotesDatabase ("", "")
   Dim dbdir As New NotesDbDirectory("ServerName")
   Dim ProfileDoc As NotesDocument
   Dim counter As Integer, fileNum As Integer
   Dim file As String, outStr As String
   
   file = "C:\export.csv"
   fileNum = Freefile()
   Open file For Output As fileNum
   
'Ueberpruefen der Datenbanken
   Print"Ueberpruefen der Out of Office"
   Set db = dbdir.GetFirstDatabase(DATABASE)
   While Not(db Is Nothing)
      If counter = 999 Goto ende
      If Lcase (Left(db.FilePath,5)) = "Verzeichnis" Then   
         Call db.Open( "", "" )
         Set ProfileDoc=db.GetProfileDocument("OutOfOfficeProfile")
         
         If Not (ProfileDoc Is Nothing) Then
'Schreiben des Report
            outStr = Cstr(ProfileDoc.GetItemValue("FirstDayOut")(0)) & "," & Cstr(ProfileDoc.GetItemValue("FirstDayBack")(0)) &_
            "," & Cstr(ProfileDoc.GetItemValue("$TableCurrentStatus")(0)) & "," & Cstr(ProfileDoc.GetItemValue("BookBusyTime")(0)) &_
            "," & Cstr(ProfileDoc.GetItemValue("CurrentStatus")(0)) & "," & Cstr(db.Title)
            
            If outStr <> "" Then            
               Print #fileNum, outStr
            End If
            
            counter = counter + 1
         End If
      End If
      Set db = dbdir.GetNextDatabase
   Wend
   
   Close fileNum
   
ende:
'Schlussmeldung
   Print "Ueberpruefung beendet"
End Sub

Vielen Dank für die freundliche Unterstützung

Gruß
Thomas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete