Hallo,
ich bin dabei, über ODBC aus Navisiontabellen Daten in eine NotesDB einzulesen.
Das funktionierte gut, bis ich dazu überging, statt nur einer Maske gleich 3 verschiedene Masken nacheinander zu bedienen und außerdem die vorhandenen Sätze einer View vor dem erneuten Einlesen löschen wollte.
Mal wird gelöscht, mal angehängt, mal gar nicht gefüllt, mal fehlt ein Teil der Daten. Ich habe mit DBs noch nicht viel gemacht.
Kann ich das mit einem Set db=session.CurrentDatabase machen oder brauche ich vielleicht für jede Maske eine eigene Session, Notedocument usw.
In den Beispielen wird immer nur eine Maske gleichzeitig angesprochen.
Ein Auszug aus den Quellen sieht etwa so aus, wobei doc.form, doc.type und db.view jeweils wechseln.
'Standort in DB löschen, bevor aktuelle Sätze kommen
'############################################
Set view = db.GetView("Standort")
' ohne IF-Abfrage gibt es einen Fehler bei GetFirstDocument
If Not (doc Is Nothing) Then
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
Call doc.Remove (True)
Set doc = view.GetFirstDocument
Wend
End If
'############################################
'DB füllen: Standort neu anlegen
'##########################################################################
' neues Dokument anlegen
Set doc = db.CreateDocument
doc.form="Standort"
doc.type="Standort"
doc.standortcode = result.GetValue("Code")
doc.standort = result.GetValue("Name")
' neues Dokument speichern
Call doc.Save(True, True)
'###############################################################################
Lisa