"Type mismatch" bei Agenten

[Jens_1]

Hallo NG,

wenn ich folgenden Code in einem Agenten manuell ausführe funktioniert alles ganz wunderbar.
Lasse ich den Agenten laufen, dann bricht das Script immer mit oben genannter Fehlermeldung bei der Forall-Anweisung ab.
In der Hilfe konnte ich nichts darüber lesen, daß die Schleife bei einem zeitgesteuerten Agenten anders zu prgrammieren ist als bei einem manuellen Agenten.

Was mache ich denn da falsch?

Gruß
 Jens

Code

' Namen der Agenten auslesen und im Array "agname" speichern	
			Forall c In sdbs.Agents
				If c.trigger = 1 Then
					If c.IsEnabled = True Then
						Redim Preserve agname(count)
						agname(count) = c.name
						count = count + 1
					End If
				End If
			End Forall

[Thomas Schulte]

wie ist dein c definiert?

[Jens_1]

Garnicht!
Wenn ich das vorher als NotesAgent definiere, dann sagt mir der Designer beim speichern "FORALL alias varialbe was previously declared: C".
Da ich nicht sicher bin, ob das definiert werden muss oder nicht habe ich nach der Fehlermeldung diese Variante auch ausprobiert.

Gruß
Jens

[ascabg]

Hallo,

Ich glaube die Variablen, die bei Forall verwendet werden, duerfen vorher gar nicht definiert werden.

@Jens_1
Wann genau steigt Dein Code denn aus?

Ich habe einen kleinen Testagenten geschrieben, und der functioniert bei mir ohne Probleme.


Andreas

[jBubbleBoy]

Vielleicht gibt es keine Agents in einem Fall

[Gandhi]

Debuggern hilft oft...
Was steht denn in sdbc.agents im Debugger?

[atbits]

Prüfe doch mal mit

Code

if isArray(sdbs.Agents)

ob es überhaupt ein Array gibt

Denn wenn keine Agenten, dann kein Array, dann kachelt der Code ab

Grüße David

[Jens_1]

Hallo,

Ich glaube die Variablen, die bei Forall verwendet werden, duerfen vorher gar nicht definiert werden.

@Jens_1
Wann genau steigt Dein Code denn aus?

Ich habe einen kleinen Testagenten geschrieben, und der functioniert bei mir ohne Probleme.


Andreas

So hatte ich das auch verstanden.
Das Script steigt genau bei "Forall c In sdbs.Agents" aus.

Gruß
Jens

[Jens_1]

Debuggern hilft oft...
Was steht denn in sdbc.agents im Debugger?

Der Debugger sagt mir, daß insegsamt 11 Agenten in diesem Datenbankobjekt stecken.
Wie gesagt - wenn ich den Agenten manuell starte funktioniert das auch reibungslos..

Gruß
Jens

[jBubbleBoy]

Woher weißt du das er bei der forall Schleife abbricht?

[dirk_2909]

Ändere Deinen Code mal folgendermaßen ab (Die Schleifenvariable ist für Notes ein Variant und
kennt die jeweiligen Methoden nicht):

Code

'Namen der Agenten auslesen und im Array "agname" speichern	
Dim c as NotesAgent
Forall ctmp In sdbs.Agents
        Set c = ctmp   
	If c.trigger = 1 Then
		If c.IsEnabled = True Then
			Redim Preserve agname(count)
			agname(count) = c.name
			count = count + 1
		End If
	End If
End Forall

[jBubbleBoy]

@Dirk: Das löst aber nicht das Problem

Das Debuggen war eigentlich Sinnlos, denn lokal geht es ja nur beim Server läuft er gegen die Wand, um ein ordentliches Errorhandling kommst du nicht drum herum.
Hast Du so etwas im Einsatz?

[ascabg]

@dirk_2909

Ändere Deinen Code mal folgendermaßen ab (Die Schleifenvariable ist für Notes ein Variant und
kennt die jeweiligen Methoden nicht)

 

Der folgende Code funktioniert bei mir ohne Probleme. Und agt ist nicht definiert und kennt alles aus der Klasse "NotesAgent".

Code

	Dim ses As New NotesSession
	Dim db As NotesDatabase
	
	Set db = ses.CurrentDatabase
	Forall agt In db.Agents
		'Msgbox agt.Name
		Print agt.Name
	End Forall

@Jens_1
Was sind denn das fuer Agenten?
Wenn Du mit dem Debugger arbeitest, dann hast Du ihn ja manuell gestartet.

Was passiert, wenn Du Deinen Agenten wie gewollt "periodisch" startest und einmal mit einem Print-Befehl "protokollierst".

Andreas

[jBubbleBoy]

Was passiert, wenn Du Deinen Agenten wie gewollt "periodisch" startest und einmal mit einem Print-Befehl "protokollierst".

