Datenbank schliessen

HeikoE · 5. August 2005

Hallo ich habe folgenden Code in einer Gemeinsamen Aktion:

Sobald der User mit Ja antwortet soll nciht nur die Methode beenden werden, sondern komplett die Datenbank geschlossen.

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As Notesdatabase
	Dim nuid As NotesUIDocument
	Dim PUIW As New PavoneUIWorkspace
	Dim msg As String
	Dim boxType As Long
	Dim answer As Integer

	Set db = session.currentDatabase

	boxtype& = 4 + MB_ICONEXCLAMATION
	msg = | Hat der neu anzulegende Benutzer bereits einen NT-User?
Is the new user owner of an NT-User?|

	answer = Messagebox (msg,boxtype&,"Wichtige Information")

	If answer="6" Then
		msg =|Bitte beantragen Sie die neuen User, per Mail über Herrn Erwin Völker
Der Vorgang wird abgebrochen
Please contact Mr. Erwin Voelker.
|
		boxtype&= MB_OK + MB_ICONSTOP
		Messagebox msg,boxtype&,"STOP"
		Call db.close
		'Exit Sub

	End If
	If answer <>"6" Then		
		Call PUIW.StartNewJob("UserManagement", "Antrag für neuen User erstellen" , "", True, False, False)
	End If
End Sub

Alles anzeigen

Das geht aber nicht.
Fehlermeldung: Cannot close the context Database

Hat jemand eine Idee, wie das zu lösen ist?

Viele Grüße

Heiko

bhort · 5. August 2005

Du versuchst in Deinem Script, die Backend-Variante der Datenbank zu schließen. Richtiger wäre es die Frontend-Datenbank zu schließen. Beispiel aus der Designer-Hilfe:

Code

Sub Click(Source As Button)    
  Dim ws As New NotesUIWorkspace  
  Dim uidb As NotesUIDatabase  
  Set uidb = ws.CurrentDatabase  
  Call uidb.Close  
End Sub

HeikoE · 5. August 2005

Close is not a Member

Ich entwickel unter R5, falls das der Fehler ist?

hark · 5. August 2005

Ein Fehler ist es schon, nicht auf R6 zu aktualisieren, aber da kannst du ja vermutlich nichts für.

Tatsächlich gibt es die Methode NotesUIDatabase.Close() erst seit R6. Ein NotesDatabase.Close() gibt es gar nicht, auch nicht in R6. Und wenn es das gäbe, dann dürfte es auf keinen Fall das tun, was du willst.

Schließen von Fenstern geht immer nur über Frontend-Aktionen, also entweder die passende UI-Klasse (wie z.B. NoteUIView) oder über @Commands.

HeikoE · 5. August 2005

Zitat

hark schrieb:
Ein Fehler ist es schon, nicht auf R6 zu aktualisieren, aber da kannst du ja vermutlich nichts für.

Damit hast du Recht.

Tja dann kann ich das eben nicht so machen. Die Aktion sollte quasi eine "Lernhilfe" für unsere User sein, dass sie keine dummen Sachen mit der Datenbank machen.

Hoffentlich lernen sie es durch die Pop-Ups.

Grüße

Heiko

Teilen