Database xy has not been opend yet

[tabama]

Ich will aus einer DB eine Volltextsuche in einer anderen DB ausführen.

Im Debuger sehe ich, dass Zugriff auf die andere DB habe. Allerdings bekomme ich beim "search" den o.g. Fehler.
Führe ich das Script in der Original-DB aus (natürlich angepasst), funktioniert es.

Woran liegt das?

[cebolina]

Auf Anhieb würde ich sagen, es fehlt sowas:

Code

If dbXY.IsOpen then
   ...
End if

Stefan

[koehlerbv]

Oder ein
Dim dbOther As New NotesDatabase ("", "")

[Keydins]

ggf. fehlt auch ein
Call db.Open( "", "" )

Gruß
Dirk

[tabama]

Danke für die Antworten. Aber das mit dem "New" und dem "Call" hatte ich auch schon in anderen Beiträgen gefunden. Das bringt das selbe Ergebnis.

Das Problem ist ja auch nicht, dass die DB nicht da ist, wenn ich sie wie gewohnt mit "Set db = session.GetDatabase("", "xy")" hole.
Erst wenn ich den search ausführe, kommt der Fehler.

[koehlerbv]

Code?

[tabama]

<sub>Option Public
Option explicit

Dim db As NotesDatabase
Dim dbVA As NotesDatabase
Dim dc As NotesDocumentCollection
Dim dcVA As NotesDocumentCollection
Dim doc As NotesDocument
Dim docVA As NotesDocument
Dim query As String
Dim pn As String   
Dim ts As String
Dim te As String

Sub Initialize
   Dim session As New NotesSession
   Set db = session.CurrentDatabase
   Set dbVA = session.GetDatabase("", "Vertragsabrechnung")
   Set dc = db.UnprocessedDocuments   
   Set doc = dc.GetFirstDocument
   Call haupt   
End Sub

Sub haupt
   pn = CStr(doc.pn(0))
   ts = Left(CStr(doc.TxTSLEinzelauftrag(0)),2)
   te = Right(CStr(doc.TxTSLEinzelauftrag(0)),2)
   query = |form = 'HUM' & HU_PN_v <= | + pn + | & HU_PN_b >= | + pn + | & HU_TS_v <= | + ts + | & HU_TS_b >= | + ts + | & HU_TE_v <= | + te + | & HU_TE_b >= | + te
   Set dcVA = dbVA.Search(query, Nothing, 0)
      If dcVA.count = 0 Then
         doc.UmsatzGrp = "15 = Sonstige"
      ElseIf dcVA.count > 1 Then
'         MessageBox "F E H L E R, bitte Admin verständigen", MB_OK, "Umsatzgruppe"
      Else
         Set docVA = dcVA.GetFirstDocument
         doc.UmsatzGrp = docVA.HU_UgpNa(0)
      End If
End Sub</sub>

[dnotes]

Hast Du Dir den querystring mal anzeigen lassen? Vielleicht stimmt damit ja etws nicht.

[tabama]

Hallo,

das query stimmt, da ich es 1:1 aus eine script heraus kopiert habe, wo es funktioniert. Ich habe das Ganze nämlich erst in der Original-DB getestet.

[koehlerbv]

Eine falsche Query gibt entweder Formula-Gemecker oder eben keine Resultate.
Ausreichenden Zugriff auf die DB hast Du bzw. die ausführende ID?

By the way: Du führst mit NotesDatabase.Search keine Volltextsuche aus, Martin.

Bernhard

[Driri]

Sicher, daß die Zuweisung von dbVA korrekt ist ?

Sieht für mich ein wenig merkwürdig aus, daß da eine lokale Datenbank mit Dateinamen "Vertragsabrechnung.nsf" geöffnet werden soll. Könnte aber auch an meiner persönlichen Vorliebe für 8.3-Dateinamen liegen 

[dnotes]

Und die Variablen ts, te und pn haben auch einen Wert?

[Keydins]

Wenn das Script auf dem Server läuft ist der Serverparameter bei der Zuweisung von dbVA korrekt.


Aber wie Stefan schon schrieb, ein dbVA.IsOpen in den Code einbauen, um zu prüfen, ob die entfernte DB tatsächlich offen ist, wäre sinnvoll.

In dem Zusammenhang ggf. noch den 3. Parameter von ses.GetDatabase auf False setzen, um zu verhindern, dass ein Datenbankobjekt erzeugt wird, obwohl es die Datenabnk gar nicht gibt bzw. kein Zugriff darauf besteht. Per Default ist er True, wenn man ihn weglässt.

[dnotes]

Wenn Du schreibst Du siehst im Debugger dass Du Zugriff auf die andere DB hast - was immer das auch heissen mag - siehst Du im Debugger denn auch unter den DB-Eigenschaften einen DB-Titel??
Wenn nicht hast Du höchstwahrscheinlich auf eine nicht existierende Db referenziert. ( Dateiname falsch geschrieben, Pfad nicht korrekt oder keine Zugriff)

[Driri]

Wenn das Script auf dem Server läuft ist der Serverparameter bei der Zuweisung von dbVA korrekt.

Schon klar. Aber da im Script Messageboxes verwendet werden, gehe ich mal von einem Aufruf im Client aus. Und dann wäre das eine lokale DB, daher die Fragen.

[Axel]

Du solltest auf jeden Fall prüfen, ob die Datenbank vorhanden und sich öffnen lässt.

So kann eine einfache Art der Fehlerbehandlung aussehen.

Sub Initialize
   Dim session As New NotesSession
   Set db = session.CurrentDatabase
   Set dbVA = session.GetDatabase("", "Vertragsabrechnung")

   If Not dbVA.IsOpen Then
       Messagebox "Datenbank kann nicht gefunden bzw. geöffnet werden"
       Exit Sub
  End If

   Set dc = db.UnprocessedDocuments  
   Set doc = dc.GetFirstDocument
   Call haupt  
End Sub

Du solltest einen Code nie ohne die entsprechende Fehlerbehandlung erstellen.

Axel

[tabama]

Danke für die vielen Antworten, bin aber jetzt erst dazu gekommen sie zu lesen.

Verständnisfrage:
Wenn ich die DB im Debuger sehe (also auch mit Werten), dann ist sie doch richtig zugewiesen und ich habe auch Zugriff. Oder muss ich mir da noch um andere Dinge Gedanken machen (sprich Prüfungen einbauen)?

@Bernhard:
Was meinst du mit "keine Volltextsuche"? Ich gehe doch nicht auf einen Index, sonder würfele mir die Dokumente doch aus mehreren Bedingungen zusammen.

Infos:
Ausgeführt wird der Agent über den Clienten (ausgewähle Dokumente).

[umi]

Hallo

Müsste es nicht

Code

set dbVA = session.getDatabase("","Vertragsabrechnung.nsf") 

sein ?

Auf jedenfall mit IsOpen prüfen ob Notes die DB geöffnet hat oder nicht.

[Ralf_M_Petter]

Auf welche Platform läuft das Script?

[koehlerbv]

Hallo

Müsste es nicht

Code

set dbVA = session.getDatabase("","Vertragsabrechnung.nsf") 

sein ?

Auf jedenfall mit IsOpen prüfen ob Notes die DB geöffnet hat oder nicht.

Yipp.