Autor Thema: agent aus anderer db heraus starten  (Gelesen 1643 mal)

Offline nsm

  • Frischling
  • *
  • Beiträge: 44
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
agent aus anderer db heraus starten
« 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

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:agent aus anderer db heraus starten
« Antwort #1 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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline nsm

  • Frischling
  • *
  • Beiträge: 44
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:agent aus anderer db heraus starten
« Antwort #2 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

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:agent aus anderer db heraus starten
« Antwort #3 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
Grüßle Toni :)

Offline nsm

  • Frischling
  • *
  • Beiträge: 44
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:agent aus anderer db heraus starten
« Antwort #4 am: 20.03.03 - 13:21:14 »
hallo ata,

der agent soll lokal laufen.

nsm

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:agent aus anderer db heraus starten
« Antwort #5 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

« Letzte Änderung: 20.03.03 - 13:29:37 von ata »
Grüßle Toni :)

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:agent aus anderer db heraus starten
« Antwort #6 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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline nsm

  • Frischling
  • *
  • Beiträge: 44
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:agent aus anderer db heraus starten
« Antwort #7 am: 20.03.03 - 13:36:29 »
hi, axel,

funkt leider auch nicht.


nsm

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:agent aus anderer db heraus starten
« Antwort #8 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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:agent aus anderer db heraus starten
« Antwort #9 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
Grüßle Toni :)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz