Felder in fremder Datenbank abfragen?

Nutzer81 · 29. September 2004

Hi,

ich habe eine DB zum verwalten von Rechnern, außerdem existiert eine zweite DB in der unter anderem auch die verwalteten PCs aufgeführt werden. In dieser DB werden zwar keine Daten der PCs verwaltet aber ihr Status (also z.B. running, defect...). Es wäre ein Nice-To-Have dieses Statusfeld in meine DB einzubinden - allerdings habe ich keinerlei Ansatz wie man das nennt (und ob es überhaupt geht) und bin deshalb in Literatur und Help nicht weit gekommen...

Weiß jemand von euch was über solche Themen?

Grüsse

Diali · 29. September 2004

wenn sich der Status in der einen DB ändert könnte man im QuerySave in der anderen DB den Stutusin ein Feld schreiben.

Gruß
Dirk

Nutzer81 · 29. September 2004

hmm, das hab ich jetzt nicht auf Anhieb verstanden...bin noch Anfänger...

QuerySave ist der Event, wenn ein Dokument gepeichert, oder bin ich da falsch?

aber was würde das dann bringen, wenn ich da eine Funktion hinterlege? Immerhin würde die ja nur beim Speichern ausgeführt werden - der Status ändert sich ja in der zweiten DB ja aber unabhängig davon...

Ich dachte jetzt eher an ein allgemeines Feld im Dokument und einen Agenten der regelmäßig bei der einen DB anfrägt und bei der anderen einträgt. Aber wie kann dieser Lesezugriff auf die DB mit Formel oder Script realisiert werden, da hab ich keinen blassen Schimmer?

An dieser Stelle muß ich ergänzen, das ich an der zweiten DB mit den Stati nichts designen kann, da sie nicht zu meiner Abteilung gehört...ich kann nur lesen

Grüsse

Diali · 29. September 2004

QuerrySave soll auch in den Dokumenten der 2. DB ausgeführt werden, weil sich dort ja der Status ändert.

OK, wenn Du nicht an das Desigen der 2. DB kommst, dann müsste man es mit einem periodische Agent lösen.

Du musst den Code noch testen und die Ansichts-, Datenbank- und ServerNamen noch anpassen

Code

dim session as New NotesSession
dim db1 as NotesDatabase
dim db2 as NotesDatabase
set db1 = session.CurrentDatabase
set db2 = session.GetDatabase("SERVERNAME", "PFAD und DBName")
if Not db2.isopen Then Exit Sub  ' falls DB2 nicht gefunden wird
dim view1 as NotesView
dim view2 as NotesView
Set view1 = db1.GetView("Nameder Ansicht, deren Dokumente bearbeitet werden sollen")
set view2 = db2.GetView("Name der Ansicht, in der die PCs gefunden werden können")
dim doc1 as NotesDocument
dim doc2 as NotesDocument
set doc1 = view.GetFirstDocument
While not doc1 is nothing
   set doc2 = view2.GetDocumentByKey(doc1.PC(0))
   If doc2 is Nothing then
      If doc1.Status(0) <> "" then
         doc1.Status = ""
         doc1.Save True, true, true
      End iF
   ElseIf doc1.Status(0) <> doc2.Status(0) Then
      doc1.Status = doc2.Status
      doc1.Save True, true, true
   End If
   Set doc1 = view1.GetNextDocument(doc1)
Wend

Alles anzeigen

Gruß
DIrk

Nutzer81 · 29. September 2004

Das ist ja schon die halbe Lösung...

Danke!

dnotes · 29. September 2004

Vielleicht reicht auch in Deiner ersten DB ein zur Anzeige berechetes Feld welches ueber @dblookup in der 2. DB den Status abfragt. so haste jedesmal, wenn Du ein Dokument oeffnest, den aktuellen Wert mit im Dokument der ersten DB.

Diali · 29. September 2004

Felder, die berechnet zur Anzeige sind, funktionieren aber nicht in Ansichten.

Gruß
Dirk

dnotes · 29. September 2004

Hatte ich wohl uebersehen. Dann gaebe es noch die Moeglichkeit eines berechneten Feldes und die Dokumente einmal am Tag durch einen Agent aktualisieren zu lassen (wenn das aktuell genug waere)

Teilen