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

Fehlermeldung: Die maximale Ordneranzahl wurde in der Datenbank überschritten

<< < (3/5) > >>

Stefan_Power_2000:
Hallo,

schon mal vielen Dank für die Rückinfos.

Da ich bisher noch nie mit dem Programmieren von Agenten zu tun
hatte hätte ich dazu noch ein paar kurze Fragen:

Bei Öffnen des Agenten bietet er mir auf der Programmierebene
die Optionen

- Formeln
- Einfache Aktionen
- LotusScript
- JavaScript

an. Ich gehe davon aus, dass ich LotusScript wählen muss.


Das ganze habe ich dann folgendermaßen unter Declarations eingegeben.

Dim db As NotesDatabase
Dim dc As NotesDocumentCollection

Dim session As New NotesSession

Set db = New NotesDatabase( "", "" )
Call db.Open("D:\","Test.nfs")
If db.IsOpen Then
Set dc = db.AllDocuments
Msgbox "Es sind " + Cstr(dc.Count) + " Dokumente in der DB"
Else
Msgbox "DB kann nicht geöffnet werden"
End If

Bis auf die beiden ersten Zeieln die Notes selber vorgiebt
sind alle anderen rot hinterlegt und es kommt bei jeder Zeile
die Fehlermedlung illegal executabel code

Da ich bisher noch nie unter notes programmiert habe würde
ich mich freuen wenn mir jemand diesbezgl. eine
detaillierte Hilfe zukommen lässt.

Die Datenbank selber habe ich Test.NSF genannt und liegt direkt im Laufwerk D:\
Wie müsste dann die Serverangabe etc. lauten.

Ich hoffe dass ich mich der Lösung annähere.

@eknori: Ebenso danke für die Erklärung, da ich aber bisher nur
ein Anwender war weiss ich noch nicht wie ich das umsetzen soll.
Gibt es Möglichkeiten diese Vorgehensweise von einem Notes aus
als Anwender durchzuführen?

Schon mal Danke und Grüße
Stefan

guesswho:
Hi Stefan,

hast du denn niemand um dich rum, der schon mal gescriptet hat ?!

LotusScript ist richtig. Dann noch auslösen, Durch Ereignis, Auswahl in der agentenliste, dann kannst du den Agent in der Liste aller Agenten direkt starten, Ziel: Keines (das wählst du mit dem Script)

Wenn du die Datenbank lokal hast, dann lautet der Server "", also leerer String.

Nach deinen Angaben auf Laufwerk D:\

Call db.Open("","d:\test.nfs")

Edit: Code NICHT unter Declarations, sondern unter Initialize.... sorry. Deshalb ist alles rot....

Jo

Stefan_Power_2000:
Hallo,

Script habe ich jetzt eingefügt.


   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim session As New NotesSession
   
   Set db = New NotesDatabase( "", "" )
   
   Call db.Open("","d:\test.nfs")
   
   Msgbox"Hallo"
   
   If db.IsOpen Then
      Set dc = db.AllDocuments
      Msgbox "Es sind " + Cstr(dc.Count) + " Dokumente in der DB"
   Else
      Msgbox "DB kann nicht geöffnet werden"
   End If


Agent lässt sich auch im Menüpunkt
Aktionen aufrufen. Leider passiert nichts.
Ich habe zu Beginn noch den Befehl

    Msgbox"Hallo"

eingefügt, aber auch diese MsgBox kommt nicht.
Muss ich hier noch etwas einstellen um den Script zu aktivieren?

Schon mal Danke
Gruß
Stefan

   

Stefan_Power_2000:
Hallo,

jetzt funktioniert es.

Ergebnis des Script: Datenbank kann nicht geöffnet werden.

Ich habe es zusätzlich noch mit einer i.O. Datenbank ausprobiert.
Hier wird analog notespeek die richtige Anzahl an Documenten angezeigt.

Weiss noch jemand Rat?

Ach ja ... mein Fehler war ich hatte die Endung der Datenbank falsch geschrieben

Ich bin kurz vor der Zweiflung

Grüße
Stefan

Glombi:
Das hört sich echt nicht gut an. Versuche noch die Methode von eknori.

Wenn das auch nicht geht:  >:(

Das keine Warnung vorher kommt ist einer dieser echt üblen Eigenschaften von Notes.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete