Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumente in Datenbank suchen und Werte ändern

<< < (4/7) > >>

DAU-in:
Dim A_USER As String
Set view = db.GetView( "A_User" )
Set dc = view.GetAllDocumentsByKey("A_USER")


Ich verstehe diese Zeilen nicht.
Du deklarierst eine Stringvariable mit Namen A_User
Du setzt eine Ansicht mit dem Namen (nicht dem Wert) der Stringvariablen.
Dann erstellst du eine Collection aller Dokumente dieser Ansicht, die in der ersten Spalte den Namen der Ansicht in Grossbuchstaben enthalten.
Wozu?
Ist es das, was du wirklich willst?

Grüsse

Dau-in

DAU-in:
Set doc = collection.GetNextDocument(doc)

Woher kommt collection?

klaussal:
Und in der Hilfe gibt es dieses schöne Beispiel:


--- Zitat ---Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim dc As NotesDocumentCollection
  Dim keyString As String
  keyString = Inputbox("Subject starts with?")
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set dc = view.GetAllDocumentsByKey(keyString, False)
  Set doc = dc.GetFirstDocument()
  If dc Is Nothing Then
     Messagebox keyString,, "Not found"
     Exit Sub
  End If
  While Not(doc Is Nothing)
     Messagebox doc.Subject(0)
     Set doc = dc.GetNextDocument(doc)
  Wend
End Sub
--- Ende Zitat ---

Blitz:
Danke für die vielen schnellen Antworten! Brauche nur immer etwas zeit zum Probieren, da ich nur nebenher programmieren kann.

Habe es jetzt eingefügt.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Set db = session.CurrentDatabase
   Set view = db.GetView( "A1" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

Die Ansicht heißt A1

Wenn ich "Dim doc as NotesDokument" einfüge lässt sich das Script nicht mehr speichern.

Es kommt Class or Type not found - Notesdocument

Ich möchte im Prinzip nur, dass in alle Dokumenten in der Ansicht A1 das Feld Status in 7 geändert wird, bei denen die Variable A_User gleich mit dem ausgewählten Dokument ist.

Danke schon im Voraus.

m3:
Ahem. Du solltest doc auch einen initalen Wert zuweisen, ansonsten kommst Du nie in die While-Schleife. ;)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete