Picklist auf aktuelle DB

[Don Pasquale]

Hallo Leute,

ich möchte aus einer View in der aktuellen DB einen Wert auswählen. Mir fällt dazu nur Picklist ein.
Die DB liegt aber auf dem Server.

Was kann ich statt des Pfads eingeben, damit ich
ich immer auf die aktuelle DB zugreife, egal wo sie liegt ?


picklist = ws.Pickliststrings(3,1,"","\\lotusserver\c\notes\data\MeineDB.nsf","(e4vwDokArt)", "Bitte wählen Sie eine Dokumentart aus", "TEXT2", 1,"B")


Ciao

Don Pasquale

[manuel]

Hallo Pasquale!

Mach am besten ein Objekt von NotesDatabase, also

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

Nun kannst du den aktuellen Server und Datenbankpfad auslesen:

Server -> db.Server
Pfad -> db.FilePath


Schönen Gruß
Manuel

[Don Pasquale]

Hi manuel,

Vielen Dank für Deinen Tipp, ich habe aber gehofft
dass ich auf eine View in derselben Datenbank
etwas leichter zugreifen kann.

keine andere möglichkeit  

Don Pasquale

[manuel]

nein, ich glaube es gibt keine andere möglichkeit.
versuche es mal mit zwei leeren string anstelle von server und pfad. wenns nicht geht, dann ist mein vorschlag wirklich die einzige lösung.

[Don Pasquale]

Hi manuel,

nachdem ich nochmal drüber nachgedacht habe, ist das gar nicht so umständlich.

Im aktuellen Problem habe ich dann doch etwas anders gelöst, aber Deine Lösung kann ich sicher an anderer Stelle gebrauchen.


Vielen Dank für Deine Hilfe


ciao

Don Pasquale

[ata]

Hallole,

... lass die Parameter für den Server und die Datenbank leer, dann wird die aktuell benutzte Datenbank verwendet.

Toni

[Don Pasquale]

Hi Ata,

bist Du sicher, ich glaube dass schon ausprobiert zu haben




Don Pasquale

[ata]

Hallole,

ich habs probiert, und du hast recht - in Script funktioniert das nicht, nur bei Formeln...

da bleibt also nur der Weg über die Initialisierung der Datenbank:

Dim ws As New NotesUIWorkspace
Dim session as New NotesSession
Dim result as Variant
With session.CurrentDatabase
  result = ws.PickListStrings(3,1,.server,.FilePath,"Titel","Aufforderung",1) ' # 1 = 1. Spalte
End With

[Don Pasquale]

Danke ata,

Sieht gut aus, bringt bei mir aber eine Fehlermeldung
"Notes Error, Incorrect Argument Type, String Exspected"




Ciao

Don Pasquale

[ata]

Sorry...

der ViewName fehlt - Flüchtigkeitsfehler...

ata

[Don Pasquale]

Hi ata,

hätte ich auch selber drauf kommen können,
war wohl zu spät geworden gestern.


Um diesen Thread zu einem korrekten Ende
zu führen

Die Lösung also

Code

Dim ws As New NotesUIWorkspace 
Dim result As Variant 
With session.CurrentDatabase 
result = ws.PickListStrings(3,1,.server,.FilePath,"Viewname","Titel","Aufforderung",1) 
End With 

@manuel
@ata

Nochmals vielen Dank


jetzt klappt es


Ciao
Don Pasquale