Domino 9 und frühere Versionen > Entwicklung

Status der Datenbank abfragen ...

<< < (2/3) > >>

ata:
... ob du überhaupt Zugriff hast fragst du wie folgt ab...

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim server As String
   Dim dbName As String
   Dim Level As Integer
   
   server = ""
   dbName = "DBName.nsf"
   Set db = session.GetDatabase( server, dbName )
   If db.isOpen Then
      Level = db.CurrentAccessLevel
      If Level = 0 Then
         Msgbox "Kein Zugriff",0,server +" - " + dbName
      Elseif Level = 1 Then
         Msgbox "Archivar - Einlieferer",0,server +" - " + dbName
      Elseif Level = 2 Then
         Msgbox "Leser",0,server +" - " + dbName
      Elseif Level = 2 Then
         Msgbox "Autor",0,server +" - " + dbName
      Elseif Level = 2 Then
         Msgbox "Editor",0,server +" - " + dbName
      Elseif Level = 2 Then
         Msgbox "Entwickler",0,server +" - " + dbName
      Elseif Level = 2 Then
         Msgbox "Manager",0,server +" - " + dbName
      End If
   Else
      Msgbox "Sauerei - die Datenbank existert nicht...",0,server +" - " + dbName
   End If

ata

yes2002:
hi ata,

erstmal Danke für die Mühe - aber der Fehler "user XY cannot open Databse no.nsf" tritt beim isopen bereits auf, und der Agent bleibt stehen.

Hilft leider nicht weiter - ich glaube um die on error Lösung komme ich nicht herum.

Danke

ata:
... ich habe mir eine Datenbank gebastelt - und bin noch dabei - in der ich alle Möglichen Jobs sammle und auch von dort aus laufen lasse. Ich verwende den Code in einer Aktion, und da arbeitet er einwandfrei  - scheint also Probleme im Agent zu machen...

ata

yes2002:
hi,
... funktioniert leider nicht.

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim server As String
   Dim dbName As String
   Dim Level As Integer
   
   server = ""
   dbName = "no.nsf"
   Set db = session.GetDatabase( server, dbName )
   If db.isOpen Then

Genau hier kommt vom System eine Messagebox mit der Meldung "user XY cannot open Databse no.nsf".

Wie habe ich getestet:

Eine lokale DB angelegt - no.nsf. Dann konsistente ACL eingestellt und mir alle Rechte entzogen (No Access).

Dann Script Agenten erstellt - Dein Quellcode reinkopiert und no.nsf als DB angeben.

Danke und Gruß

ata:
... wie gesagt, ich habe den Code in einer Aktion, bzw. Button, und da funktioniert er...

... ich habe eine Datenbank, in der ich "No Access" habe, und bekomme das Level 0 - Kein Zugriff zurück...

... ich arbeite mit Lotus Notes 5.05 und 5.08...

ata

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete