Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: nsm am 20.03.03 - 12:36:14

Titel: agent aus anderer db heraus starten
Beitrag von: nsm am 20.03.03 - 12:36:14

hallo leute,

ich habe zwei agenten in zwei dbs.
agent A in db A selektiert einträge und kopiert diese in db B.
agent B in db B prüft diese einträge und führt änderungen durch.

nun will ich nicht immer in db A gehen und agent A starten und
dannach db B öffnen und agent B ausführen.
ein zeitsteuerung der agneten ist nicht möglich.

wer kann mir sagen wie ich den agent A in db A von db B heraus anspreche?

danke für die hilfensm

Titel: Re:agent aus anderer db heraus starten
Beitrag von: Axel am 20.03.03 - 12:41:53

Hi,

versuch's mal so:

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = New NotesDatabase("Servername", "Datenbank")
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
         Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
End Sub

Ich weiss allerdings nicht, ob es funktioniert.

Axel

Titel: Re:agent aus anderer db heraus starten
Beitrag von: nsm am 20.03.03 - 13:19:27

hallo axel,

danke für die rasche antwort.
habe nur noch das problem, daß die ausführugn mit der fehlermeldung,
daß die db in der aufzurufenden agent steht nicht geöffnet ist,
abbricht.

kanst du mir bitte weiterhelfen?

danke nsm

Titel: Re:agent aus anderer db heraus starten
Beitrag von: ata am 20.03.03 - 13:20:07

... muß der Agent auf dem Server laufen, oder kann er vor Ort gestartet werden?

agent.Run  => vor Ort
agent.RunOnServer => auf dem Server

ata

Titel: Re:agent aus anderer db heraus starten
Beitrag von: nsm am 20.03.03 - 13:21:14

hallo ata,

der agent soll lokal laufen.

nsm

Titel: Re:agent aus anderer db heraus starten
Beitrag von: ata am 20.03.03 - 13:29:02

... man denkt nicht immer daran, aber ab und zu wird die Notes.ini oder im Filesystem etwas eingebunden und dann wundert man sich - daher die Ergänzung...

 ;D ata

Titel: Re:agent aus anderer db heraus starten
Beitrag von: Axel am 20.03.03 - 13:31:35

Hi,

versuch's mal damit.

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = New NotesDatabase("Servername", "Datenbank")
    Call db.Open("", "")
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
End Sub


Axel

Titel: Re:agent aus anderer db heraus starten
Beitrag von: nsm am 20.03.03 - 13:36:29

hi, axel,

funkt leider auch nicht.


nsm

Titel: Re:agent aus anderer db heraus starten
Beitrag von: Axel am 20.03.03 - 13:43:08

Hi,

tjoo, nu fällt mir im Moment auch nix mehr dummes ein.  :( :(

Ein getriggerter Agent (wenn neues Dokument) kommt nicht in Frage ?

Axel

Titel: Re:agent aus anderer db heraus starten
Beitrag von: ata am 20.03.03 - 13:56:52

... versuchs mal so...

Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.getDatabase("Servername", "Datenbank")
If db.IsOpen Then
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
Else
    Print "Entweder zuwenig Rechte auf die DB, oder die DB existiert nicht....- Pfad überrprüfen..."
End If


ata