Print ist aber ein unsauberes und ungenaues Errorhandling, würde ich nicht empfehlen.
Arbeite mit on error und err, erl, error und resume, bei Fragen dazu helfen wir dir gern.

[Jens_1]

Hallo,

den Fehler fange ich ab wie folgt:

Code

On Error Goto ErrHandler

[...]

ErrHandler:
	' Eintrag in's Log machen
	Call currentLog.LogError( 0, "Der Fehler mit der Nummer" & Str(Err) & " und der Meldung " & Chr$(34) & Error$ & Chr$(34) & " ist bei Zeile " & Str(Erl) & " aufgetreten.")
Exit Sub

Daher weiss ich, daß das Script genau in der Zeile mit der Schleife abbricht.

Die Agenten in der Datenbank sind diverse Agenten deren Funktion mir nicht im Detail bekannt ist.
Imho ist das aber auch nicht relevant um deren Namen auszulesen?

Gruß
 Jens

[Axel]

Mal eine ganz triviale Frage. Die ID mit dem der Agent signiert ist hat ausreichende Rechte auf die Datenbank?

Axel

[Jens_1]

Mal eine ganz triviale Frage. Die ID mit dem der Agent signiert ist hat ausreichende Rechte auf die Datenbank?

Axel

Auf jeden Fall! das habe ich bereits gecheckt.
Aber ich denke bei fehlender Berechtigung wäre die Fehlermeldung auch eine andere.

Gruß
Jens

[TRO]

Was liefert denn

TypeName ( sdbs.Agents )

bzw.

DataType ( sdbs.Agents )

zurück?

[Jens_1]

Was liefert denn

TypeName ( sdbs.Agents )

bzw.

DataType ( sdbs.Agents )

zurück?

Hab's gerade mal ausprobiert:

Print Typename (sdbs) = NOTESDATABASE
Print Datatype (sdbs) = 35

Das ist eigentlich auch genau das was ich erwartet habe.

Gruß
Jens

[Jens_1]

[...]

Der folgende Code funktioniert bei mir ohne Probleme. Und agt ist nicht definiert und kennt alles aus der Klasse "NotesAgent".

Code

	Dim ses As New NotesSession
	Dim db As NotesDatabase
	
	Set db = ses.CurrentDatabase
	Forall agt In db.Agents
		'Msgbox agt.Name
		Print agt.Name
	End Forall

[...]

Hmm - ich habe den Code gerade mal simpel in einen neuen Agenten der Datenbank gepackt und scheduled.
Null Problem!
Also kann's schon mal nichts mit dem Server oder Berechtigungen oder ähnliches sein.

Was mir aufgefallen ist:
Während hier die aktuelle Datenbank instanziert wird instanziere ich ja eine enhtfernte bzw. andere Datenbank.
Mache ich da was falsch?

Ich habe mal den kompletten Code bis zum betreffenden Teil eingefügt:

Code

	On Error Goto ErrHandler
	
	Dim session As New NotesSession		' aktuelle Sitzung
	Dim db As NotesDatabase		' Datenbank in der das Script läuft
	Dim shosts_array (1 To 2) As String	' Array mit Namen der Server welche die Quelldatenbanken die ausgewertet werden sollen hosten
	Dim sdbs_array (1 To 2) As String	                ' Array mit Namen und Pfaden der Quelldatenbanken die ausgewertet werden sollen
	Dim sdbs As NotesDatabase		' Quelldatenbanken
	Dim currentLog As NotesLog		' Logmechanismus
	Dim count As Integer			' Zähler für die Schleife zum Auslesen der Agenten
	Dim agname () As String		' Array mit den Namen der Agenten
	
	[...]
	
	Set db = session.CurrentDatabase
	Set currentLog = New NotesLog ( db.Title )
	Call currentLog.OpenNotesLog( db.Server, db.FilePath )
	
	'Quellserver
	shosts_array(1) = "server1/ou/o/c"
	shosts_array(2) = "server2/ou/o/c"
	
	' Datenbanken die ausgewertet werden sollen festlegen
	' Die Datenbanken liegen auf beiden Servern im gleichen Pfad
	sdbs_array(1) = "pfad\datenbank1.nsf"
	sdbs_array(2) = "pfad\datenbank2.nsf"
		
	Forall a In shosts_array
	 Forall b In sdbs_array			
	  Set sdbs = New NotesDatabase (a, b)
	
	count = 0
			
' Namen der Agenten auslesen und im Array "agname" speichern	
			
	Forall c In sdbs.Agents
	 If c.trigger = 1 Then
	  If c.IsEnabled = True Then
	   Redim Preserve agname(count)
	   agname(count) = c.name
	   count = count + 1
	  End If
	 End If
	End Forall

	[...]

Gruß
Jens