Suchfunktion implementieren

[DannyCrown]

Ich möchte in einer Datenbank eine eigene Suchfunktion implementieren. az möchte ich alle Dokumente einer Form durchgehen und ein Feld namens Betreff auf möglichen Inhalt prüfen. Die Dokumente bei denen das Suchkriterium erfüllt ist möchte ich dann gerne in einer Ansicht haben um sie in einer Picklist anzuzeigen o. ä.

Ich bekomme auch mittlerweile schon alle Dokumente in eine DocumentCollection, aber stehe im Moment auf dem Schlauch wie ich dann weiter vorgehen könnte.

Allerdings gibt es ja schon die Standardsuche in Notes und da kann man ja auch unter Mehr Bedingungen hinzufügen.
Wenn man dort jetzt die Bedingung "Feld betreff enthält suche" eingibt hat man genau das was ich will. Allerdings hätte ich es nicht gerne in dem grauen Kasten oben, sondern würde es lieber in Skript selber schreiben. Hat jemand ne Idee, was dazu alles benötigt wird?

quasi so:

[Spalter]

 

Hallo Daniel,

schau Dir mal die

FTSearch method

der NotesDatabaseClass an.

Gruß
Spalter

[DannyCrown]

aber die FTSearch Methode gibt mir doch auch nur ne DocumentCollection zurück, wenn ich richtig lesen kann, oder?

Syntax
Set notesDocumentCollection = notesDatabase.FTSearch( query$, maxdocs%, [ sortoptions% ], [ otheroptions% ] )

Aber die DocumentCollection hab ich ja schon mit den gesuchten Dokumenten, weiß jetzt nur nicht weiter, wie ich sie grafisch in ner Ansicht darstellen kann

[koehlerbv]

Du brauchst einen *persönlichen* Ordner für die Suchergebnisse (SPOFU). Die Docs Deiner NotesDocumentCollection kannst Du dann mit einer Methode alle dort hinein schieben.
Vor jeder neuen Suche sollte der Ordner natürlich geleert werden (auch dafür gibt es Methoden - Achtung jedoch bei Dokumenthierarchien via $Ref!).

Wenn möglich, sollte man die Suche gleich aus dem persönlichen Suchordner heraus starten lassen.. Auch dazu wurde hier schon viel geschrieben.

Bernhard

[DannyCrown]

So, das mit dem Suchen und dem Ordner klappt jetzt alles so weit, nur hab ich jetzt noch ein kleines Problem. Wenn ich den Ordner dann nach der Suche aufrufe wird er nicht in der Rahmengruppe angezeigt, sondern in dieser Standard Gliederung, wo einfach alle Ansichten und Ordner in der linken Seite stehen. Dachte eigentlich das das Problem mit nem einfachen SetTargetFrame erledigt wäre, aber wenn ich die Methode aufrufe bekomme ich folgende Fehlermeldung: "In diesem Kontext können Ansichten nicht gewechselt werden." Habe aber keine Ahnung, warum ich die Anischt nicht wechseln kann. Hat da jemand ne Idee?

Code

If dc.Count > 0 Then
dc.PutAllInFolder("Suche")		
'uiws.SetTargetFrame("Inhalt")
Call uidb.OpenView("Suche")
End If

edit: Also setTargetFrame alleine funktioniert wunderbar, nur kann ich danach halt dann nicht mehr den Ordner öffnen. Ich weiß aber wirklich nicht warum.

edit2: Komischerweise funktioniert auch ein

Code

@SetTargetFrame("Inhalt");
@Command([OpenView];"Suche")

in nem Extrabutton, aber mit LS klappts nicht

Code

Dim uiws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = uiws.CurrentDatabase
uiws.SetTargetFrame("Inhalt")
Call uidb.OpenView("Suche")

[DannyCrown]

Hat denn niemand ne Idee, warum das nicht klappt???

[DannyCrown]

Hat dieses Phänomen denn noch niemand gehabt? 

[DannyCrown]

Wenn ich

Code

uiws.OpenFrameSet("Notes Main Frameset")
Call uiws.SetTargetFrame("Inhalt")
Call uidb.OpenView("Suche")

in einer Maske aufrufe, dann klappt das auch wunderbar.
Werde dann wohl diesen Umweg über eine Suchenmaske machen, wenn das andere nicht geht