Domino 9 und frühere Versionen > ND7: Entwicklung

Adressbuch 'People' auslesen

<< < (2/3) > >>

antonio945:
Hallo,
hier nochmal mein Code.

Public Function fctReadAdressbook()
On Error GoTo ErrorHandling

  Dim session As Object
  Dim db As Object
  Dim doc As Object, dc1 As Object, doc1 As Object
  Dim exist As Boolean
 
   
  Dim R As Recordset
   
    Set session = CreateObject("Notes.NotesSession")
    Set db = session.GETDATABASE("sstrdm10.wk.dcx.com/Server/Prod/DCX", "People.nsf")
    If db.IsOpen = False Then
      db.OPENMAIL
    End If
 
   Set dc1 = db.Alldocuments
    Set doc1 = dc1.GETFIRSTDOCUMENT
   
    While Not doc1 Is Nothing
         
     
   If doc1.getitemvalue("Department")(0) = "AB/TEST" then
     
        Set R = CurrentDb.OpenRecordset("SELECT * from User")
        R.AddNew
        R!Lastname = Nz(doc1.getitemvalue("Lastname")(0))
        R!Firstname = Nz(doc1.getitemvalue("Firstname")(0))
        R!IDName = Nz(doc1.getitemvalue("ShortName")(0))
        R!Abteilung = Nz(doc1.getitemvalue("Department")(0))
        R.Update
 
 End If

Set doc1 = dc1.GETNEXTDOCUMENT(doc1)
       
Wend
R.Close: Set R = Nothing
db.Close: Set db = Nothing

Exit_NächsterDatensatz:
    Exit Function

ErrorHandling:

 
    Debug.Print Err.Description, Err.Number
End Function
 
 

koehlerbv:
Damit bekommst Du doch alle Einträge, die die Bedingung erfüllen ...

Bernhard

antonio945:
leider bekomme ich nur immer einen Datensatz als Ergebnbis?

Gruß antonie

Peter Klett:
Set db = session.GETDATABASE("sstrdm10.wk.dcx.com/Server/Prod/DCX", "People.nsf")
If db.IsOpen = False Then
  db.OPENMAIL
End If

Kann es sein, dass es die Datenbank nicht gibt? Wenn die Datenbank nicht geöffnet werden konnte, nimmst Du stattdessen die Maildatenbank des Benutzers. Und da ist vielleicht genau ein Dokument drin, dass die Bedingung erfüllt. Frag mich nicht nach der dahinter liegenden Logik, ist Dein Script  :)

antonio945:
Hallo zusammen,
habe das Problem gefunden.
Ein Feld meiner Tabelle hatte einen Primärschlüssel ohne Duplicate.
In meiner der Adressdatenbank von Notes waren aber doppelte Einträge.

Nach der Änderung war das Problem gelöst.

Nun noch eine Frage zum Schluss:
Wenn ich meiner Adressdatenbank mit dem Zusatz   ...."People.nsf" angebe funktioniert das Script
'Set db = session.GETDATABASE("sstrdm10.wk.dcx.com/Server/Prod/DCX", "People.nsf")  ==> Script i.O:

wenn ich mir die Eigenschaften in meiner Noteskachel Peaople- Auswahl Datenbank / Eigenschaften ansehe,
ist dort als Dateinmae ...."address/namesldo.nsf")
für People aufgeführt - siehe nachfolgend.

Welcher Dateiname hat jetzt Gültigkeit bzw. muss eingesetzt werden oder haben beide Ihre Berechtigung?


Set db = session.GETDATABASE("sstrdm10.wk.dcx.com/Server/Prod/DCX", "address/namesldo.nsf") ==> Script ebenfalls i.O:


 Gruß antonio

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete