Autor Thema: prob bei agent  (Gelesen 1145 mal)

klaussal

  • Gast
prob bei agent
« am: 23.09.03 - 10:11:12 »
moin zusammen,

wenn ich nachfolgenden agenten per hand starte, funzt er, läuft er auf dem server, tut er nix.
es handelt sich um die log.nsf

frage : WARUM ?

Sub Initialize
Dim db As notesdatabase
Dim dbshow As notesdatabase
Dim docNew As Notesdocument
Dim view As NotesView
Dim session As New notessession
Dim docdbshow As notesdocument
   
Set db = session.currentdatabase
Set dbshow = session.GetDatabase( "HERDS121", "log.nsf" )
Set view = dbshow.GetView( "Database\Sizes" )
Set docdbshow = view.getfirstdocument

Do Until docdbshow Is Nothing
If docdbshow.form(0) = "Activity" Then
   Set docNew = db.createDocument
   docNew.form = "m_db_reads"
   docNew.title = docdbshow.Pathname(0)
                docNew.number_of_reads = docdbshow.WeekReads(0)
   Call docNew.Save(True, True)         
End If

Machweiter:
Set docdbshow = view.getnextdocument(docdbshow)   
Loop
   
End Sub

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re:prob bei agent
« Antwort #1 am: 23.09.03 - 10:20:29 »
würde vermuten er kommt mit dem

Set view = dbshow.GetView( "Database\Sizes" )

nicht klar. Linux Server ??

nimm mal den AliasNamen DataBaseSizes

Ulrich
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

klaussal

  • Gast
Re:prob bei agent
« Antwort #2 am: 23.09.03 - 10:22:21 »
..danke,
das könnte es gewesen sein, hatte mir leider die ansicht nicht GENAU angesehn. asche auf mein haupt...   ;D

klaussal

  • Gast
Re:prob bei agent
« Antwort #3 am: 23.09.03 - 13:39:34 »
... das war der fehler:
Set dbshow = session.GetDatabase( "MeinServer", "log.nsf" )

muss lauten:

Set dbshow = session.GetDatabase( "", "log.nsf" )  ;D


 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz