Domino 9 und frühere Versionen > Entwicklung

Abfangen wenn DB nicht geöffnet werden kann

(1/3) > >>

Gruenkohl:
Guten Morgen zusammen,

kann mir jemand sagen, wie ich abfangen kann, dass eine Fehlermeldung aufpoppt und mein Script abbricht, wenn sich eine DB nicht öffnen lässt?


--- Code: ---Set directory = New NotesDBDirectory(dbservers)
Set userdb = directory.GetFirstDatabase(DATABASE)

While Not (userdb Is Nothing)
   dbopen = userdb.Open("", "")
   If userdb.Open("", "") = True Then
   ....
   End if
Wend

--- Ende Code ---

Timo Schüring:

--- Code: ---On Error Resume Next
Set directory = New NotesDBDirectory(dbservers)
Set userdb = directory.GetFirstDatabase(DATABASE)

While Not (userdb Is Nothing)
   dbopen = userdb.Open("", "")
   If userdb.Open("", "") = True Then
   ....
   End if
Wend
--- Ende Code ---

.. und schau mal in der Hilfe nach, das gibt es auch die Möglichkeit spezifische Ausgaben bei Auftreten eines Fehlers zu generieren.

rar:
Probiers mal mit If db.IsOpen = True Then statt If userdb.Open("", "") = True Then

Gruenkohl:
@Action Kalle:
On Error Resume Next habe ich bisher auch verwendet. Wollte aber davon weg.

@rar:
Damit kann ich die DB aber nicht öffnen.

Axel:
Hi,

versuch's doch mal so:


--- Code: ---...
Set dbParam = New NotesDatabase("Servername", "Datenbankname")
   If Not dbParam.IsOpen Then
       Messagebox "Die Paramter-Datenbank kann nicht geöffnet werden", 16, "Projekte - Fehler"
       Exit Sub
   End If  'If Not dbParam.IsOpen Then
...

--- Ende Code ---

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite