Domino 9 und frühere Versionen > Entwicklung

Abfangen wenn DB nicht geöffnet werden kann

<< < (2/3) > >>

Gruenkohl:
@ Axel:
Das geht auch nicht. Da ich die Datenbanken aus dem NotesDatenbankkatalog ziehe, kann ich keinen DB-Namen angeben zum öffnen.
db.Filepath steht erst nach dem öffnen zur Verfügung.

Axel:

--- Zitat von: Gruenkohl am 12.11.04 - 11:48:03 ---db.Filepath steht erst nach dem öffnen zur Verfügung.

--- Ende Zitat ---

Hi, das kann ich so aber nicht nachvollziehen.


--- Code: ---
Dim dbdir As New NotesDbDirectory("DEmaGKWLN003")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)

Msgbox db.Server, , "Server"
Msgbox db.FilePath, , "Datenbank"

Set db = New NotesDatabase(db.Server, db.FilePath)
If Not db.IsOpen Then
Messagebox "Die Datenbank kann nicht geöffnet werden", 16, "Fehler"
Else
Messagebox "Die Datenbank wurde erfolgreich geöffnet.", 64, "Erfolg"
End If  'If Not dbParam.IsOpen Then


--- Ende Code ---

Hab's soeben mal damit probiert und es funktioniert. Oder hab ich da was übersehen?


Axel

koehlerbv:
Axel, das Problem ist doch ein anderes: Wenn derjenige, der den Code ausführt, kein Recht hat, eine DB zu öffnen, dann kommt es zu einem Laufzeitfehler.

Das On Error Resume Next vor dem
dbopen = userdb.Open("", "")
und sofortiges Rücksetzen auf On Error Goto ErrorHandler
ist eine Variante.

Sauber wäre m.E.
On Error lsERR_NOTES_DBNOACCESS Goto NextDatabase
dbopen = userdb.Open("", "")
On Error Goto ErrorHandler

Die Marke NextDatabase: würde dann am Ende der Schleife stehen.

Bernhard

Gruenkohl:
@koehlerbv:
Genau das meinte ich.
Ich geh dann mal davon aus, dass sich das nicht ohen ein On Error Goto lösen lässt.

Werde dass dann so machen.

Danke an alle.

Gruss Andreas

Axel:
@Bernhard

da muss ich dir recht geben. Diesen Punkt hatte ich nicht bedacht.  :-\


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete