Hallo Leute,
ich soll eine Datei täglich über ODBC von der As 400 nach Notes importieren.
Die AS 400 Datei enthält 83324 Datensätze, doch in Notes kommen immer nur 22357 Datensätze an.
Die Prüfung auf "IsEndOfData" mache ich am Schleifenende.
Die 22357 Datensätze die importiert werden stimmen alle auch in ihrer Reihenfolge.
Habe den letzte Satz schon rausgenommen, dann nimmt Notes den nächsten und bricht dann wieder ab.
Die As 400 Datei hat aber an dieser Stelle kein Steuerzeichen das mir das Dateiende markiert.
Gibt es wirklich so etwas wie eine max Anzahl beim ODBC Import, oder mache ich was ganz anderes falsch?
Wie kriege ich die Kuh vom Eis.
Hier mein Script zum leichterem Verständnis.
Bin für jede Hilfe dankbar.
If con.IsConnected Then
'SQL auf die AS 400 Datei absetzten
qry.SQL = "SELECT * FROM SEGODBC.LOTUS_PLKA"
'Dieser Befehlt sorgt dafür, dass das SQL Statement auf dem Server auch ausgeführt wird
result.Execute
result.FirstRow
i = 0
Do
Set doc = db.createDocument
If result.IsResultSetAvailable Then
doc.Form = "KD Karten"
doc.kukanr = Trim(result.GetValue("PLKNUM"))
doc.kdnam = Trim(result.GetValue("ADNNAM"))
Call doc.Save(True, True)
If doc.kukanr(0) = "550100986292" Then
'Stop
End If
End If
result.NextRow
i = i + 1
Loop Until result.IsEndOfData
'Loop Until i = 24000
End If
'Verbindung zur AS 400 nach erfolgreichem Durchlauf trennen
con.Disconnect