Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 03.10.02 - 14:45:09

Titel: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 03.10.02 - 14:45:09

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

Titel: Re: Picklist auf aktuelle DB
Beitrag von: manuel am 03.10.02 - 15:57:54

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

Titel: Re: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 03.10.02 - 16:04:00

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

Titel: Re: Picklist auf aktuelle DB
Beitrag von: manuel am 03.10.02 - 16:06:17

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.

Titel: Re: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 04.10.02 - 10:25:48

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

Titel: Re: Picklist auf aktuelle DB
Beitrag von: ata am 04.10.02 - 12:38:21

Hallole,

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

Toni

Titel: Re: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 04.10.02 - 12:55:06

Hi Ata,

bist Du sicher, ich glaube dass schon ausprobiert zu haben

???


Don Pasquale

Titel: Re: Picklist auf aktuelle DB
Beitrag von: ata am 04.10.02 - 23:27:55

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

Titel: Re: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 08.10.02 - 20:58:58

Danke ata,

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

???


Ciao

Don Pasquale

Titel: Re: Picklist auf aktuelle DB
Beitrag von: ata am 09.10.02 - 01:02:24

Sorry...

der ViewName fehlt - Flüchtigkeitsfehler...

ata

Titel: Re: Picklist auf aktuelle DB
Beitrag von: Don Pasquale am 09.10.02 - 08:25:25

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