Abfangen wenn DB nicht geöffnet werden kann

[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

[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

.. 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
...

Axel

[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]

db.Filepath steht erst nach dem öffnen zur Verfügung.

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
	

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

[mr.real]

joa hat denn dann jemand eine antwort jetzt???

[Hoshee]

Yoo Matthias,

immer schön langsam mit den 15jährigen Pferden.
Wir sind hier nicht im IRC und spielen auch kein Warcraft o.ä.

Wenn Du nichts konstruktives zu diesem Thread beizutragen hast, dann halte Dich zurück.

Danke ...

Hoshee

[Semeaphoros]

Was soll denn hier noch für eine Antwort ausstehen?

[ata]

@Jens

... keine

ata