Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Floink am 02.03.11 - 09:15:08

Titel: Pfadname als variable -> Problem?
Beitrag von: Floink am 02.03.11 - 09:15:08

Hallo,

folgendes Problem:

Ich will ein einem Agenten auf eine andere DB zugreifen. Dafür benutze ich:

Code

Dim Konfigdb As New Notesdatabase("Servername" , "Dateipfad.nsf")

Das funktioniert auch. Nun will ich den Servername und Dateipfad aber nicht hardcoden. Dieser liegt im format "Servername:Dateipfad" in einem Profildokument.

das lese ich aus:

Code

Dim AdminProfDoc as NotesDocument
Set AdminProfDoc = db.GetProfileDocument("(dbpath)","admindb")
Dim Adminpath as variant
Adminpath = doc.getitemvalue("path")(0)

Wenn ich jetz aber schreibe:

Code

Dim Konfigdb As New Notesdatabase(Adminpath )

Mekert der Skripteditor wegen eines "Missing argument constructor for: Notesdatabase" für diese Zeile. Da er ja eigentlich (Servername, Filename) erwartet. Funktionieren tut es aber.

Ist es noch nötig die Variable in die beiden Bestandteile zu zerlegen, oder kann man das so lassen ohne irgendwann Probleme zu bekommen?


MfG Matthias

Titel: Re: Pfadname als variable -> Problem?
Beitrag von: Peter Klett am 02.03.11 - 09:55:07

Wenn der Scripteditor meckert, kann es da nicht sein, dass zur Ausführung das letzte korrekte Script verwendet wird?

Ich würde da keine Experimente wagen, zumal bei jedem weiteren Bearbeiten des Scriptes die Fehlermeldung immer wieder kommen wird. So aufwendig ist es ja nun nicht, aus einem String zwei Werte zu machen, da hat das Schreiben Deines Beitrages sicher länger gedauert ...

Titel: Re: Pfadname als variable -> Problem?
Beitrag von: Floink am 02.03.11 - 10:29:03

Zitat von: Peter Klett am 02.03.11 - 09:55:07

da hat das Schreiben Deines Beitrages sicher länger gedauert ...

.. da könntest du recht haben..

ich zerleg den Eintrag des Profildokuments jetz mit

Code

	adminserver = StrLeft(Admindbpath,":",5,1)
	adminDB= StrRight(Admindbpath,":",5,1)

und bau es unten wieder zusammen ;-)

Code

Dim Konfigdb As New NotesDatabase(adminserver , admindb)

Scheint zu funktionieren... danke   ::)