Implementierung einer Suchmaske

Stony · 10. Dezember 2007

Hallo zusammen,

ich bin gerade dabei, eine Suchmaske zu bauen.
Dies funktioniert auch schon, wenn ich alle Felder ausfülle.
Lasse ich das erste Feld leer (also SearchArray(0)="") dann bekomme ich keine Ergebnisse geliefert. Gibt es eine Möglichkeit hier irgendwie sowas wie "*" einzubauen, wenn ein Key = ""?

Hier noch der Code:

Code

Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim vc As NotesViewEntryCollection
	Dim searchArray(2) As String
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument	
	Dim nam As NotesName	
	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document

	Set db = session.CurrentDatabase

	Set view = db.GetView("Statistics")
	Set vc = view.AllEntries
	Call vc.RemoveAllFromFolder("Statistics")

	Set view = db.GetView("lvwStatistics")
	searchArray(0)=doc.ArticleNumber(0) 
	Set nam = New NotesName(doc.UserName(0)) 
	searchArray(1)=nam.Common
	searchArray(2)=doc.Location(0) 
	Set vc = view.GetAllEntriesByKey(searchArray)

	Call vc.PutAllInFolder("Statistics",True)

	Call uidoc.Refresh	

	Msgbox "Found "+Cstr(vc.Count)+ " matches"

Alles anzeigen

Die Lookupview besteht aus folgenden Spalten:
ArticleNumber, User, Location.

Vielleicht kann mir ja auch jemand einen Tipp geben, wie man die Suche anders umsetzen könnte.

Schonmal vielen Dank im Voraus.

Gruß Stony

MIND1 · 10. Dezember 2007

Mache es mit db.ftSearch, nicht über eine View. Dann kannst Du Dir die Ergebnisse hinbiegen, wie Du willst. Und schnell ist die Funktion auch, aber natürlich nur wenn ein FTIndex zu der Datenbank erstellt ist.

Gruss, Bernd

taurec · 10. Dezember 2007

Wenn du über eine View suchst dann müssen die Array Elemente mit den jeweiligen Spalten übereinstimmen, also 1. Array Element = 1. sortierte Spalte, 2. Array Element = 2. sortierte Spalte,...

Theoretisch kannst du mit Leerelementen suchen wenn die Ansicht alle möglichen Kombinationen anzeigt, d.h. jede Spalte auch mit einem leeren Element und der Option Mehrfachwerte getrennt anzeigen.

Allerdings wird das dann mit der Zeit recht langsam, da die Anzahl der darzustellenden Element in der Ansicht recht groß wird.

Idealer wäre hierbei einen Volltextindex auf die Datenbank zu legen und dann eine Volltextsuche durchzuführen, denn diese kannst du sehr flexibel aufbauen (siehe in der Designer bzw Notes Hilfe die Information über Volltextsuche).

Vor allem ist diese auch um ein Vielfaches schneller, da nicht mehr über Dokumente, sondern nur über den Index gesucht wird

Stony · 10. Dezember 2007

Hallo,

vielen Dank für eure Hilfe.

Hab es jetzt mal ausprobiert und es funzt.
Werde da noch bissl dran basteln, dann sollte es passen

Hier der Code:

Code

Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace	
	Dim db As NotesDatabase
	Dim view As NotesView	
	Dim nam As NotesName	
	Dim dc As NotesDocumentCollection
	Dim vc As NotesViewEntryCollection
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument		
	Dim query As Variant

	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document
	Set db = session.CurrentDatabase

	Set view = db.GetView("Statistics")
	Set vc = view.AllEntries
	Call vc.RemoveAllFromFolder("Statistics")


	If doc.Article(0) <> "" Then
		query = doc.Article(0)
	End If

	If doc.UserName(0) <> "" Then
		If query = "" Then
			query = doc.UserName(0)
		Else
			Set nam = New NotesName(doc.UserName(0))	
			query =query + " & "+nam.Common
		End If
	End If

	If doc.Location(0) <>"" Then
		If query = "" Then
			query = doc.Location(0) 
		Else
			query = query + " & " + doc.Location(0)
		End If
	End If

	If query = "" Then Exit Sub
	Set dc = db.FTSearch(query, 0)
	If dc.Count > 0 Then
		Call dc.PutAllInFolder("Statistics",True)
	End If

	Call uidoc.Refresh

	Msgbox "Found "+Cstr(dc.Count)+ " matches"

Alles anzeigen

Gruß Stony

taurec · 10. Dezember 2007

Nur als Hinweis:

Bei deinem Code würdest du nach Dokumenten suchen, in denen z.B. der UserName in irgendeinem Feld drinsteht.

Auf spezielle Felder bezogen suchst du z.B. mit
[FELDNAME] CONTAINS Wert

Teilen