Domino 9 und frühere Versionen > Entwicklung

Dokumente vergleichen und ausgeben (FtSerach)

<< < (2/8) > >>

Glombi:
So sollte das in etwa aussehen:

set dc = targetdb.Search( |Nachname = "| + doc.LastName(0) + |"| )


targetdb = Deine Adressdatenbank
doc = das Dokument im pers. NAB
Nachname = Feldname in Deiner Adressdatenbank

Andreas

Selin:
Sub Initialize
   
   
   Dim targetdb As New NotesDatabase( "", "VIP.nsf" )
   Dim doc As NotesDocument
   
   
   Set doc = targetdb.Search( |Lastname = "| + doc.LastName(0) + |"| )
   
   
   
End Sub


So hat es nicht geklappt. Was ist falsch?

Glombi:
Da fehlen so circa 20 Zeilen Code drum herum. Ich wollte ja nur einen Ansatz geben und nicht den kompletten Code.

set doc  =
 muss
set dc =
heissen, da db.Search eine NotesDocumentCollection liefert.

Andreas

Selin:
Was ist denn hier dran falsch?


                Dim s As New NotesSession
   Dim targetdb As New NotesDatabase( "", "VIP.nsf" )
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection
   
   
   Set dc = targetdb.Search( |Lastname = "| + doc.LastName(0) + |"|,dateTime,0 )
   Set doc = dc.GetFirstDocument
   
   While Not (doc Is Nothing)
      Set doc = dc.GetNextDocument(doc)
   Wend

Glombi:
Ich schiebe noch mal an...

Dim s As New NotesSession
dim db as NotesDatabse
Dim targetdb As New NotesDatabase( "", "VIP.nsf" )
Dim dc As NotesDocumentCollection
Dim checkdc As NotesDocumentCollection
Dim doc As NotesDocument

dim found as integer

set db = s.CurrentDatabase
set checkdc = db.UnprocessedDocuments
set doc = checkdc.GetFirstDocument
do while not doc is nothing   

found = false
   
   Set dc = targetdb.Search( |Lastname = "| + doc.LastName(0) + |"|,Nothing,0 )
if dc.Count > 0 then
found = true
'Hier gibt es einen Treffer:

else
' Kein Treffer: Dok. kann kopiert werden

end if

loop   'do while not doc is nothing



doc sind die Dokumente in Deinem pers. Adressbuch. Der Code sollte dann in einem Agenten sein. der über alle gewählten Dokumente geht.

Verwende doch mal den Debugger, da siehst Du. wann es einen Fehler gibt und welche Objekte nicht gesetzt sind.
Dann vertiefe Dich mal in die Beschreibung der Klassen in der Designer Hilfe und schau Dir auch mal die Beispiele dort an. Das ist eigentlich eine gute Basis für die Einarbeitung in Script.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete