DBLookup in Lotusscript

Julgo · 18. Mai 2011

Hallo zusammen,

ich soll einen DBLookup Befehl in LotusScript umschreiben, hatte schon eine funktionierende Lösung in der ich Evaluate nutze, soll es jedoch nun auf einem anderen Weg, also mit den LotusScript-eigenen Möglichkeiten machen.

Habe so angefangen:

Call s.SetEnvironmentVar(Server, "ELS_DefServ")
Call s.SetEnvironmentVar(Data, "ELS_DefData")

Was ist nun der nächste Schritt? Gibt es eine Möglichkeit diese Zeile:

Server := @Environment("ELS_DefServ");
Data := @Environment("ELS_DefData");
@DbLookup(""; Server : Data; "SCF"; @Environment("PSS_Language") + "SAPMaterialGroup"; 2)

Mit GetDocumentByKey oder ähnlichem zu realisieren?

taurec · 18. Mai 2011

Ja genau damit macht man das in Script.

Und was ist da jetzt deine Frage ?

Julgo · 18. Mai 2011

Bei meiner Internetrecherche werde ich leider nicht schlau is dieser Funktion, da ein DBLookup meist mit Evaluate vollzogen wird. Im Designer finde ich in der Hilfe nur GetDocumentByKey -Beispiele, bei denen auf die Current Database zugegriffen wird, meine benötige Datenbank liegt jedoch nicht in der selben.

taurec · 18. Mai 2011

Dann musst du dir davor eben die entsprechende Datenbank holen, indem du ein NotesDatabase Objekt für die Datenbank, die du brauchst, erzeugst.

Du solltest dir mal das Domino Klassenmodell anschauen. Da werden genau diese Fragen beantwortet

Diali · 18. Mai 2011

Anstelle von GetDocumentByKey würde ich getAllDocumentsByKey verwenden.
An eine andfer DB kommst du mit NotesSession.GetDatabase.

Gruß
Dirk

taurec · 18. Mai 2011

Diali

Würde ich sagen hängt davon ab wie viele Werte als Rückgabe erwartet werden.
Dazu müsste sich erst mal der Fragesteller äußern

Diali · 18. Mai 2011

sehe ich anders, weil ein DBLookup als Suche alle Dokumente, die dem Key entsprechen zurückgeben.

Damit müssen im Script ggf. auch alle Dokumente zurückkommen.

Wird nur ein Dokument erwartet, geht getDocumentByKey natürlich auch.

Alternativ geht auch notesSession.Evaluate

Gruß
Dirk

taurec · 18. Mai 2011

Diali

Wenn bei dem DBLookup aber dann z.B. ein @Subset folgt, dann ist GetDocumentByKey besser geeignet als Ersatz.

Wie gesagt hängt das davon ab was mit den DBLookup Ergebnissen dann geschieht

Diali · 18. Mai 2011

naja die Frage war

Zitat

ich soll einen DBLookup Befehl in LotusScript umschreiben, ...

und ein GetDocumentByKey liefert eben nicht das gleiche Ergebnis (nicht den gleichen Inhalt!) wie ein DBLookup. Im Gegensatz zu einem GetAllDocumentsByKey, da wird eine NotesDocumentCollection mit den Dokumenten zurückgegeben, die in der verwendeten Ansicht mit dem entsprechenden Schlüssel in der ersten sortierten Spalte angezeigt werden.

In dem Ausgangspost wird auch nicht nach einem Dokument gefragt, sondern nach einer Alternative von @DBLookup im Script.

Gruß
Dirk

taurec · 18. Mai 2011

Na ja umschreiben muss ja nicht heissen, daß man das ganze dann nicht auch gleich auf den jeweiligen Zweck optimiert.

Dann müsstest du aber z.B. auch noch dazu sagen, daß der zweite Parameter dann auf True gesetzt sein muss, denn sonst ist das Ergebnis bei GetAllDocumentsByKey auch wieder anders als bei DBLookup

setherus · 19. Mai 2011

hi,

ich würde auch das beispiel von diali nehmen, alleine schon aus erfahrungswerten...alternativ ist der vorschlag von taurec nicht falsch, aber ebend nur wenn genau ein dokument erwartet wird, di möglichkeit nutze ich aber nur für einwegfunktionen...wie gesagt dialies weg ist der bessere meiner meinung nach, da man noch diverse abfragenprüfungen machen kann...kleines code beispiel, wie sie auch in der hilfe zu finden sind...
#######################
dim session as new notessession
dim db as notesdatabase
dim col as notesdocumentcollection
dim doc as notesdocument
dim neudoc as notesdocument
dim view as notesview
dim i as integer

....

'Hier wird die neue Datenbank geholt
set neueDB as new notesdatabase( Server, Datenbank)
'hier holen wir uns die Ansicht, für die Suche (wie in @DBLookup)
set view = neueDB.getview(Ansichtenname)

'alle Dokumente mit dem schlüssel holen
set col = view.getalldocumentsbykey( Schlüssel , true)
'Prüfung haben wir etwas?
if col.count < 1 then
msgbox "Nichts gefunden"
exit sub
end if
for i = 1 to col.count
set neudoc = col.getnthdocument(i)
......
next
....
end sub
##################

ich hoffe ich konnt ein wenig helfen

aweinrei · 19. Mai 2011

entscheidend ist vor allem der zweite parameter -> true!!!
ansonsten wird über script evtl. ein 'ähnliches' ergebniss zurückgeliefert

dim s As New NotesSession

set db = s.CurrentDatabase 'aktuelle datenbank
oder
set db = s.GetDatabase(server, filepath) 'beliebige datenbank

set v = db.GetView(view)

key = "suchstring"

set col = db.GetAllDocumentsByKey(key, True) 'document collection
oder
set note = db.GetDocumentByKey(key, True) 'notes document

Teilen