Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: BoneCrusher am 26.02.03 - 16:56:46
-
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
-
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
-
... 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 (http://www.anton-tauscher.de/LotusScript)
ata
-
ja super jungs....
was würde ich nur ohne euch machen?? ;D
@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
-
... ich verwende den gleichen Browser IE6 SP1 - und habe keine Probleme bei der Anzeige ... seltsam ...
ata