[gelöst] Daten aus Notes per ODBC in AS 400 db2 schreiben

[Lancelot]

Hallo Leute,

ich suche und kämpfe schon seit tage mit einem Problem.
Ich muss Daten aus eine Notes DB in eine DB2 auf der AS 400 zurückschreiben.

Das auslesen einer DB2 verschafft mir keine Probleme.
Das Script läuft auch durch, ohne eine Fehlermeldung, doch in der DB2 auf der AS 400 steht nichts drin.

Was mache ich falsch?
Die Verbindung auf die DB2 kommt zu Stande.


Hier der Code des ODBC Agenten:
Option Public
Option Declare
UseLSX "*LSXODBC"

Sub Initialize

   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView   
   Dim doc As NotesDocument
   Dim con As New ODBCConnection
   Dim qry As New ODBCQuery
   Dim result As New ODBCResultSet
   Dim odbcvar As String
   
   Set db = s.Currentdatabase
   Set view = db.getview("($alle fi&ba)")
   Set doc = view.Getfirstdocument()
   'Verbindung über ODBC mit User und Passwort zur AS 400 herstellen
   Call con.ConnectTo("SEGODBC", "notrix", "nahme")
   Set qry.Connection = con
   
   If con.IsConnected Then
      'SQL auf die AS 400 Datei absetzten
      qry.SQL = "SELECT * FROM NOTRIX.Formlotus"
      Set result.Query = qry
      result.Execute
   End If
   result.Firstrow
   
   While Not (doc Is Nothing)
      
      odbcvar = doc.doc_pers_nr(0)
   '"VKNR" ist das Feld in der DB2
      Call result.SetValue("VKNR", odbcvar)      
      result.Updaterow
      Set doc = view.Getnextdocument(doc)
      result.Nextrow
   Wend
   result.Close(DB_Close)
   con.Disconnect   

End Sub

Danke Euch schon mal.

[Lancelot]

Tja der weg kann oft ganz einfach sein.

Das Script findet bei FirstRow nichts.
Also machte ich bei First und Nextrow davor ein AddRow und schon schreibt er mir über das Result die Daten in die Db 2.