Open DB Fenster

[TomLudwig]

Hallo,
ich möchte eine Art Dialogliste haben die bei der Auswahl das gleiche wie bie "Datenbank öffnen" anzeigt.
Und dann die Ausgewählten DB (Pfad) und den ausgewählten Server in ein Feld schreibt. Aber wie?

Hintergrund:
Es soll per Script die Datenbank geöffnet werden und dann die ACL ausgelesen werden.

[Semeaphoros]

notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )

[TomLudwig]

Durch diesen Befehl wird nur ein File-Dialog angezeigt. Ich möchte aber den Server und die darauf befindlichen Datenbanken auswählen...

[Semeaphoros]

@Prompt([CHOOSEDATABASE] ......) über Evaluate einbinden

[TomLudwig]

Es funktioniert nicht (wird einfach übersprungen!!!)

HILFE

Dim session As New NotesSession
Dim vDB As Variant
vDB = Evaluate("@Prompt([ChooseDatabase];""; ""; ""; "")")

[Semeaphoros]

Welche Version? Evaluate hat sich im Verlaufe von R5 ständig verbessert

[Semeaphoros]

Ok, sehe gerade, @Prompt funktioniert nicht innerhalb von Evaluate (offenbar alle, die das UI betreffend). Da hab ich aber im Moment auch keine weitere Idee.

[koehlerbv]

UI-Sachen gehen nicht mit Evaluate.

Bau Dir einfach eine Maske, dort einen Button mit @Prompt... und speichere Server und PathFile in Felder.
Das ganze rufst Du dann mit ws.Dialogbox auf und übernimmst die Werte in LS.

HTH,
Bernhard

[eknori]

meinst du so ??

REM "The four blank arguments are required";
db := @Prompt([ChooseDatabase];""; ""; ""; "");
@If(@Elements(db) <3; @Return(""); "");
server := @Subset(db; 1);
path := @Subset(@Subset(db; 2); -1);
title := @Subset(db; -1);
@Prompt([OK]; "Result"; "Server = " + server + " Path = " + path + " Title = " + title)

[Semeaphoros]

Ach ja, natürlich, diabox mit Form ...... wo war ich denn heute? :-)

[eknori]

und in script geht das mit einer undokumentierten Sache so

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim varChoice As Variant
'Undocumented arguments for Prompt
'variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
'Type 13 is ChooseDatabase, remaining arguments ignored.
   varChoice = ws.Prompt(13, "", "", "", "")
   Msgbox varChoice(1)
'check in debugger for results

wobei

varChoice(0) = Server
varChoice(1) = Database
varChoice(2) = Datenbanktitel
End Sub

[Semeaphoros]

Nice, danke, genau das hab ich mich gefragt, warum das über die Prompt-Methode eigentlich nicht gehen sollte. Schliesslich sollte die doch zu @prompt äquivalent sein.

[Blackraven]

R5:

hab das mit dem WS.Prompt (13,"","","","") probiert, aber leider bekomm ich nur den Server zurück.

Andere Möglichkeit?

[DatenDuck]

Homer Simpson: "NEIN"..
Selbes Problem hier... 

[Axel]

und in script geht das mit einer undokumentierten Sache so

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim varChoice As Variant
'Undocumented arguments for Prompt
'variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
'Type 13 is ChooseDatabase, remaining arguments ignored.
   varChoice = ws.Prompt(13, "", "", "", "")
   Msgbox varChoice(1)
'check in debugger for results

wobei

varChoice(0) = Server
varChoice(1) = Database
varChoice(2) = Datenbanktitel
End Sub

Ich habe es probiert. Geht einwandfrei. Wie sieht denn dein Code aus?


Axel

[DatenDuck]

Naja... Genau so wie hier im Forum... Dank Copy&Paste...
Problem ist scheinbar der deutsche R5.0.11 Client...

[koehlerbv]

Mit irgendeiner Notes 5-Version geht es wohl (5.0.13 ?), aber mit dieser Einschränkung ist dieser nicht dokumentierte Parameter in R5 nicht zu verwenden.

Bernhard