Agent soll nach vorhandensein von DBs prüfen

[BoneCrusher]

Mahlzeit zusammen...

Wie kann ich mit einem Agenten prüfen ob eine DB existierst?
Wenn nicht soll er mir die DB eben erstellen mit Schablone x.

Wie kann ich in gleichem zug Doks aus einer DB sauber in eine andere verschieben?

Fragen über fragen...

Danke

Stefan

[robertpp]

Auf dein erstes problem weiß ich keine lösung vielleicht hilft das dir bei deinem zweiten problem(ich habe es in einem agent laufen) Kopiert ein Doc aus einer DB in DB2 und löscht es von der ersten

   Dim s As NotesSession
   Dim ws As NotesUIWorkspace
   Dim db As NotesDatabase
   Dim db2 As NotesDatabase      
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Set db = s.CurrentDatabase   
   Set db2 = New NotesDatabase ("SERVER", "DB2")
   Set uidoc = ws.EditDocument( False )   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Call doc.Save(True, False)   
   If Not db2.IsOpen Then
      Call db2.Open( "", "" )         
   End If      
   Call doc.CopyToDatabase(db2)      
   Call uidoc.close   
   If Not ( uidoc.EditMode ) Then
      t = doc.UniversalID      
      Call uidoc.DeleteDocument()
      Set docA = db.getDocumentByUNID(t)
      Call docA.Remove(True)      
   End If   
   Call ws.viewrefresh


robertpp

[ata]

... zu deinem ersten Problem:

... Öffnen einer DB und überprüfen, ob es die DB gibt:

Dim session as New NotesSession
Dim db As NotesDatabase
Dim sServer As String
Dim sDBName As String

sServer = ""
sDBName = "names.nsf"
Set db = session.GetDatabase(sServer , sDBName)
If db.IsOpen Then
   ' # Die Datenbank existiert
Else
   ' # Die Datenbank kann nicht geöffnet werden
   ' # ...
End If

... oder

If Not db Is Nothing Then ' # ...

... setzt vorraus, daß du berechtigst bist die Datenbank öffnen zu können...

... wie man DB's anhand von einer Schablone neu erstellt habe ich in meinem LS-Kurs auf meiner Homepage unter "Arbeiten mit Datenbanken" beschrieben...

http://www.anton-tauscher.de/LotusScript

ata

[BoneCrusher]

ja super jungs....
was würde ich nur ohne euch machen??  

@ata
du die site bekomme ich nicht sauber angezeigt. die layer haut es alle übereinander und somit ist da nichts lesbar. schick dir gerne mal nen screenshot. ich benutze IE6 SP1

Thx

Stefan

[ata]

... ich verwende den gleichen Browser IE6 SP1 - und habe keine Probleme bei der Anzeige ... seltsam ...

ata